Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/115/168 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 2024-Apr-16
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. J/AJ/115/168 Kinematics of red giant and RR Lyrae stars (Chiba+ 1998)
*================================================================================
*Early evolution of the Galactic halo revealed from Hipparcos observations of
*metal-poor stars
* Chiba M., Yoshii Y.
* <Astron. J. 115, 168 (1998)>
* =1998AJ....115..168C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Program stars
integer*4 nr__
parameter (nr__=298) ! Number of records
character*127 ar__ ! Full-size record
character*2 Type ! [RG] Type of the stars, as
* RG = Red giants; RR = RR Lyrae
integer*4 HIC_P ! HIC or HIP (Cat. I/239) number
character*12 Name ! Other name
real*4 plx ! (mas) Trigonometric parallax
real*4 e_plx ! (mas) rms uncertainty on plx
real*8 pmRA_ ! (mas/yr) Proper motion in RA time cos{delta}
real*4 e_pmRA_ ! (mas/yr) rms uncertainty on pmRA*
real*8 pmDE ! (mas/yr) Proper motion in DE
real*4 e_pmDE ! (mas/yr) rms uncertainty on pmDE
real*4 Dist ! (kpc) ? Photometric heliocentric distance
real*4 e_Dist ! (kpc) ? rms uncertainty on Dist
real*4 v_Fe_H_ ! ([Sun]) ? Metallicity
real*4 e__Fe_H_ ! ([Sun]) ? rms uncertainty on [Fe/H]
real*8 RV ! (km/s) ? Radial velocity
real*4 e_RV ! (km/s) ? rms uncertainty on RV
real*4 pmRAo ! (arcsec/yr) ? Old proper motion in RA
real*4 pmDEo ! (arcsec/yr) ? Old proper motion in DE
character*2 rf1 ! References for Dist and [Fe/H] (1)
character*5 rf2 ! References for RV (2)
integer*4 rf3 ! ? References for proper motions (3)
*Note (1): References for Dist and [Fe/H] as follows:
* 1 = Anthony-Twarog & Twarog, 1994AJ....107.1577A, Cat. J/AJ/107/1577
* 1s = Spectroscopic abundances compiled by Anthony-Twarog & Twarog, 1994
* 2 = Bond, 1980ApJS...44..517B
* 2s = Spectroscopic abundances compiled by Anthony-Twarog & Twarog, 1994
* 3 = Layden, 1994AJ....108.1016L, Cat. J/AJ/108/1016
* 4 = Layden et al., 1996AJ....112.2110L
*Note (2): References of radial velocity as follows:
* 1 = Bond 1980ApJS...44..517B
* 2 = Carney & Latham, 1986AJ.....92...60C
* 3 = Norris, Bessell & Pickles, 1985
* 4 = Barbier-Brossat, 1989A&AS...80...67B, Cat. III/161
* 5 = Wilson, 1953, Cat. III/21
* 6 = Evans, 1978BICDS..15..121J, Cat. III/42
* 7 = Griffin et al., 1982MNRAS.198..637G
* 8 = Papers quoted by Bond, 1980ApJS...44..517B
* 9 = Layden, 1994AJ....108.1016L, Cat. J/AJ/108/1016
*Note (3): References of proper motion as follows:
* 1 = Lick Northern Proper Motion Catalogue, Cat. I/199
* 2 = Hipparcos Input Catalogue, Cat. I/196
* 3 = Wan, Mao & Ji, 1980, Ann. Shanghai Obs., 2, 1
C=============================================================================
C Loading file 'table1.dat' ! Program stars
C Format for file interpretation
1 format(
+ A2,1X,I6,1X,A12,1X,F6.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,
+ F5.2,1X,F5.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,F7.2,1X,F5.2,1X,F6.3,
+ 1X,F6.3,1X,A2,1X,A5,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,298
read(1,'(A127)')ar__
read(ar__,1)
+ Type,HIC_P,Name,plx,e_plx,pmRA_,e_pmRA_,pmDE,e_pmDE,Dist,
+ e_Dist,v_Fe_H_,e__Fe_H_,RV,e_RV,pmRAo,pmDEo,rf1,rf2,rf3
if(ar__(65:69) .EQ. '') Dist = rNULL__
if(ar__(71:75) .EQ. '') e_Dist = rNULL__
if(ar__(77:81) .EQ. '') v_Fe_H_ = rNULL__
if(ar__(83:86) .EQ. '') e__Fe_H_ = rNULL__
if(ar__(88:94) .EQ. '') RV = rNULL__
if(ar__(96:100) .EQ. '') e_RV = rNULL__
if(ar__(102:107) .EQ. '') pmRAo = rNULL__
if(ar__(109:114) .EQ. '') pmDEo = rNULL__
if(ar__(125:125) .EQ. '') rf3 = iNULL__
c ..............Just test output...........
write(6,1)
+ Type,HIC_P,Name,plx,e_plx,pmRA_,e_pmRA_,pmDE,e_pmDE,Dist,
+ e_Dist,v_Fe_H_,e__Fe_H_,RV,e_RV,pmRAo,pmDEo,rf1,rf2,rf3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end