Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/331/81 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. J/A+A/331/81 Hyades membership (Perryman+ 1998)
*================================================================================
*The Hyades: distance, structure, dynamics, and age
* Perryman M.A.C., Brown A.G.A., Lebreton Y., Gomez A., Turon C.,
* Cayrel de Strobel G., Mermilliod J.C., Robichon N., Kovalevsky J.,
* Crifo F.
* <Astron. Astrophys. 331, 81 (1998)>
* =1998A&A...331...81P (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Data on the membership of the Hyades for the
282 stars in the sample of Perryman et al.
integer*4 nr__
parameter (nr__=282) ! Number of records
character*107 ar__ ! Full-size record
integer*4 HIP (nr__) ! Hipparcos Catalogue (HIP, Cat. <I/239>) number
integer*4 vB (nr__) ! ? van Bueren number (1952BAN....11..385V)
character*1 n_vB (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembvB (nr__) ! [0/1]? Membership according to van Bueren (1)
integer*4 vA (nr__) ! ? van Altena number (1969AJ.....74....2V)
character*1 n_vA (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembvA (nr__) ! [0/1]? Membership according to van Altena (1)
integer*4 Han (nr__) ! ? Hanson number (1975, Cat. <J/AJ/80/379>)
character*1 n_Han (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembHan (nr__) ! [0/1]? Membership according to Hanson (1)
integer*4 Pel (nr__) ! ? Pels et al. (1975A&A....43..423P) (Leiden)
* number, van Bueren stars have the
* vB number + 1000
character*1 n_Pel (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembPel (nr__) ! [0/1]? Membership according to Pels et al. (1)
integer*4 Grif (nr__) ! ? Sequential number in Table4 of
* Griffin et al. (1988AJ.....96..172G)
character*1 n_Grif (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembGrif (nr__) ! [0/1]? Membership according to Griffin et al. (1)
integer*4 Scha (nr__) ! ? Schwan number (1991A&A...243..386S)
character*1 n_Scha (nr__) ! [n] n: new candidate proposed in this paper
integer*4 MembScha (nr__) ! [0/1]? Membership according to Schwan (1)
real*8 plx (nr__) ! (mas) Hipparcos parallax (milliarcsec=mas)
real*4 e_plx (nr__) ! (mas) Hipparcos parallax standard error
real*8 RV (nr__) ! (km/s) ? Radial velocity
character*1 u_RV (nr__) ! [?] Uncertainty flag on RV
character*1 n_RV (nr__) ! [#] # indicates SB/RV with undetermined gamma
* velocity
real*4 e_RV (nr__) ! (km/s) ? Error in radial velocity
integer*4 r_RV (nr__) ! ? Source of radial velocity (2)
character*2 Note (nr__) ! [SB RV] SB: spectroscopic binary,
* RV: radial velocity (possibly) variable
character*1 Note2 (nr__) ! [HIM] Historical status flag (3)
character*3 Note3 (nr__) ! [CGOVX S/] Double/Multiple Systems flag (4)
real*4 Dist (nr__) ! (pc) Distance from the cluster centre defined by
* the 134 stars within r<10 pc (see Table 3)
real*8 Stat (nr__) ! Kinematic statistic (5)
character*1 Memb (nr__) ! [0/1?] Final membership assigned in this paper
* `?' indicates possible new members
* unclassifiable due to unknown radial velocities
*Note (1): Data on the membership of the Hyades for the 282 stars in our sample,
* listed by various authors. Membership or non-membership inferred by
* the relevant authors are indicated by `1' or `0' in the corresponding
* column respectively (see paper for details).
*Note (2): Sources of radial velocities:
* (0) Radial velocity unknown;
* (1) Griffin et al., 1988AJ.....96..172G
* 1985AJ.....90..609G
* 1981AJ.....86..588G
* 1978AJ.....83.1114G
* 1977AJ.....82..176G
* 1982A&A...106..221G
* (2) Hipparcos Input Catalogue, Cat. <I/196> (mainly from
* R.E. Wilson, 1953, Cat. <III/21>)
* (3) Weighted mean of ref. 2 (39.6+/-1.2) and
* Kraft, 1965ApJ...142..681K (38.4+/-1.5)
* (4) Kraft, 1965ApJ...142..681K (37.4+/-0.4 and 36.5+/-0.5)
* Cheriguene, 1971A&A....13..447C (37.3+/-0.7)
* (5) McClure, 1982ApJ...254..606M
* (6) Torres et al., 1997ApJ...474..256T
* (7) Mayor & Mazeh, 1987A&A...171..157M
* (8) Kraft, 1965ApJ...142..681K
* (9) Margoni et al., 1992A&AS...93..545M
* (10) Lucy & Sweeney, 1971AJ.....76..544L
* (11) Abt & Levy, 1985ApJS...59..229A
* (12) Griffin, 1971MNRAS.155....1G
* (13) Andersen & Nordstrom, 1983A&A...122...23A
* (14) Morse et al., 1991AJ....101.1495M
* (15) Detweiler et al., 1984AJ.....89.1038D
* (16) Weighted mean of data from Palmer et al., 1968RGOB..135..385P
* and Stillwell, 1948PDAO....7..337S
* (17) Tomkin et al., 1995AJ....109..780T
* (18) Heintz, 1981ApJS...46..247H
* (19) Abt, 1965ApJS...11..429A
* (20) Fekel, 1980PASP...92..785F
* (21) Perraud, 1962JO.....45..361P
* (22) Fouts & Sandage, 1986AJ.....91.1189F, Cat. <III/144> (star G83-18)
* (23) Strassmeier et al., 1988A&AS...72..291S, See Cat. <V/76>
* (24) New Coravel observations provided by J.C. Mermilliod
* (25) Woolley et al., 1971ROAn...14....1W
* (26) Hanson & Vasilevskis, 1983AJ.....88..844H
* (27) Evans, 1978BICDS..15..121E
* (28) Orbit recomputed by Mermilliod with period=490+/-1d (from Batten)
*Note (3): Star was previously known, or classified by Hipparcos, to have
* resolved components (from Field H56, Cat. <I/239>); this may overlap
* with the flag in the next column, but may also indicate visual
* or wide binary (see paper for details)
* H : determined multiple by Hipparcos, previously unknown
* I : system previously identified as multiple in HIC <I/196> (annex1)
* M : miscellaneous (system identified after publication of HIC)
*Note (4): C, G, O, V, or X = relevant part of the Hipparcos Double and Multiple
* Systems Annex, from Field H59 (Cat. <I/239>),
* C: solutions for the components
* G: acceleration or higher order terms
* O: orbital solutions
* V: variability-induced movers (apparent motion arises from variability)
* X: stochastic solution (probably astrometric binaries with short period)
* supplemented by S = suspected binary in Hipparcos Catalogue, from Field H61,
* Cat. <I/239>, (see paper for details)
*Note (5): A value of 14.16 corresponding to 3{sigma}, see paper for details.
C=============================================================================
C Loading file 'table2.dat' ! Data on the membership of the Hyades for the
* 282 stars in the sample of Perryman et al.
C Format for file interpretation
1 format(
+ I5,1X,I3,A1,1X,I1,1X,I3,A1,1X,I1,1X,I3,A1,1X,I1,1X,I4,A1,1X,
+ I1,1X,I3,A1,1X,I1,1X,I3,A1,1X,I1,1X,F7.2,1X,F6.2,1X,F7.2,A1,
+ A1,F4.2,2X,I2,1X,A2,1X,A1,1X,A3,1X,F6.1,1X,F7.2,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,282
read(1,'(A107)')ar__
read(ar__,1)
+ HIP(i__),vB(i__),n_vB(i__),MembvB(i__),vA(i__),n_vA(i__),
+ MembvA(i__),Han(i__),n_Han(i__),MembHan(i__),Pel(i__),
+ n_Pel(i__),MembPel(i__),Grif(i__),n_Grif(i__),MembGrif(i__),
+ Scha(i__),n_Scha(i__),MembScha(i__),plx(i__),e_plx(i__),
+ RV(i__),u_RV(i__),n_RV(i__),e_RV(i__),r_RV(i__),Note(i__),
+ Note2(i__),Note3(i__),Dist(i__),Stat(i__),Memb(i__)
if(ar__(7:9) .EQ. '') vB(i__) = iNULL__
if(ar__(12:12) .EQ. '') MembvB(i__) = iNULL__
if(ar__(14:16) .EQ. '') vA(i__) = iNULL__
if(ar__(19:19) .EQ. '') MembvA(i__) = iNULL__
if(ar__(21:23) .EQ. '') Han(i__) = iNULL__
if(ar__(26:26) .EQ. '') MembHan(i__) = iNULL__
if(ar__(28:31) .EQ. '') Pel(i__) = iNULL__
if(ar__(34:34) .EQ. '') MembPel(i__) = iNULL__
if(ar__(36:38) .EQ. '') Grif(i__) = iNULL__
if(ar__(41:41) .EQ. '') MembGrif(i__) = iNULL__
if(ar__(43:45) .EQ. '') Scha(i__) = iNULL__
if(ar__(48:48) .EQ. '') MembScha(i__) = iNULL__
if(ar__(65:71) .EQ. '') RV(i__) = rNULL__
if(ar__(74:77) .EQ. '') e_RV(i__) = rNULL__
if(ar__(80:81) .EQ. '') r_RV(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ HIP(i__),vB(i__),n_vB(i__),MembvB(i__),vA(i__),n_vA(i__),
+ MembvA(i__),Han(i__),n_Han(i__),MembHan(i__),Pel(i__),
+ n_Pel(i__),MembPel(i__),Grif(i__),n_Grif(i__),MembGrif(i__),
+ Scha(i__),n_Scha(i__),MembScha(i__),plx(i__),e_plx(i__),
+ RV(i__),u_RV(i__),n_RV(i__),e_RV(i__),r_RV(i__),Note(i__),
+ Note2(i__),Note3(i__),Dist(i__),Stat(i__),Memb(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end