Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/110/2288 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-20
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/176 RR Lyrae Metallicities (Layden 1994)
*================================================================================
*RR Lyrae data II. The Metallicities and Kinematics of Local RR Lyrae
* Layden A.C.
* <Astron. J. 110, 2288 (1995)>
* =1995AJ....110.2288L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Data for RR Lyrae stars
integer*4 nr__
parameter (nr__=302) ! Number of records
character*79 ar__ ! Full-size record
character*8 Name (nr__) ! Variable star name (as in GCVS4)
real*4 Fe_H (nr__) ! ([Sun]) *Metal abundance [Fe/H]
character*1 u_Fe_H (nr__) ! Uncertainty flag (:)
real*4 e_Fe_H (nr__) ! ([Sun]) Estimated error in [Fe/H]
integer*4 o_Fe_H (nr__) ! Number of spectra used for [Fe/H] estimate
real*4 mag (nr__) ! (mag) Intensity-averaged magnitude (B or V)
character*1 r_mag (nr__) ! Reference of magnitude (see source reference)
character*1 n_mag (nr__) ! [BVpv] band (p=photographic, v=photovisual)
real*4 abs (nr__) ! (mag) *Interstellar absorption in V
real*4 dist (nr__) ! (kpc) Distance from Sun
real*4 e_dist (nr__) ! (kpc) Estimated error in distance
real*4 Zpos (nr__) ! (kpc) Distance from the Galactic plane
real*4 Rpos (nr__) ! (kpc) Distance from the Galactic center
integer*4 RVm (nr__) ! (km/s) Measured systemic radial velocity
integer*4 e_RVm (nr__) ! (km/s) Estimated error in measured radial velocity
integer*4 o_RVm (nr__) ! Number of spectra used for radial velocity
integer*4 n_RVf (nr__) ! *[1,3] Radial velocity combination method
integer*4 RVf (nr__) ! (km/s) *Final systemic radial velocity
integer*4 e_RVf (nr__) ! (km/s) Estimated error in final radial velocity
character*1 u_RVf (nr__) ! *Measured and published disagreement
*Note on Fe/H:
* On the Zinn & West scale (1984ApJS...55...45Z)
*Note on abs:
* From Burstein & Heiles (1982AJ.....87.1165B)
*Note on RVf:
* A combination of RVm, and values from the literature
*Note on u_RVf:
* A colon indicates the measured and literature velocity estimates
* disagree by more than the quoted error (e_RVf). The quoted error
* may be too small.
*Note on n_RVf:
* See section 3.13 of paper I(1994AJ....108.1016L):
* 1 indicates a systemic velocity from fitted radial veolcity curve;
* 2 indicates that several spectra of the star were used;
* 3 indicates that only one spectrum was available for that star.
C=============================================================================
C Loading file 'table1.dat' ! Data for RR Lyrae stars
C Format for file interpretation
1 format(
+ A8,1X,F5.2,A1,1X,F4.2,1X,I1,1X,F5.2,A1,1X,A1,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F5.2,1X,F5.2,1X,I4,1X,I2,I2,1X,I1,1X,I4,1X,I2,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,302
read(1,'(A79)')ar__
read(ar__,1)
+ Name(i__),Fe_H(i__),u_Fe_H(i__),e_Fe_H(i__),o_Fe_H(i__),
+ mag(i__),r_mag(i__),n_mag(i__),abs(i__),dist(i__),e_dist(i__),
+ Zpos(i__),Rpos(i__),RVm(i__),e_RVm(i__),o_RVm(i__),n_RVf(i__),
+ RVf(i__),e_RVf(i__),u_RVf(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),Fe_H(i__),u_Fe_H(i__),e_Fe_H(i__),o_Fe_H(i__),
+ mag(i__),r_mag(i__),n_mag(i__),abs(i__),dist(i__),e_dist(i__),
+ Zpos(i__),Rpos(i__),RVm(i__),e_RVm(i__),o_RVm(i__),n_RVf(i__),
+ RVf(i__),e_RVf(i__),u_RVf(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end