Conversion of standardized ReadMe file for
file /./ftp/cats/II/82 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-Oct-07
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/82 Galactic O-type Stars (Garmany+ 1982)
*================================================================================
*Catalog of Catalog of galactic O-type Stars
* Garmany C.D., Conti. P.S., Chiosi C.
* <Astrophys. J. 263, 777 (1982)>
* =1982ApJ...263..777G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Catalog of Galactic O-type stars
integer*4 nr__
parameter (nr__=765) ! Number of records
character*78 ar__ ! Full-size record
C Position composed of: GLONd GLONm GLAT- GLATd GLATm
character*18 ID ! *Star identification
character*1 new_Sp ! *[ *] New spectral type = *
character*9 Sp ! *Spectral Type
real*4 Vmag ! (mag) *V magnitude
real*4 B_V ! (mag) *B-V
real*4 M_V ! (mag) *Absolute visual magnitude
real*4 Mbol ! (mag) *Absolute bolometric magnitude
integer*4 Cl_mem ! *?Code for cluster or association membership
real*4 Dist ! (kpc) *Distance from star's distance modulus
integer*4 GLONd ! (deg) *Galactic longitude (whole degrees)
integer*4 GLONm ! (arcmin) *Galactic longitude (arc minutes)
character*1 GLAT_ ! *[+-] Galactic latitude sign
integer*4 GLATd ! (deg) *Galactic latitude (whole degrees)
integer*4 GLATm ! (arcmin) *Galactic latitude (arcmin)
integer*4 r_ID ! *?code for primary source
integer*4 r_Cl_mem ! *?code for additional cluster membership
integer*4 r_Sp ! *?code for additional spectral types
integer*4 r_Vmag ! *?code for additional photometry,
*Note on ID:
* Star identification: Henry Draper Catalogue (HD) number;
* Durchmusterung (DM) number; miscellaneous designations. Bytes 1-8
* give the alphanumeric part of the catalog, cluster or miscellaneous
* designation; bytes 9-16 give the number of the star, and bytes 17-18
* give component identifications where applicable. References for
* miscellaneous designations are:
*
* Designation Reference
* ------------ --------------------------------------------
* GEORG Georgelin, Georgelin and Roux (1973).
* HILTNER Hiltner and Johnson (1956); Hiltner (1956).
* LS I Hardorp et al. (1959).
* LS II Stock et al. (1960).
* LS III Hardorp et al. (1964).
* LS IV Nassau and Stephenson (1963).
* LS V Hardorp et al. (1965).
* LS VI Nassau et al. (1965).
* LSS Stephenson and Sanduleak (1971).
* MILL Miller (1972).
* MART Martin (1967).
* S Sharpless (1959).
* ------------ --------------------------------------------
*
* The format of the star identification field is entirely uniform within
* each type of identification, so the catalog can be sorted by name
* field and all HD, DM, NGC, etc. identifications will be ordered
* together properly. Alternate format specifications are given in
* parentheses.
*Note on new_Sp:
* An asterisk (*) if the spectral type given is new and based upon
* either 63 A/mm or 79 A/mm spectra taken at Kitt Peak National
* Observatory. Blank if spectral type was taken from the literature.
*Note on Sp:
* Spectral type according to r_ID or r_Sp
*Note on Vmag, B-V:
* V, and B-V according to r_ID or r_Vmag
*Note on M(V):
* Absolute visual magnitude, M(V), taken from the primary source given
* in r_ID or from Conti's (1975) calibration of spectral type and M(V).
*Note on Mbol:
* Absolute bolometric magnitude computed using Conti's (1975)
* temperature scale and Morton's (1969) bolometric corrections as a
* function of temperature.
*Note on Cl_mem:
* Code for cluster or association membership, as listed below. Blank for
* presumed field stars.
*
* Code Group Code Group
* ---- ------------------------ ---- -----------------
* 1 Sgr OB1 43 NGC 2129
* 2 Sgr OB7 44 Gem OB1
* 3 Sgr OB4 45 Mon OB1
* 4 Sgr OB6 46 Ori OB1
* 5 Ser OB1 47 Mon OB2
* 6 Sct OB3 48 CMa OB1
* 7 Ser OB2, NGC 6604 49 Cr 121
* 8 Sct OB2 50 NGC 2414
* 9 Cr 359 51 NGC 2362
* 10 Vul OB1 52 NGC 2439
* 11 Vul OB4 53 Pup OB1
* 12 Cyg OB3 54 Vel OB1
* 13 Cyg OB1 55 Car OB1
* 14 Cyg OB8 56 TR 14
* 15 Cyg OB9 57 TR 15
* 16 Cyg OB2 58 TR 16
* 17 Cyg OB4 59 Cr 228
* 18 Cyg OB7 60 Car OB2
* 19 NGC 6991 61 NGC 3576
* 20 Lac OB1 62 NGC 3766
* 21 Cep OB2, TR 37 nucleus 63 Cru OB1
* 22 Cep OB1 64 Cen OB1
* 23 NGC 7235 65 R 80
* 24 Cep OB5 66 Pis 20
* 25 Cep OB3 67 Nor OB1
* 26 Cas OB2 68 NGC 6067
* 27 Cas OB5 69 R 103
* 28 Cep OB4 70 R 105
* 29 Cas OB4 71 Ara OB1a
* 30 Cas OB14 72 NGC 6204
* 31 Cas OB7 73 Ara OB1b
* 32 Cas OB1 74 Sco OB1
* 33 NGC 457 75 Sco OB2
* 34 Cas OB8 76 HD 156154 group
* 35 Per OB1 77 M 6
* 36 Cas OB6 78 Sgr OB5
* 37 Cam OB1 79 zeta Pup
* 38 Per OB3 80 BO 4&5
* 39 Cam OB3 81 NGC 3572
* 40 Per OB2 82 Hogg 10
* 41 Aur OB1 83 Lynga 14
* 42 Aur OB2 84 NGC 6322
* ---- ------------------------ ---- -----------------
*Note on Dist:
* Distance computed from star's distance modulus, assuming an
* interstellar absorption of A(V)=3E(B-V).
*Note on GLONd, GLAT-, GLATd, GLONm, GLATm:
* The galactic longitude and latitude are given in whole degrees and
* arc minutes rather than the frequently used decimal degrees. The sign
* of the Galactic latitude is always in byte 68.
*Note on r_ID:
* The following list are references for the codes for primary source,
* additional cluster membership, additional spectral types, and
* additional photometry. The additional sources were generally used
* in cases where the data were missing or inadequate in the primary
* source or where there is disagreement among the papers consulted.
*
* Primary source (byte 75)
*
* Code Reference
* ---- ---------------------------------------
* 1 Cruz-Gonzalez et al. (1974).
* 2 Garrison, Hiltner and Schild (1977).
* 3 Humphreys (1978).
* 4 Garrison and Kormendy (1976).
* Garrison and Schild (1979).
* 5 Feinstein, Marraco and Muzzio (1973).
* Feinstein, Marraco and Forte (1976).
* 6 Moffat, FitzGerald and Jackson (1979).
* ---- ---------------------------------------
*Note on r_Cl_mem:
* Additional cluster membership (byte 76)
*
* Code Reference
* ---- ---------------------------------------
* 1 Conti and Alschuler (1971).
* 2 Moffat and Vogt (1975).
* 3 Humphreys (1978).
* ---- ---------------------------------------
*Note on r_Sp:
* Additional spectral types (byte 77)
*
* Code Reference
* ---- ---------------------------------------
* 2 Garrison, Hiltner and Schild (1977).
* ---- ---------------------------------------
*Note on r_Vmag:
* Additional photometry (byte 78)
*
* Code Reference
* ---- ---------------------------------------
* 4 Klare and Neckel (1977).
* 5 Feinstein, Marraco and Forte (1976).
* 6 Guetter (1974).
* ---- ---------------------------------------
C=============================================================================
C Loading file 'catalog.dat' ! Catalog of Galactic O-type stars
C Format for file interpretation
1 format(
+ A18,A1,A9,F5.2,1X,F5.2,1X,F5.2,1X,F6.2,1X,I2,1X,F4.1,1X,I3,1X,
+ I2,A1,I2,1X,I2,1X,I1,I1,I1,I1)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,765
read(1,'(A78)')ar__
read(ar__,1)
+ ID,new_Sp,Sp,Vmag,B_V,M_V,Mbol,Cl_mem,Dist,GLONd,GLONm,GLAT_,
+ GLATd,GLATm,r_ID,r_Cl_mem,r_Sp,r_Vmag
if(ar__(54:55) .EQ. '') Cl_mem = iNULL__
if(ar__(75:75) .EQ. '') r_ID = iNULL__
if(ar__(76:76) .EQ. '') r_Cl_mem = iNULL__
if(ar__(77:77) .EQ. '') r_Sp = iNULL__
if(ar__(78:78) .EQ. '') r_Vmag = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,new_Sp,Sp,Vmag,B_V,M_V,Mbol,Cl_mem,Dist,GLONd,GLONm,GLAT_,
+ GLATd,GLATm,r_ID,r_Cl_mem,r_Sp,r_Vmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end