Conversion of standardized ReadMe file for
file /./ftp/cats/V/88 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 2024-Apr-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__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. V/88 Averaged [Fe/H] for Cool Dwarfs (Taylor, 1995)
*================================================================================
*Analyses of Archival Data for Cool Dwarfs. V. an Annotated Catalog
*of Averaged Values of [Fe/H]
* Taylor B.J.
* <PASP, 106, 704 (1994)>
* =1994PASP..106..704T
*Analyses of Archival Data for Cool Dwarfs. VI. The 1993 Versions
*of the Temperature and [Fe/H] Catalogs
* Taylor B.J.
* <PASP, 107, 734 (1995)>
* =1995PASP..107..734T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fehd.dat' ! The [Fe/H] catalog
integer*4 nr__
parameter (nr__=497) ! Number of records
character*78 ar__ ! Full-size record
character*2 prefix (nr__) ! "vB" for Hyades stars, "Tr" for Coma stars
character*1 BD_CD (nr__) ! [ +-] "+" or "-" for BD stars, blank otherwise
integer*4 BD_HD (nr__) ! Catalog number (HD if no other labeling)
character*1 m_BD_HD (nr__) ! *Binary component or other note
integer*4 com (nr__) ! *?Comment number (see "comment.dat")
character*1 W (nr__) ! "W" for number in Woolley et al. 1970 catalog
character*4 HR_W (nr__) ! HR number or Woolley et al. catalog number
real*8 v_Fe_H_ (nr__) ! ([Sun]) Mean value of [Fe/H] in dex
real*4 e__Fe_H_ (nr__) ! ([Sun]) Standard deviation [Fe/H] in dex
real*4 nu (nr__) ! Degrees of freedom for standard deviation
integer*4 Nref (nr__) ! Number of references (max = 10)
character*40 Refs (nr__) ! Reference numbers (see file "refs.dat"),
* as 10(1X,I3)
*Note on com:
* 1 The D index is smaller than predicted from [Fe/H]
* (see 19941994PASP..106..600T)
* 2 [Fe/H] may be below the catalog limit (see 1994PASP..106..590T)
* 3 See reference 221 for an alternative value of [Fe/H]
* 4 A reference 221 datum is included (compare refs. 221 and 570
* for HD 155885/6)
*Note on m_BD/HD:
* For binaries: "A" if primary, "B" if secondary.
* For single stars: "V" denotes VSL star or possible SMR star,
* and "C" denotes a comment
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! Reference numbers, literature sources
integer*4 nr__1
parameter (nr__1=136) ! Number of records
character*80 ar__1 ! Full-size record
integer*4 RefNo (nr__1) ! Reference number (see file "fehd.dat")
integer*4 Nl (nr__1) ! ? If reference requires more than 1 line,
* this byte contains the total number of
* lines for the reference.
character*75 Text (nr__1) ! Literature reference in "PASP" style
*--------------------------------------------------------------------------------
*
* If there are comments or questions, please contact:
* Benjamin J. Taylor
* Physics and Astronomy Department, ESC Tel.: 801-378-2233
* Brigham Young University FAX: 801-378-2265
* Provo, UT 84602
C=============================================================================
C Loading file 'fehd.dat' ! The [Fe/H] catalog
C Format for file interpretation
1 format(A2,A1,I6,A1,I1,A1,A4,F7.3,F6.3,F5.1,I4,A40)
C Effective file loading
open(unit=1,status='old',file=
+'fehd.dat')
write(6,*) '....Loading file: fehd.dat'
do i__=1,497
read(1,'(A78)')ar__
read(ar__,1)
+ prefix(i__),BD_CD(i__),BD_HD(i__),m_BD_HD(i__),com(i__),
+ W(i__),HR_W(i__),v_Fe_H_(i__),e__Fe_H_(i__),nu(i__),Nref(i__),
+ Refs(i__)
if(ar__(11:11) .EQ. '') com(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ prefix(i__),BD_CD(i__),BD_HD(i__),m_BD_HD(i__),com(i__),
+ W(i__),HR_W(i__),v_Fe_H_(i__),e__Fe_H_(i__),nu(i__),Nref(i__),
+ Refs(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! Reference numbers, literature sources
C Format for file interpretation
2 format(I3,1X,I1,A75)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,136
read(1,'(A80)')ar__1
read(ar__1,2)RefNo(i__),Nl(i__),Text(i__)
if(ar__1(5:5) .EQ. '') Nl(i__) = iNULL__
c ..............Just test output...........
write(6,2)RefNo(i__),Nl(i__),Text(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end