Conversion of standardized ReadMe file for
file /./ftp/cats/III/18B 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-Jun-13
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/18B Stellar Spectra Classified in Morgan-Keenan System (Jaschek+ 1964)
*================================================================================
*Catalogue of Stellar Spectra Classified in the Morgan-Keenan System
* Jaschek C., Conde H., de Sierra, A.C.
* <Publ. La Plata Obs., Ser. Astron. 28, No. 2 (1964)>
* =1964PLPla..28....1J
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'mkclass.dat' ! Catalog Data
integer*4 nr__
parameter (nr__=20849) ! Number of records
character*125 ar__ ! Full-size record
C B1900 position composed of: RArad DErad
integer*4 count (nr__) ! *Counter within a group of records
integer*4 HD (nr__) ! ?HD number
character*5 m_HD (nr__) ! Additional designation or alternate number
character*10 DM (nr__) ! Ducrhmusterung designation
character*3 m_DM (nr__) ! Additional designation
character*11 name (nr__) ! Alternative name
integer*4 RAh (nr__) ! (h) Right ascension hours (1900.0)
real*4 RAm (nr__) ! (min) Right ascension minutes (1900.0)
character*1 DE_ (nr__) ! Sign of declination
integer*4 DEd (nr__) ! (deg) Declination degrees (1900.0)
integer*4 DEm (nr__) ! (arcmin) Declination minutes (1900.0)
real*4 mag (nr__) ! (mag) *?Magnitude (accuracy is uncertain)
character*19 Sp (nr__) ! *MK Spectral type
character*24 note (nr__) ! *References and notes
character*1 com (nr__) ! [* ] Asterisk indicates corrected value
real*8 RArad (nr__) ! (rad) Right ascension (B1900) in radians
real*8 DErad (nr__) ! (rad) Declination (B1900) in radians
integer*4 cnt (nr__) ! *Counter from hard copy catalog
*Note on count:
* For any given star there may be as many as 11 records. The first
* record of such a group gives a spectral classification and
* references, while subsequent records may be used merely to continue
* the list of references which gave that classification, or
* subsequent records are used to give different classifications
* (and associated references) for the given star.
*Note on mag:
* For identification purposes only
* Two stars have non-digits in the magnitude field.
* GM Per (line 3704) has the magnitude 9.0)
* HD 38268 (line 5015) has NEB in the magnitude column
*Note on Sp:
* Peculiar objects are generally included; subdwarfs listed occasionally;
* N, R, and S stars usually mentioned; white dwarfs omitted.
*Note on note:
* Each reference is given as a three digit integer followed by a blank.
* The notes are coded as follows:
* V variable
* SB spectroscopic binary
* VB visual binary
* TS triple system
*Note on cnt:
* A counter which sequentially numbers the entries in the
* hardcopy. The records in the machine readable version have
* been reordered by right ascension (1900).
C=============================================================================
C Loading file 'mkclass.dat' ! Catalog Data
C Format for file interpretation
1 format(
+ I2,1X,I6,A5,A10,A3,A11,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X,
+ A19,1X,A24,A1,F8.4,F8.4,I6)
C Effective file loading
open(unit=1,status='old',file=
+'mkclass.dat')
write(6,*) '....Loading file: mkclass.dat'
do i__=1,20849
read(1,'(A125)')ar__
read(ar__,1)
+ count(i__),HD(i__),m_HD(i__),DM(i__),m_DM(i__),name(i__),
+ RAh(i__),RAm(i__),DE_(i__),DEd(i__),DEm(i__),mag(i__),Sp(i__),
+ note(i__),com(i__),RArad(i__),DErad(i__),cnt(i__)
if(ar__(4:9) .EQ. '') HD(i__) = iNULL__
if(ar__(54:57) .EQ. '') mag(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ count(i__),HD(i__),m_HD(i__),DM(i__),m_DM(i__),name(i__),
+ RAh(i__),RAm(i__),DE_(i__),DEd(i__),DEm(i__),mag(i__),Sp(i__),
+ note(i__),com(i__),RArad(i__),DErad(i__),cnt(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end