Conversion of standardized ReadMe file for
file /./ftp/cats/III/85 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.81 (2015-09-23), on 2026-Aug-14
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. III/85 Sixth Catalogue of Galactic Wolf-Rayet Stars (van der Hucht+ 1981)
*================================================================================
*Sixth Catalogue of Galactic Wolf-Rayet Stars
* van der Hucht K.A., Conti P.S., Lundstrom I., Stenholm B.
* <Space Science Rev. 28, 227 (1981)>
* =1981SSRv...28..227V
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! 159 Population I Galactic WR stars
integer*4 nr__
parameter (nr__=159) ! Number of records
character*310 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 WR ! [1/158]+= Identifier of entry. running number
character*1 m_WR ! [a] (only case is entry 29a)
character*5 Name ! *A catalogue designation/number
character*12 Name1 ! *first additional identifier
character*10 Name2 ! *second additional identifier
character*1 n_HD ! *[(E] Note on HD designation
integer*4 HD ! ? Henry Draper (HD) numbers
character*2 m_HD ! "B)" for companions to HD stars
character*9 BD_CPD ! *Designation in BD or CPD
character*9 CD ! *Designation in Cordoba Durchmusterung
integer*4 SAO ! ?Number in SAO <I/131> Star Catalogue
character*6 Hen ! *Designation in Henize catalogue
character*11 LS ! *Designation in LS catalogues
integer*4 LSS ! *?Designation in Southern Milky Way cat.
character*5 Name3 ! *Previous Catalogues of Wolf-Rayet stars
character*18 Correl1 ! Correlation with open cluster or association
character*30 Correl2 ! *Correlation with HII region
character*16 r_Correl1 ! *References for Correl1
character*15 r_Correl2 ! References for Correl2
integer*4 RAh ! (h) Right ascension (equinox 1950) in hours
integer*4 RAm ! (min) minutes of right ascension
real*4 RAs ! (s) seconds of right ascension
character*1 DE_ ! sign of declination ("+" or "-")
integer*4 DEd ! (deg) degrees of declination (equinox 1950)
integer*4 DEm ! (arcmin) minutes of declination
integer*4 DEs ! (arcsec) second of declination
integer*4 precRAm ! (min) Fifty year precession (to epoch 2000)
real*4 precRAs ! (s) (Same as above) second of right ascension
character*1 precDE_ ! Fifty year precession (to epoch 2000)
integer*4 precDEm ! (arcmin) precession in minutes of arc
integer*4 precDEs ! (arcsec) precession in seconds of arc
real*4 GLON ! (deg) Galactic longitude (lII)
real*4 GLAT ! (deg) Galactic latitude (bII) in degrees
character*12 SpType ! *Spectral type
real*8 Period ! (d) ? Period of orbit (unit = days).
character*16 Annotat ! *Annotation to binary orbit.
character*1 f_Mag ! [(/] "(" if V magnitude, "/" if mpg
real*4 Mag ! (mag) *value of magnitude
character*1 u_Mag ! [:] ":" indicates uncertainty of magnitude
character*1 f_b_v ! [(] "(" if B-V or estimated B-V
real*4 b_v ! *?=99.99 value of color index
character*1 u_b_v ! [:] ":" indicates uncertainty of color index
character*3 r_RAh ! *References for equatorial coordinates
character*7 r_SpType ! *References for spectral type
character*7 r_Period ! *References for binary orbit
character*3 r_Mag ! *References for Mag and b-v
character*1 NoteFlag ! *[*] additional note information
character*4 WR2 ! Repetition of WR designation (bytes 1-4)
*Note on Name:
* A catalog designation/number from one of the following references:
* MR: numbers from Roberts (1962AJ.....67...79R)
* NaSt: numbered after Nassau and Stephenson (LS Catalog <III/76>)
* ST: numbers from Stephenson (1966AJ.....71..477S)
* LS: numbers from Smith (1968MNRAS.138..109S)
* MS: numbers from MacConnell and Sanduleak (1970PASP...82...80M)
* NS: numbered after Sanduleak (1971ApJ...164L..71S, 1976, 1979)
* BS: numbers from Stenholm (1975A&A....39..307S)
* StSa: numbered after Stephenson and Sanduleak (1977PW&SO...2...71S)
* BP: numbered after Petterson (1978)
* DA: numbered after Allen (1978MNRAS.184..601A, 1979Obs....99...83A).
* The two- or four-letter code for the paper, as given in the above
* list, is left-justified in the field. The number is right-justified in
* the rest of the field. The authors of the published catalogue add this
* comment: "The twelve WR stars discovered by Stephenson and Sanduleak
* (1971) are best known for their LSS number. Therefore we have
* refrained from creating additional StSa numbers for those stars."
*Note on Name1, Name2:
* Alphabetical prefixes refer either to well-known catalogues to the
* following publications, for which full references are given at the
* end of this document:
* AD: Arkhipova and Dokuchaeva (1971SvA....15..593A)
* AS: Merrill and Burwell (1950ApJ...112...72M)
* BAC: Bordeaux Astrographic Chart
* BH: Hidayat (1962CoBos..16....1H)
* CRL: Walker and Price (1975)
* He 2: Henize (1967ApJS...14..125H)
* He 3: Henize (1976ApJS...30..491H)
* HM: Herbig and Mendoza (1960BOTT....2s..21H)
* IC: Iriarte and Chavira (1956BOTT....2n..31I)
* Sand: Sanduleak (1971ApJ...164L..71S)
* TH: The (1961CoBos..10....1T, 1962CoBos..14....1T, 1962CoBos..17....1T,
* 1963CoBos..20....1T, 1965CoBos..31....1T, 1966CoBos..35....1T)
* Tr: The and Stokes (1970A&A.....5..298T)
* Ve: Velghe (1957ApJ...126..302V)
* WRA: Wray (1966) (only for stars without He 3-number)
* Other identifiers in this field may be Bayer names; or may be the
* Astrographic Catalogue (AC), the General Catalogue of Variable Stars
* (GCVS). GCVS Supplements, the New General Catalogue (NGC), the
* Index Catalogue (IC) or the Yale Bright Star Catalogue (HR).
* Note that the prefix "IC" is ambiguous.
*Note on n_HD:
* "(" for companions to HD stars, "E" for HD Extension stars or blank
*Note on BD/CPD:
* Numbers from the Bonner Durchmusterung (BD, catalogs <I/122> and <I/119>)
* or Cape Photographic Durchmusterung (CPD, catalog <I/108>). BD and
* the CPD overlap in the range -18 to -23 degrees. The published version
* of this catalogue does not make clear whether numbers in this range
* are BD or CPD numbers.
*Note on CD:
* Numbers from the Cordoba Durchmusterung (CD, catalog <I/114>).
*Note on Hen:
* Numbers starting by "2-" are from Henize (1967ApJS...14..125H);
* numbers starting by "3-" are from Henize (1976ApJS...30..491H).
*Note on LS:
* Numbers from the catalogues of Luminous Stars in the Northern Milky
* Way (catalog <III/76>). The LS numbers of the last two stars in the
* published catalogue are grouped with a curly bracket. This is
* indicated in the machine-readable version by "*" in this byte of
* both corresponding entries (bytes 157 and 158).
* Identifier of specific LS catalogue is a Roman numeral:
* I: numbers from Hardorp et al. (1959)
* II: numbers from Stock et al. (1960)
* III: numbers from Hardorp et al. (1964)
* IV: numbers from Nassau and Stephenson (1963)
* (see References below)
*Note on LSS:
* Number from Luminous Stars in the Southern Milky Way (Stephenson and
* Sanduleak, 1971, catalog <III/46>)
*Note on Name3:
* Previous Catalogues of Wolf-Rayet stars in which this star appears,
* expressed as Roman numerals (for references, see References below):
* I: Campbell (1894)
* II: Fleming (1912)
* III: Payne (1930)
* IV: Roberts (1962AJ.....67...79R)
* V: Smith (1968MNRAS.138..109S)
*Note on Correl2:
* Correlation with HII region, and "(r)" means "ring nebula".
*Note on r_Correl1:
* References for Correl1. A sequence of numbers in the range 1-143,
* separated by commas, pointing to entries in the reference dataset
* (see table9.dat and remarks.dat of this document).
*Note on SpType:
* Spectral type according to the system described in Section 3 of the
* published catalogue. Table VII of the published catalogue summarizes
* the authors' spectral classification scheme and is reproduced as Table
* 3 of this document. Table XIV of the published catalogue gives the
* distribution of Wolf-Rayet stars by spectral subtype and is reproduced
* as Table 4 of this document.
*Note on Annotat:
* Annotation to binary orbit ":" refers to uncertainty in the period
* (bytes 241-248). "E" means "eclipsing", "SB1" means "optically
* invisible companion", and "SB2" means "WR+O system".
*Note on Mag:
* v magnitude in narrow-band photometry in system of Smith
* (1968MNRAS.138..109S, 1968MNRAS.140..409S), unless otherwise indicated.
*Note on b-v:
* b-v color in narrow-band photometry in system of Smith
* (1968MNRAS.138..109S, 1968MNRAS.140..409S), unless otherwise indicated.
*Note on r_RAh, r_SpType, r_Period, r_Mag:
* See note on r_Correl1.
*Note on NoteFlag:
* "*" if a note for this star is given in Table 1 of this document.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! 45 Central (WR) Stars of Planetary Nebulae
integer*4 nr__1
parameter (nr__1=45) ! Number of records
character*166 ar__1 ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs (Epoch=1950)
real*8 RAdeg_1 ! (deg) Right Ascension 1950, Epoch=1950
real*8 DEdeg_1 ! (deg) Declination 1950, Epoch=1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID ! [1/45]+ Running number of entry
character*11 Ident1 ! Identifier of central star of planetary nebula
character*10 Ident2 ! Identifier of planetary nebula
character*14 Ident3 ! Second identifier of planetary nebula
character*9 PK ! *Designation in Perek and Kouhoutek (1967)
integer*4 RAh_1 ! (h) *hours of right ascension (equinox 1950)
real*4 RAm_1 ! (min) minutes of right ascension (equinox 1950)
real*4 RAs_1 ! (s) ? seconds of right ascension (equinox 1950)
character*1 DE__1 ! sign of declination ("+" or "-")
integer*4 DEd_1 ! (deg) *degrees of declination (equinox 1950)
real*4 DEm_1 ! (arcmin) minutes of declination (equinox 1950)
real*4 DEs_1 ! (arcsec) ? seconds of declination (equinox 1950)
character*8 Sp1 ! *source - Perek and Kohoutek (1967)
character*6 Sp2 ! *source - Bohm (1968IAUS...34..297B)
character*11 Sp3 ! *source - Aller (1968IAUS...34..339A)
character*9 Sp4 ! *source - Smith and Aller (1969ApJ...157.1245S)
character*10 Sp5 ! *source - Aller (1976MSRSL...9..271A)
character*6 Sp6 ! *spectral type from some other source
character*1 l_Vmag ! *[>(] "(" may just mean left parenthesis
real*4 Vmag ! (mag) *? V magnitude
character*1 u_Vmag ! [:] Uncertainty flag on Vmag
character*29 Refs ! *Additional references
*Note on PK:
* Identifier of planetary nebula from Perek and Kohoutek (1967), based
* on galactic longitude and latitude.
*Note on RAh, DEd:
* Right ascension and Declination (epoch 1950). Equatorial coordinates
* are from Wackerling (1970MmRAS..73..153W), unless seconds of right
* ascension and arc seconds of declination are given, in which case they
* are from Barlow (1979, private communication.
*Note on Sp1, Sp2, Sp3, Sp4, Sp5, Sp6:
* Spectral types as given in various sources. The full forms of the
* references to each of the following fields are given in References of
* this document.
*Note on l_Vmag:
* The meaning of parenthesized magnitudes in the table9.dat was not
* stated by the authors.
*Note on Vmag:
* V magnitude described in bytes 129-136 is adopted from Aller
* (1976MSRSL...9..271A) or a source given in Refs (bytes 138-166).
*Note on Refs:
* Additional references. This field is a list of one- to three-digit
* numbers in the range 1-143 separated by commas. The numbers point
* to records in the reference file - see remarks.dat below.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'remarks.dat' ! An index for additional references
integer*4 nr__2
parameter (nr__2=143) ! Number of records
character*228 ar__2 ! Full-size record
integer*4 NoteID ! *[1/143]+ Running number of note or reference
character*224 Text ! *Reference or note
*Note on NoteID:
* Running number of note or reference (1-143). This number is referred
* to in the machine-readable versions of Tables VIII and IX of the
* catalogue, as described in table8.dat and table9.dat above.
*Note on Text:
* Usually, a reference in bibliographical format. Each reference is
* complete in one record. This field may also contain a note on an
* individual datum, if in the published catalogue the note is referred
* to in a column also used for literature sources.
C=============================================================================
C Loading file 'table8.dat' ! 159 Population I Galactic WR stars
C Format for file interpretation
1 format(
+ I3,A1,A5,1X,A12,A10,A1,I6,A2,A9,1X,A9,1X,I6,1X,A6,A11,1X,I4,
+ 1X,A5,1X,A18,A30,A16,A15,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,
+ 1X,I2,2X,I1,1X,F4.1,1X,A1,I2,1X,I2,1X,F6.2,1X,F6.2,1X,A12,1X,
+ F8.4,1X,A16,A1,F5.2,A1,1X,A1,F5.2,A1,2X,A3,1X,A7,1X,A7,1X,A3,
+ A1,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,159
read(1,'(A310)')ar__
read(ar__,1)
+ WR,m_WR,Name,Name1,Name2,n_HD,HD,m_HD,BD_CPD,CD,SAO,Hen,LS,
+ LSS,Name3,Correl1,Correl2,r_Correl1,r_Correl2,RAh,RAm,RAs,DE_,
+ DEd,DEm,DEs,precRAm,precRAs,precDE_,precDEm,precDEs,GLON,GLAT,
+ SpType,Period,Annotat,f_Mag,Mag,u_Mag,f_b_v,b_v,u_b_v,r_RAh,
+ r_SpType,r_Period,r_Mag,NoteFlag,WR2
if(ar__(34:39) .EQ. '') HD = iNULL__
if(ar__(62:67) .EQ. '') SAO = iNULL__
if(ar__(87:90) .EQ. '') LSS = iNULL__
if(ar__(241:248) .EQ. '') Period = 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(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ WR,m_WR,Name,Name1,Name2,n_HD,HD,m_HD,BD_CPD,CD,SAO,Hen,LS,
+ LSS,Name3,Correl1,Correl2,r_Correl1,r_Correl2,RAh,RAm,RAs,DE_,
+ DEd,DEm,DEs,precRAm,precRAs,precDE_,precDEm,precDEs,GLON,GLAT,
+ SpType,Period,Annotat,f_Mag,Mag,u_Mag,f_b_v,b_v,u_b_v,r_RAh,
+ r_SpType,r_Period,r_Mag,NoteFlag,WR2
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! 45 Central (WR) Stars of Planetary Nebulae
C Format for file interpretation
2 format(
+ I2,1X,A11,1X,A10,1X,A14,1X,A9,1X,I2,1X,F5.2,1X,F4.1,1X,A1,I2,
+ 1X,F4.1,1X,F4.1,A8,A6,A11,A9,A10,A6,A1,F5.2,A1,2X,A29)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,45
read(1,'(A166)')ar__1
read(ar__1,2)
+ ID,Ident1,Ident2,Ident3,PK,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,
+ DEm_1,DEs_1,Sp1,Sp2,Sp3,Sp4,Sp5,Sp6,l_Vmag,Vmag,u_Vmag,Refs
if(ar__1(61:64) .EQ. '') RAs_1 = rNULL__
if(ar__1(75:78) .EQ. '') DEs_1 = rNULL__
if(ar__1(130:134) .EQ. '') Vmag = rNULL__
RAdeg_1 = rNULL__
DEdeg_1 = 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 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ ID,Ident1,Ident2,Ident3,PK,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,
+ DEm_1,DEs_1,Sp1,Sp2,Sp3,Sp4,Sp5,Sp6,l_Vmag,Vmag,u_Vmag,Refs
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'remarks.dat' ! An index for additional references
C Format for file interpretation
3 format(I3,1X,A224)
C Effective file loading
open(unit=1,status='old',file=
+'remarks.dat')
write(6,*) '....Loading file: remarks.dat'
do i__=1,143
read(1,'(A228)')ar__2
read(ar__2,3)NoteID,Text
c ..............Just test output...........
write(6,3)NoteID,Text
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end