Conversion of standardized ReadMe file for
file /./ftp/cats/III/184 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.5, on 2013-May-19
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. III/184 3rd Bibliog. Cat. of Stellar Radial Vel. (Barbier-Brossat+, 1994)
*================================================================================
*Troisieme Catalogue Bibliographique de Vitesses Radiales Stellaires
* Barbier-Brossat M., Petit M., Figon P.
* <Astron. Astrophys. Suppl. Ser. 108, 603 (1994)>
* =1994A&AS..108..603B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Third bibliographic catalogue of
stellar radial velocities
integer*4 nr__
parameter (nr__=43821) ! Number of records
character*121 ar__ ! Full-size record
real*8 RA_ (nr__) ! (deg) Right Ascension 1950
real*8 Dec (nr__) ! (deg) Declination 1950
integer*4 HD (nr__) ! [1/358431]? HD number
character*1 m_HD (nr__) ! Multiplicity index on HD (1)
character*11 DM (nr__) ! DM identification (BD, CP, or CD number)
character*1 m_DM (nr__) ! Multiplicity index on DM (1)
character*3 WEB (nr__) ! [WEB ] "Catalogue de synthese" reference (2)
character*17 OtherName (nr__) ! Other designations
integer*4 RAh (nr__) ! (h) Right ascension 1950
real*4 RAm (nr__) ! (min) Right ascension 1950
character*1 u_RAm (nr__) ! [*] Uncertainty flag on right ascension
character*1 DE_ (nr__) ! Declination sign
integer*4 DEd (nr__) ! (deg) Declination 1950
integer*4 DEm (nr__) ! (arcmin) Declination 1950
character*1 n_Vmag (nr__) ! [*V] 'V' for Variable;
* '*' if Vmag is a B or photographic magnitude
real*4 Vmag (nr__) ! (mag) []? V magnitude (B or photographic magnitude
* if n_Vmag = *)
character*1 u_Vmag (nr__) ! [:*] uncertainty flag on Vmag; * indicates
* very uncertain (::) value
character*10 Sp (nr__) ! Spectral type
real*8 RV (nr__) ! (km/s) []? Heliocentric radial velocity
character*2 u_RV (nr__) ! [: ] Uncertainty flag on RV
* (an unexplained * exists for HD 49212)
character*1 q_RV (nr__) ! [ABCDE*:] Quality from A (very good)
* to E (very poor)
integer*4 o_RV (nr__) ! []? Number of (new) measurements
character*4 Rem (nr__) ! Remark (3)
character*4 Disp (nr__) ! (0.1nm/mm) Dispersion (4)
character*13 Ref (nr__) ! Reference as Journal Code, Volume, Page (5)
character*4 Year (nr__) ! Year of publication
character*1 Rem2 (nr__) ! Remarks. '*' indicates remark in note (6)
*Note (1): Uppercase letters are used for visual double stars,
* lowercase letters for spectroscopic double stars. In the second case,
* the letter 'a' has been replaced by the letter 'i' . The symbol '/'
* indicates that the measure concerns 2 stars with consecutive HD
* numbers or that the radial velocity is relative to the measure of the
* 2 components of the same star.
*Note (2): Letters W, E and B are related to the "Catalogue General de Synthese"
* realised from the catalogues of Wilson, Evans and Batten
* (catalog III/190)
*Note (3): Abbreviations used:
* CEPH = Cepheid. The mean velocity is then provided.
* DBL, TRI, QUAD, MUL = double, triple, quadruple, multiple star respectively
* DE = eclipsing binary
* DS, DS1, DS2 = spectroscopic binary, with 1 or 2 line systems
* EM = velocity calculated from emission lines
* ORB = orbit; the star systemic velocity is provided
* (unexplained 'E' for Cyg X-1)
* RRLY = RR Lyrae star. The RR lyrae star gravity center is provided
* STND = IAU standard star
* VAR = variable radial velocity, according to the author.
*Note (4): Dispersion used for the radial velocity determination.
* If the published velocity is the mean of several velocities obtained
* with very different dispersions, there is no value of the dispersion.
* Otherwise, we mention the lowest dispersion used preceded by the
* symbol <.
* COR: velocities are measured with a correlation spectrophotometer
*Note (5): List of abbreviations used for the Journals:
* AA = Acta Astronomica
* AAP = Astronomy and Astrophysics
* AAPS = Astronomy and Astrophysics Supplement Series
* AAOB = Abastumani Astrophysical Observatory Bulletin
* AFA = Arkiv fur Astrophysik
* AJ = Astronomical Journal
* AN = Astronomische Nachrichten
* AP = Astrophysics (URSS)
* APJ = Astrophysical Journal
* APJS = Astrophysical Journal Supplement Series
* ASS = Astrophysics and Space Science
* AT = Annals of the Tokyo Astronomical Observatory
* BAAA = Boletin de la Asociacion Argentina de Astronomia
* BAAS = Bulletin of the American Astronomical Society
* BAIC = Bulletin of the Astronomical Institutes of Czechoslovakia
* BOTT = Boletin de Los Observatorios Tonantzintla y Tacubaya
* CAO = Bulletin de l'Observatoire de Crimee
* CRAS = Comptes Rendus de l'Academie des Sciences, Paris
* DAO = Publications of the Dominion Astrophysical Observatory
* HA = Highlights os Astronomy
* IAUS = International Astronomical Union Symposium
* IBVS = Information Bulletin on Variable Stars
* JAA = Journal of Astrophysics and Astronomy (Inde)
* JO = Journal des Observateurs
* MAG = Mittelungen Astronomische Gesellschaft
* MAKL = Mededelingen van Het Astronomich Institut van de Katholieke
* Universiteit Leuven
* MEM = Memoirs of the Royal Astronomical Society
* MES = The Messenger (ESO)
* MN = Monthly Notices of the Royal Astronomical Society
* MNAS = Monthly Notices of the Astronomical Society of Sotuh Africa
* MSAI = Memorie della Societa Astronomica Italiana
* OBS = The Observatory
* PASJ = Publications of the Astronomical Society of Japan
* PASA = Publications of the Astronomical Society of Australia
* PASP = Publications of the Astronomical Society of Pacific
* PCAO = Publication Crimean Astrophysical Observatory
* PDDO = Publications of the David Dunlap Observatory
* POAS = Publications de l'Observatoire Astronomique de Strasbourg
* POCC = Observatorio Astronomico Nacional, Cerro Calan, Publicaciones
* POGB = Publications de l'Observatoire de Geneve, Serie B
* RASC = Journal of the Royal Astronomical Society of Canada
* RASV = Ricerche Astronomiche Specola Vaticana
* RGOA = Royal Greenwich Observatory Annals
* RMAA = Revista Mexicana de Astronomia y Astrofisica
* ROB = Royal Observatory Bulletin
* SA = Soviet Astronomy
* SAL = Soviet Astronomy - Letters
* SAOC = South African Astronomical Observatory Circulars
* VA = Vistas in Astronomy
*Note (6): Remarks:
* * Ma 260 in AAP 17, 253-1972. We deleted the BD identification given by the
* author because it doesn't correspond to the star coordinates
* * LTT 664 = CD-44 334 instead of CD-44 344 in AJ 84, 1553-1979
* * Fl 770 in POAS 2, 1-1972. The published coordinates don't correspond to
* those of star CP-74 106. We deleted this identification.
* * HD 11154 = HR 530 instead of HD 11155 in APJS 62, 147
* * HD 22484 = BD-0 572 instead of BD+0 572 in AAPS 71, 253
* * vB 188 instead of vB 178 in AJ 88, 844-1983 from published coordinates
* * HD 36486 in APJ 214, 759-1977. The systemic velocity +118.3 published seems
* wrong compared with other publications. This velocity might be +18.3
* * Gl 234A instead of 243A in APJS 314, 272-1987
* * NGC 2287 c4 = HD 49105 in AAPS 62, 301-1985. The coordinates and the
* spectral type published in the paper don't correspond to those of HD.
* We deleted this identification.
* * HD 86612 instead of HD 86162 in AAPS 63, 87-1986
* * CC Com in PASP 89, 684-1977. The coordinates are different from those of
* the "Catalogue d'Etoiles Variables" by Kukarkin.
* * HD 112211 instead of 12211 in AJ 89, 1897-1984
* * HD 119191 instead of 19191 in AJ 89, 1897-1984
* * CD-29 10863 instead of CD-20 10863 in AJ 89, 1897-1984
* * HD 129981 instead of HD 129881 in MN 159, 67-1972
* * HD 151985 instead of 151895 in APJS 64, 487-1982
* * Case 437 in AJ 81, 364-176. We adopted the coordinates from Case catalogue
* which differ slightly from the published ones.
* * CD-23 13997 instead of CP-23 13997 in MN 158, 85-1972
* * CD-23 13998 instead of CP-23 13998 in MN 158, 85-1972
* * CD-35 12911 in POCC 2, 40-1970. The author coordinates differ from
* those indicated in SIMBAD, which we have adopted.
* * APJS 73, 843-1990. There is some confusion between the corresponding
* numbers.
* cya 51=CCS 2866=nb 201;
* cya 50=CCS 2862=nb 202;
* cya 77=CCS 2873;
* cya 76=CCS 2874
* * BD+15 4915 instead of BD+15 4914 in PASP 97, 1086-1985
C=============================================================================
C Loading file 'catalog.dat' ! Third bibliographic catalogue of
* stellar radial velocities
C Format for file interpretation
1 format(
+ I6,A1,1X,A11,A1,1X,A3,1X,A17,1X,I2,1X,F4.1,A1,A1,I2,1X,I2,1X,
+ A1,F5.2,A1,A10,1X,F7.2,A2,1X,A1,1X,I3,1X,A4,1X,A4,1X,A13,A4,
+ 1X,A1)
C Effective file loading
open(unit=1,file='catalog.dat', status='old')
write(6,*) '....Loading file: catalog.dat'
do i__=1,43821
read(1,'(A121)')ar__
read(ar__,1)
+ HD(i__),m_HD(i__),DM(i__),m_DM(i__),WEB(i__),OtherName(i__),
+ RAh(i__),RAm(i__),u_RAm(i__),DE_(i__),DEd(i__),DEm(i__),
+ n_Vmag(i__),Vmag(i__),u_Vmag(i__),Sp(i__),RV(i__),u_RV(i__),
+ q_RV(i__),o_RV(i__),Rem(i__),Disp(i__),Ref(i__),Year(i__),
+ Rem2(i__)
if(ar__(1:6) .EQ. '') HD(i__) = iNULL__
if(ar__(60:64) .EQ. '') Vmag(i__) = rNULL__
if(ar__(77:83) .EQ. '') RV(i__) = rNULL__
if(ar__(89:91) .EQ. '') o_RV(i__) = iNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_(i__) = RAh(i__)
if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
Dec(i__) = DEd(i__)
if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c ..............Just test output...........
write(6,1)
+ HD(i__),m_HD(i__),DM(i__),m_DM(i__),WEB(i__),OtherName(i__),
+ RAh(i__),RAm(i__),u_RAm(i__),DE_(i__),DEd(i__),DEm(i__),
+ n_Vmag(i__),Vmag(i__),u_Vmag(i__),Sp(i__),RV(i__),u_RV(i__),
+ q_RV(i__),o_RV(i__),Rem(i__),Disp(i__),Ref(i__),Year(i__),
+ Rem2(i__)
write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end