Conversion of standardized ReadMe file for
catalog 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.5, on 2013-May-18
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. II/195B Namelists of variable stars Nos.67-73 (Khopolov+, 1985-97)
*================================================================================
*The computer-readable namelists of Variable Stars Nos.67-73
* Kholopov P.N., Samus N.N., Kazarovets E.V., Perova N.B.
* <IAU Inform. Bull. Var. Stars, 2681, 1 (1985)>
* Kholopov P.N., Samus N.N., Kazarovets E.V., Kireeva N.N.
* <IAU Inform. Bull. Var. Stars, 3058, 1 (1987)>
* Kholopov P.N., Samus N.N., Kazarovets B.V., Frolov M.S., Kireeva N.N.
* <IAU Inform. Bull. Var. Stars, 3323, 1 (1989)>
* Kazarovets E.V., Samus N.N.
* <IAU Inform. Bull. Var. Stars, 3530, 1 (1990)>
* Kazarovets E.V., Samus N.N., Goranskij V.P.
* <IAU Inform. Bull. Var. Stars, 3840, 1 (1993)>
* Kazarovets E.V., Samus N.N.
* <IAU Inform. Bull. Var. Stars, 4140, 1 (1995)>
* Kazarovets E.V., Samus N.N.
* <IAU Inform. Bull. Var. Stars, 4471, 1 (1997)>
* =1985IBVS.2681....1K
* =1987IBVS.3058....1K
* =1989IBVS.3323....1K
* =1990IBVS.3530....1K
* =1993IBVS.3840....1K
* =1995IBVS.4140....1K
* =1997IBVS.4471....1K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nl.dat' ! Name-lists of variable stars Nos 67-72
integer*4 nr__
parameter (nr__=2735) ! Number of records
character*74 ar__ ! Full-size record
real*8 RA_ ! (deg) Right Ascension 1950.0
real*8 Dec ! (deg) Declination 1950.0
integer*4 Constell ! [1/88] Constellation numeric code
integer*4 Number ! Star number within the constellation
integer*4 Component ! ? Component identification
character*8 GCVS ! *Variable star designation
integer*4 RAh ! (h) *? Hours RA, equinox 1950.0
integer*4 RAm ! (min) *? Minutes RA, equinox 1950.0
integer*4 RAs ! (s) *? Seconds RA, equinox 1950.0
character*1 DE_ ! Sign Dec, equinox 1950.0
integer*4 DEd ! (deg) *? Degrees Dec, equinox 1950.0
real*4 DEm ! (arcmin) *? Minutes Dec, equinox 1950.0
character*1 l_magMax ! [>(] ">" if magMax is a faint limit
* "(" if magMax is an amplitude
real*4 magMax ! (mag) *? Maximum magnitude or amplitude
character*1 u_magMax ! Uncertainty flag (:) on magMax
character*1 n_magMax ! *The photometric system for amplitude
character*1 f_magMax ! [)] ")" if magMax is an amplitude
character*1 l_magMin ! [<(] "<" if magMin is a bright limit
* "(" if magMin is an amplitude
real*4 magMin ! (mag) *? Minimum magnitude or amplitude
character*1 u_magMin ! Uncertainty flag (:) on magMin
character*1 n_magMin ! *The photometric system for amplitude
character*1 f_magMin ! [)] ")" if magMin is an amplitude
character*4 magCode ! *The photometric system for magnitudes
character*10 VarType ! *Type of variability, or equivalent
* name to another catalogued variable
character*3 Ref1 ! Reference for study of the star
* (see file ref.dat)
character*3 Ref2 ! *Reference for chart or photograph
* (see file ref.dat)
integer*4 NL ! *[67001/72491] Name-List number
*Note on GCVS: the following non-common transliterations of greek letters
* are used: dzeta, miu, niu, ksi, khi. Lower- and upper-case
* latin letters must be distinguished (e.g. u Her and U Her)
*Note on RAh, RAm, RAs, DE-, DEd, DEm, DEs:
* the position is not listed when the variable is equivalent to
* another catalogued variable ('=' in column VarType, byte 53)
*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). For stars with
* photoelectric photometry, two decimals after the decimal point are
* presented (or sometimes, in the case of amplitudes, three decimals);
* one decimal is given in the case of photographic or visual magnitudes,
* no decimals follow the decimal point in the cases of very rough
* magnitude estimates.
*Note on n_magMax, n_magMin: Code for alternate photometric system.
* Field is non-blank if magMin is a magnitude or amplitude given in a
* system other than that indicated by magCode. The designations u,v,b,y
* refer to the Stroemgren system. An asterisk in the corresponding
* position for V2027 Cyg means the amplitude measured in white light.
*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).
* Several stars from the 68th Name-List have in these positions "1.04"
* designating the 1.04 micrometer band of the system introduced by
* G.W.Lockwood. The designations u,v,b,y refer to the Stroemgren system.
* The symbol "Ic" means magnitudes in Cousins' I system.
*Note on VarType: type of variability.
* The system of variable star classification corresponds to the 4th GCVS
* edition (see <II/139>), with three additions introduced in the
* Name-Lists:
* *Name-List No.68. "R - close binary systems characterized by the
* presence of strong reflection (re-radiation) of the light of the hot
* star illuminating the surface of the cooler companion. Light curves
* are sinusoidal with the period equal to Porb, maximum brightness
* coinciding with the passage of the hot star in front of the companion.
* The eclipse may be absent. The range of light variation is about
* 0.5-1.0mag V (KV Vel)";
* *Name-List No.69. "It becomes more and more clear that, although the
* majority of Be stars are photometrically variable, not all of them
* could be properly called GCAS variables. Quite a number of them show
* small-scale variations not necessarily related to shell events; in
* some cases the variations are quasi-periodic. By now we are not able
* to present an elaborated system of classification for Be variables,
* but we adopt a decision that in the cases when a Be variable cannot be
* readily described as a GCAS star we give simply BE for the type of
* variability".
* *Name-List No. 72. "For comparatively long-period pulsating B stars
* (periods exceeding one day), we introduce a provisional type LBV".
*Note on Ref2: If no chart is available for the variable, but the star
* is contained in one of the Durchmusterung catalogs or the Hubble Space
* Telescope Guide Star Catalog, the corresponding abbreviation (BD, CPD,
* CoD, GSC) is given.
*Note on NL: the Name-List number.
* Printed versions of every Name-List have their own numbering systems
* for variables and references. In order not to change numbers and to
* make it possible to distinguish among Name-Lists, we use combined star
* numbers of the form aabbb, where aa is the number of the Name-List,
* and bbb is the star number in the Name-List No.aa; for example,
* UX Tri=No.69015= star No.015 in the Name-List No.69. The same
* numbering is used for references, but in the numbers of references in
* the file nl.dat we omit the "aa" positions.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ident.dat' ! Identifications of variables from NLs 67-72
integer*4 nr__1
parameter (nr__1=2952) ! Number of records
character*80 ar__1 ! Full-size record
character*9 GCVS_1 ! *Variable star designation
integer*4 NL_1 ! *[67001/72491] Name-List number
character*64 ID ! *Identifications
*Note on GCVS, NL:
* This file consists of lines not longer than 80 symbols. Information
* for a star may occupy one line or more. If a line contains the
* continuation for a star, its first 15 bytes are repeated.
*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 "ref.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. For
* the stars having NSV catalogue numbers, the references to discovery
* papers already taken into account in the NSV catalogue are not always
* given. Different identifications of the same star are separated with
* equality signs. In some cases, short remarks are given after the full
* stop following the last identification.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nl73.dat' ! Name-list of variable stars No 73
integer*4 nr__2
parameter (nr__2=771) ! Number of records
character*72 ar__2 ! Full-size record
real*8 RA__1 ! (deg) Right Ascension 1950
real*8 Dec_1 ! (deg) Declination 1950
integer*4 NL73 ! *[73001/73771]+ Name-List number in IBVS 4471
character*8 GCVS_2 ! Variable star designation
integer*4 RAh_1 ! (h) Right Ascension 1950 (hours)
integer*4 RAm_1 ! (min) Right Ascension 1950 (minutes)
real*4 RAs_1 ! (s) Right Ascension 1950 (seconds)
character*1 DE__1 ! Declination 1950 (sign)
integer*4 DEd_1 ! (deg) Declination 1950 (degrees)
integer*4 DEm_1 ! (arcmin) Declination 1950 (minutes)
integer*4 DEs ! (arcsec) ? Declination 1950 (seconds)
real*4 magMax_1 ! (mag) *? Maximum magnitude
character*1 u_magMax_1 ! Uncertainty flag (:) on magMax
character*1 l_magMin_1 ! [<(] "<" if magMin is a bright limit
* "(" if magMin is an amplitude
real*4 magMin_1 ! (mag) *? Minimum magnitude or amplitude
character*1 u_magMin_1 ! Uncertainty flag (:) on magMin
character*2 n_magMin_1 ! *The photometric system for amplitude
character*1 f_magMin_1 ! [)] ")" if magMin is an amplitude
character*2 magCode_1 ! *The photometric system for magnitudes
character*7 VarType_1 ! *Type of variability
integer*4 Ref1_1 ! Reference for study of the star
* (see file ref.dat)
character*3 Ref2_1 ! *Reference for chart or photograph
* (see file ref.dat)
*Note on NL73: the Name-List number.
* Only the last 3 digits are in IBVS 4471.
*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). For stars with
* photoelectric photometry, two decimals after the decimal point are
* presented (or sometimes, in the case of amplitudes, three decimals);
* one decimal is given in the case of photographic or visual magnitudes,
* no decimals follow the decimal point in the cases of very rough
* magnitude estimates.
*Note on n_magMin: Code for alternate photometric system.
* Field is non-blank if magMin is a magnitude or amplitude given in a
* system other than that indicated by magCode. The designations u,v,b,y
* refer to the Stroemgren system.
*Note on magCode: the photometric system in which magMin and magMax are
* reported (see also Note on n_magMin). The main codes are P
* (photographic magnitudes) and V (visual, photovisual, or Johnson's V).
* The designations u,v,b,y refer to the Stroemgren system.
* The symbol "Ic" means magnitudes in Cousins' I system.
*Note on VarType: type of variability.
* See note above (file nl.dat)
*Note on Ref2: If no chart is available for the variable, but the star
* is contained in one of the Durchmusterung catalogs or the Hubble Space
* Telescope Guide Star Catalog, the corresponding abbreviation (BD, CPD,
* CoD, GSC) is given.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'id73.dat' ! Identifications and notes for NL
integer*4 nr__3
parameter (nr__3=1023) ! Number of records
character*80 ar__3 ! Full-size record
integer*4 NL73_1 ! [73001/73771] Name-List number in IBVS 4471
* as in file nl73.
character*8 GCVS_3 ! Variable star designation, as in file nl73.
character*65 Text ! Text of equivalences or notes (may require
* several lines)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ref.dat' ! References for NLs 67-73
integer*4 nr__4
parameter (nr__4=2193) ! Number of records
character*234 ar__4 ! Full-size record
integer*4 NLnum ! [67/73] Name-List number
integer*4 Ref ! [1/484] Reference number
character*228 Text_1 ! *Text of reference
*Note on Text:
* In the present version we attempted to give Latin transliterations of
* Russian-language names of astronomical periodicals and books. We did
* not try to unificate the Latin spelling of names with Cyrillic (or
* other) original forms, but simply tried to reproduce the Latin
* transcriptions in the publications referred to. Of course this may
* lead to some confusion, hopefully minor. If a paper enters lists of
* references of several Name-Lists, it appears several times in the
* present version.
C=============================================================================
C Loading file 'nl.dat' ! Name-lists of variable stars Nos 67-72
C Format for file interpretation
1 format(
+ I2,I4,I1,A8,1X,I2,I2,I2,A1,I2,F4.1,A1,F5.2,A1,A1,A1,A1,F6.3,
+ A1,A1,A1,A4,A10,A3,A3,1X,I5)
C Effective file loading
open(unit=1,file='nl.dat', status='old')
write(6,*) '....Loading file: nl.dat'
do i__=1,2735
read(1,'(A74)')ar__
read(ar__,1)
+ Constell,Number,Component,GCVS,RAh,RAm,RAs,DE_,DEd,DEm,
+ l_magMax,magMax,u_magMax,n_magMax,f_magMax,l_magMin,magMin,
+ u_magMin,n_magMin,f_magMin,magCode,VarType,Ref1,Ref2,NL
if(ar__(7:7) .EQ. '') Component = iNULL__
if(ar__(17:18) .EQ. '') RAh = iNULL__
if(ar__(19:20) .EQ. '') RAm = iNULL__
if(ar__(21:22) .EQ. '') RAs = iNULL__
if(ar__(24:25) .EQ. '') DEd = iNULL__
if(ar__(26:29) .EQ. '') DEm = rNULL__
if(ar__(31:35) .EQ. '') magMax = rNULL__
if(ar__(40:45) .EQ. '') magMin = rNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_ = RAh
if(RAh .GE. 0) RA_=RAh*15.
if(RAm .GE. 0) RA_=RA_+RAm/4.
if(RAs .GE. 0) RA_=RA_+RAs/240.
Dec = DEd
if(DEm .GE. 0) Dec=Dec+DEm/60.
if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec
c ..............Just test output...........
write(6,1)
+ Constell,Number,Component,GCVS,RAh,RAm,RAs,DE_,DEd,DEm,
+ l_magMax,magMax,u_magMax,n_magMax,f_magMax,l_magMin,magMin,
+ u_magMin,n_magMin,f_magMin,magCode,VarType,Ref1,Ref2,NL
write(6,'(6H Pos: 2F8.4)') RA_,Dec
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ident.dat' ! Identifications of variables from NLs 67-72
C Format for file interpretation
2 format(A9,1X,I5,1X,A64)
C Effective file loading
open(unit=1,file='ident.dat', status='old')
write(6,*) '....Loading file: ident.dat'
do i__=1,2952
read(1,'(A80)')ar__1
read(ar__1,2)GCVS_1,NL_1,ID
c ..............Just test output...........
write(6,2)GCVS_1,NL_1,ID
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'nl73.dat' ! Name-list of variable stars No 73
C Format for file interpretation
3 format(
+ I5,1X,A8,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F5.2,A1,
+ 1X,A1,F6.3,A1,A2,A1,A2,1X,A7,1X,I3,1X,A3)
C Effective file loading
open(unit=1,file='nl73.dat', status='old')
write(6,*) '....Loading file: nl73.dat'
do i__=1,771
read(1,'(A72)')ar__2
read(ar__2,3)
+ NL73,GCVS_2,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs,magMax_1,
+ u_magMax_1,l_magMin_1,magMin_1,u_magMin_1,n_magMin_1,
+ f_magMin_1,magCode_1,VarType_1,Ref1_1,Ref2_1
if(ar__2(34:35) .EQ. '') DEs = iNULL__
if(ar__2(37:41) .EQ. '') magMax_1 = rNULL__
if(ar__2(45:50) .EQ. '') magMin_1 = rNULL__
c Derive coordinates RA__1 and Dec_1 from input data
c (RA__1 and Dec_1 are set to rNULL_ when unknown)
RA__1 = RAh_1
if(RAh_1 .GE. 0) RA__1=RAh_1*15.
if(RAm_1 .GE. 0) RA__1=RA__1+RAm_1/4.
if(RAs_1 .GE. 0) RA__1=RA__1+RAs_1/240.
Dec_1 = DEd_1
if(DEm_1 .GE. 0) Dec_1=Dec_1+DEm_1/60.
if(DEs .GE. 0) Dec_1=Dec_1+DEs/3600.
if(DE__1.EQ.'-'.AND.Dec_1.GE.0) Dec_1=-Dec_1
c ..............Just test output...........
write(6,3)
+ NL73,GCVS_2,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs,magMax_1,
+ u_magMax_1,l_magMin_1,magMin_1,u_magMin_1,n_magMin_1,
+ f_magMin_1,magCode_1,VarType_1,Ref1_1,Ref2_1
write(6,'(6H Pos: 2F8.4)') RA__1,Dec_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'id73.dat' ! Identifications and notes for NL
C Format for file interpretation
4 format(I5,1X,A8,1X,A65)
C Effective file loading
open(unit=1,file='id73.dat', status='old')
write(6,*) '....Loading file: id73.dat'
do i__=1,1023
read(1,'(A80)')ar__3
read(ar__3,4)NL73_1,GCVS_3,Text
c ..............Just test output...........
write(6,4)NL73_1,GCVS_3,Text
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ref.dat' ! References for NLs 67-73
C Format for file interpretation
5 format(I2,I3,1X,A228)
C Effective file loading
open(unit=1,file='ref.dat', status='old')
write(6,*) '....Loading file: ref.dat'
do i__=1,2193
read(1,'(A234)')ar__4
read(ar__4,5)NLnum,Ref,Text_1
c ..............Just test output...........
write(6,5)NLnum,Ref,Text_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end