Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/381/446 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-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. J/A+A/381/446 Astrometric Radial Velocities. III. (Madsen+, 2002)
*================================================================================
*Astrometric Radial Velocities.
*III. Hipparcos Measurements of nearby star clusters and associations.
* Madsen S., Dravins D., Lindegren L.
* <Astron. Astrophys. 381, 446 (2002)>
* =2002A&A...381..446M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Kinematic data for 11 clusters and associations
integer*4 nr__
parameter (nr__=11) ! Number of records
character*204 ar__ ! Full-size record
C J2000 position composed of: RA0deg DE0deg
character*1 t2 ! [a-j] indicates which table2 lists the stars
character*21 Name ! *Name of cluster or association
integer*4 Nacc ! Number of stars accepted in the solution
integer*4 Nrej ! Number of stars rejected in the solution
real*4 v0x ! (km/s) *Space velocity component on equatorial X axis
real*4 e_v0x ! (km/s) *Standard error in v0x
real*4 v0y ! (km/s) *Space velocity component on equatorial Y axis
real*4 e_v0y ! (km/s) *Standard error in v0y
real*4 v0z ! (km/s) *Space velocity component on equatorial Z axis
real*4 e_v0z ! (km/s) *Standard error in v0z
real*4 sigv ! (km/s) *Internal velocity dispersion
real*4 e_sigv ! (km/s) *Standard error of sigv
real*4 RA0deg ! (deg) *Right ascension (J2000) of cluster centroid
real*4 DE0deg ! (deg) *Declination (J2000) of cluster centroid
real*4 v0r ! (km/s) *Astrometric radial velocity of centroid
real*4 e_v0r ! (km/s) *Standard error of v0r
real*8 cxx ! (km2/s2) *Covariance of (v0x,v0x)
real*8 cxy ! (km2/s2) *Covariance of (v0x,v0y)
real*8 cxz ! (km2/s2) *Covariance of (v0x,v0z)
real*8 cyy ! (km2/s2) *Covariance of (v0y,v0y)
real*8 cyz ! (km2/s2) *Covariance of (v0y,v0z)
real*8 czz ! (km2/s2) *Covariance of (v0z,v0z)
real*4 RAcdeg ! (deg) *Right ascension (J2000) of convergence point
real*4 e_RAcdeg ! (deg) *Standard error of RAc, times cos(DEc)
real*4 DEcdeg ! (deg) *Declination (J2000) of convergence point
real*4 e_DEcdeg ! (deg) *Standard error of DEc
real*4 v0 ! (km/s) *Total space velocity
real*4 e_v0 ! (km/s) *Standard error of v0
*Note on Name:
* Name of the cluster or association, as it is referred to in the journal
* paper. The association Scorpius OB2 is the union of the (sub-) associations
* Lower Centaurus Crux, Upper Centaurus Lupus, and Upper Scorpius. Its entry
* refers to a solution in which the whole complex is considered as a single
* association with common space velocity.
*Note on v0x, v0y, v0z:
* Equatorial (ICRS) components of the space velocity of the cluster centroid,
* relative the Solar System barycentre, as obtained in the maximum-likelihood
* solution using the Nacc stars for which there is a Hipparcos solution in
* Table 2.
*Note on e_v0x, e_v0y, e_v0z:
* Formal standard errors of the space velocity components, as estimated from
* the maximum-likelihood solution. Apart from rounding errors, these values
* equal the square roots of cxx, cyy and czz, respectively.
*Note on sigv, e_sigv:
* The estimated internal velocity dispersion of the cluster, and its
* estimated standard error. sigv refers to the standard deviation of each
* rectangular component of the (assumed isotropic) dispersion. The dispersion
* and its standard error were estimated as described in Appendix A.4 of
* Paper II (Lindegren et al., 2000A&A...356.1119L)
*Note on RA0deg, DE0deg:
* Equatorial coordinates of the adopted cluster centroid. These were obtained
* from the unweighted mean rectangular coordinates of the Nacc accepted stars
* in the cluster. The adopted coordinates were obtained by rounding to the
* nearest 0.1 deg. For the Ursa Major cluster, only the 13 core stars listed
* by Soderblom & Mayor (1993, cat. <J/AJ/105/226>) were used to compute the
* centroid.
*Note on v0r, e_v0r:
* Radial component of the cluster space velocity in the direction
* (RA0deg, DE0deg) towards the adopted cluster centroid, and its formal
* standard error. v0r is the astrometric radial velocity of the cluster
* centroid. e_v0r represents the typical uncertainty in the astrometric radial
* velocities of individual stars from the uncertainty of the space velocity
* vector. The total uncertainty of the astrometric radial velocities, as
* listed in Table 2, includes in addition a contribution from the internal
* velocity dispersion.
*Note on cxx, cxy, cxz, cyy, cyz, czz:
* These are the six non-redundant elements of the 3*3 covariance matrix of
* the space velocity vector (v0x,v0y,v0z), as obtained in the
* maximum-likelihood solution.
*Note on RAcdeg, DEcdeg, v0:
* Convergent point in equatorial (ICRS) coordinates, and the total space
* velocity, corresponding to the space velocity vector (v0x,v0y,v0z). This
* is just an alternative (spherical) specification of the space velocity
* vector.
*Note on e_RAcdeg, e_DEcdeg, e_v0:
* Standard errors of the convergent point coordinates and total velocity.
* These were obtained by the normal error propagation formulae, assuming the
* given covariance of (v0x,v0y,v0z). The error in right ascension, e_RAcdeg,
* is expressed as a true arc, i.e. it includes the factor cos(DEc).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2a.dat' ! 77 stars in the Ursa Major cluster
integer*4 nr__1
parameter (nr__1=77) ! Number of records
character*68 ar__1 ! Full-size record
integer*4 HIP ! * Hipparcos catalogue number
character*12 Alt ! * Alternate catalogue number (HD, or other)
real*4 vrH ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH ! (km/s) *? Standard error in vrH
real*4 vrT ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT ! (km/s) *? Standard error in vrT
real*4 piH ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH ! (mas) *? Standard error in piH
real*4 piT ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2b.dat' ! 179 stars in the Hyades cluster
integer*4 nr__2
parameter (nr__2=179) ! Number of records
character*68 ar__2 ! Full-size record
integer*4 HIP_1 ! * Hipparcos catalogue number
character*12 Alt_1 ! * Alternate catalogue number (HD, or other)
real*4 vrH_1 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_1 ! (km/s) *? Standard error in vrH
real*4 vrT_1 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_1 ! (km/s) *? Standard error in vrT
real*4 piH_1 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_1 ! (mas) *? Standard error in piH
real*4 piT_1 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_1 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2c.dat' ! 40 stars in the Coma Berenices cluster
integer*4 nr__3
parameter (nr__3=40) ! Number of records
character*68 ar__3 ! Full-size record
integer*4 HIP_2 ! * Hipparcos catalogue number
character*12 Alt_2 ! * Alternate catalogue number (HD, or other)
real*4 vrH_2 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_2 ! (km/s) *? Standard error in vrH
real*4 vrT_2 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_2 ! (km/s) *? Standard error in vrT
real*4 piH_2 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_2 ! (mas) *? Standard error in piH
real*4 piT_2 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_2 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2d.dat' ! 60 stars in the Pleiades cluster
integer*4 nr__4
parameter (nr__4=60) ! Number of records
character*68 ar__4 ! Full-size record
integer*4 HIP_3 ! * Hipparcos catalogue number
character*12 Alt_3 ! * Alternate catalogue number (HD, or other)
real*4 vrH_3 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_3 ! (km/s) *? Standard error in vrH
real*4 vrT_3 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_3 ! (km/s) *? Standard error in vrT
real*4 piH_3 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_3 ! (mas) *? Standard error in piH
real*4 piT_3 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_3 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2e.dat' ! 24 stars in the Praesepe cluster
integer*4 nr__5
parameter (nr__5=24) ! Number of records
character*68 ar__5 ! Full-size record
integer*4 HIP_4 ! * Hipparcos catalogue number
character*12 Alt_4 ! * Alternate catalogue number (HD, or other)
real*4 vrH_4 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_4 ! (km/s) *? Standard error in vrH
real*4 vrT_4 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_4 ! (km/s) *? Standard error in vrT
real*4 piH_4 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_4 ! (mas) *? Standard error in piH
real*4 piT_4 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_4 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2f.dat' ! 179 stars in the Lower Centaurus Crux association
integer*4 nr__6
parameter (nr__6=179) ! Number of records
character*68 ar__6 ! Full-size record
integer*4 HIP_5 ! * Hipparcos catalogue number
character*12 Alt_5 ! * Alternate catalogue number (HD, or other)
real*4 vrH_5 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_5 ! (km/s) *? Standard error in vrH
real*4 vrT_5 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_5 ! (km/s) *? Standard error in vrT
real*4 piH_5 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_5 ! (mas) *? Standard error in piH
real*4 piT_5 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_5 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2g.dat' ! 218 stars in the Upper Centaurus Lupus association
integer*4 nr__7
parameter (nr__7=218) ! Number of records
character*68 ar__7 ! Full-size record
integer*4 HIP_6 ! * Hipparcos catalogue number
character*12 Alt_6 ! * Alternate catalogue number (HD, or other)
real*4 vrH_6 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_6 ! (km/s) *? Standard error in vrH
real*4 vrT_6 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_6 ! (km/s) *? Standard error in vrT
real*4 piH_6 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_6 ! (mas) *? Standard error in piH
real*4 piT_6 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_6 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2h.dat' ! 120 stars in the Upper Scorpius association
integer*4 nr__8
parameter (nr__8=120) ! Number of records
character*68 ar__8 ! Full-size record
integer*4 HIP_7 ! * Hipparcos catalogue number
character*12 Alt_7 ! * Alternate catalogue number (HD, or other)
real*4 vrH_7 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_7 ! (km/s) *? Standard error in vrH
real*4 vrT_7 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_7 ! (km/s) *? Standard error in vrT
real*4 piH_7 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_7 ! (mas) *? Standard error in piH
real*4 piT_7 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_7 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2i.dat' ! 78 stars in the Alpha Persei association
integer*4 nr__9
parameter (nr__9=78) ! Number of records
character*68 ar__9 ! Full-size record
integer*4 HIP_8 ! * Hipparcos catalogue number
character*12 Alt_8 ! * Alternate catalogue number (HD, or other)
real*4 vrH_8 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_8 ! (km/s) *? Standard error in vrH
real*4 vrT_8 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_8 ! (km/s) *? Standard error in vrT
real*4 piH_8 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_8 ! (mas) *? Standard error in piH
real*4 piT_8 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_8 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2j.dat' ! 59 stars in the 'HIP 98321' association
integer*4 nr__10
parameter (nr__10=59) ! Number of records
character*68 ar__10 ! Full-size record
integer*4 HIP_9 ! * Hipparcos catalogue number
character*12 Alt_9 ! * Alternate catalogue number (HD, or other)
real*4 vrH_9 ! (km/s) *? Astrometric radial velocity from Hipparcos
real*4 e_vrH_9 ! (km/s) *? Standard error in vrH
real*4 vrT_9 ! (km/s) *? Astrometric radial velocity from Tycho-2
real*4 e_vrT_9 ! (km/s) *? Standard error in vrT
real*4 piH_9 ! (mas) *? Kinematically improved parallax from Hipparcos
real*4 e_piH_9 ! (mas) *? Standard error in piH
real*4 piT_9 ! (mas) *? Kinematically improved parallax from Tycho-2
real*4 e_piT_9 ! (mas) *? Standard error in piT
*Note on HIP:
* Catalogue number of the star in the Hipparcos Catalogue (ESA 1997, The
* Hipparcos and Tycho Catalogues, ESA SP-1200 = Cat. <I/239>)
*Note on Alt:
* Alternate identification number for the same star. If only a number is
* given, that is the HD number (in the range 1-225300) or of its extension
* HDE (range 225301-359083). For stars without an HD/HDE number, the entry is
* either the Bonner, Cordoba, or Cape Photographic Durchmusterung (BD, CoD, or
* CPD), and when that is lacking, the Melotte number (Mel) for stars in the
* Hyades, Pleiades, and Alpha Persei; the entry in The Catalogue of Nearby
* Stars (GL; Gliese 1969VeARI..22....1G, Cat. <V/35>), or its extensions
* (GJ; Gliese & Jahreiss 1979A&AS...38..423G, See Cat. <V/70>);
* The Lowell Proper Motion Survey (G; Giclas et al., 1959-78, Cat. <I/79> &
* <I/112>); or The Luyten Palomar Survey (LP; Luyten 1963-87). These
* identifiers were taken from The Hipparcos Input Catalogue (ESA SP-1136,
* 1992 = Cat. <I/196>), in that version that is on the Celestia 2000
* CD-ROM (Turon et al., ESA SP-1220, 1998).
*Note on vrH, e_vrH:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Hipparcos main
* catalogue. These were derived from Eqs.(2) and (3) in the paper, using the
* adopted solution in Table 1. The sample of stars producing this astrometric
* solution is made up of those with an entry in these columns; stars with a
* blank entry were rejected by the programme routines selecting the optimal
* sample.
* The LaTeX code used in the paper for vrH is $\widehat{v}_{\rm r,Hip}$, and
* that for e_vrH is $\epsilon(\widehat{v}_{\rm r,Hip})$.
*Note on vrT, e_vrT:
* Estimated astrometric radial velocities and their standard errors obtained
* from the kinematic solution using astrometric data from the Tycho-2
* catalogue. This catalogue includes almost a century of ground-based proper-
* motion data, and yields values slightly different from the previous ones.
* For the Hyades, the resulting optimal sample of stars was slightly different
* from that for the Hipparcos main catalogue (the stars producing the solution
* are those with an entry in the respective columns). Solutions with Tycho-2
* data were not computed for all clusters.
*Note on piH, e_piH:
* Kinematically improved parallaxes and their standard errors (in milli-
* arcseconds, mas) obtained from the kinematic solution, using astrometric
* data from the Hipparcos main catalogue.
* The LaTeX code used in the paper for piH is $\widehat{\pi}_{\rm Hip}$,
* and that for e_piH is $\epsilon(\widehat{\pi}_{\rm Hip})$.
*Note on piT, e_piT:
* Kinematically improved parallaxes and their standard errors obtained from
* the kinematic solution, using astrometric data from the Tycho-2 catalogue.
* Analogous to the case for radial velocities, there are slight differences
* between the Hipparcos and Tycho-2 solutions. Solutions with Tycho-2 data
* were not computed for all clusters.
C=============================================================================
C Loading file 'table1.dat' ! Kinematic data for 11 clusters and associations
C Format for file interpretation
1 format(
+ A1,1X,A21,1X,I3,1X,I3,1X,F6.2,1X,F5.2,1X,F6.2,1X,F5.2,1X,F6.2,
+ 1X,F5.2,1X,F4.2,1X,F4.2,1X,F5.1,1X,F5.1,1X,F6.2,1X,F5.2,1X,
+ F9.4,1X,F9.4,1X,F9.4,1X,F9.4,1X,F9.4,1X,F9.4,1X,F6.2,1X,F5.2,
+ 1X,F6.2,1X,F5.2,1X,F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,11
read(1,'(A204)')ar__
read(ar__,1)
+ t2,Name,Nacc,Nrej,v0x,e_v0x,v0y,e_v0y,v0z,e_v0z,sigv,e_sigv,
+ RA0deg,DE0deg,v0r,e_v0r,cxx,cxy,cxz,cyy,cyz,czz,RAcdeg,
+ e_RAcdeg,DEcdeg,e_DEcdeg,v0,e_v0
c ..............Just test output...........
write(6,1)
+ t2,Name,Nacc,Nrej,v0x,e_v0x,v0y,e_v0y,v0z,e_v0z,sigv,e_sigv,
+ RA0deg,DE0deg,v0r,e_v0r,cxx,cxy,cxz,cyy,cyz,czz,RAcdeg,
+ e_RAcdeg,DEcdeg,e_DEcdeg,v0,e_v0
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2a.dat' ! 77 stars in the Ursa Major cluster
C Format for file interpretation
2 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2a.dat')
write(6,*) '....Loading file: table2a.dat'
do i__=1,77
read(1,'(A68)')ar__1
read(ar__1,2)HIP,Alt,vrH,e_vrH,vrT,e_vrT,piH,e_piH,piT,e_piT
if(ar__1(21:26) .EQ. '') vrH = rNULL__
if(ar__1(28:32) .EQ. '') e_vrH = rNULL__
if(ar__1(34:39) .EQ. '') vrT = rNULL__
if(ar__1(41:44) .EQ. '') e_vrT = rNULL__
if(ar__1(46:51) .EQ. '') piH = rNULL__
if(ar__1(53:56) .EQ. '') e_piH = rNULL__
if(ar__1(58:62) .EQ. '') piT = rNULL__
if(ar__1(64:67) .EQ. '') e_piT = rNULL__
c ..............Just test output...........
write(6,2)HIP,Alt,vrH,e_vrH,vrT,e_vrT,piH,e_piH,piT,e_piT
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2b.dat' ! 179 stars in the Hyades cluster
C Format for file interpretation
3 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2b.dat')
write(6,*) '....Loading file: table2b.dat'
do i__=1,179
read(1,'(A68)')ar__2
read(ar__2,3)
+ HIP_1,Alt_1,vrH_1,e_vrH_1,vrT_1,e_vrT_1,piH_1,e_piH_1,piT_1,
+ e_piT_1
if(ar__2(21:26) .EQ. '') vrH_1 = rNULL__
if(ar__2(28:32) .EQ. '') e_vrH_1 = rNULL__
if(ar__2(34:39) .EQ. '') vrT_1 = rNULL__
if(ar__2(41:44) .EQ. '') e_vrT_1 = rNULL__
if(ar__2(46:51) .EQ. '') piH_1 = rNULL__
if(ar__2(53:56) .EQ. '') e_piH_1 = rNULL__
if(ar__2(58:62) .EQ. '') piT_1 = rNULL__
if(ar__2(64:67) .EQ. '') e_piT_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ HIP_1,Alt_1,vrH_1,e_vrH_1,vrT_1,e_vrT_1,piH_1,e_piH_1,piT_1,
+ e_piT_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2c.dat' ! 40 stars in the Coma Berenices cluster
C Format for file interpretation
4 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2c.dat')
write(6,*) '....Loading file: table2c.dat'
do i__=1,40
read(1,'(A68)')ar__3
read(ar__3,4)
+ HIP_2,Alt_2,vrH_2,e_vrH_2,vrT_2,e_vrT_2,piH_2,e_piH_2,piT_2,
+ e_piT_2
if(ar__3(21:26) .EQ. '') vrH_2 = rNULL__
if(ar__3(28:32) .EQ. '') e_vrH_2 = rNULL__
if(ar__3(34:39) .EQ. '') vrT_2 = rNULL__
if(ar__3(41:44) .EQ. '') e_vrT_2 = rNULL__
if(ar__3(46:51) .EQ. '') piH_2 = rNULL__
if(ar__3(53:56) .EQ. '') e_piH_2 = rNULL__
if(ar__3(58:62) .EQ. '') piT_2 = rNULL__
if(ar__3(64:67) .EQ. '') e_piT_2 = rNULL__
c ..............Just test output...........
write(6,4)
+ HIP_2,Alt_2,vrH_2,e_vrH_2,vrT_2,e_vrT_2,piH_2,e_piH_2,piT_2,
+ e_piT_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2d.dat' ! 60 stars in the Pleiades cluster
C Format for file interpretation
5 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2d.dat')
write(6,*) '....Loading file: table2d.dat'
do i__=1,60
read(1,'(A68)')ar__4
read(ar__4,5)
+ HIP_3,Alt_3,vrH_3,e_vrH_3,vrT_3,e_vrT_3,piH_3,e_piH_3,piT_3,
+ e_piT_3
if(ar__4(21:26) .EQ. '') vrH_3 = rNULL__
if(ar__4(28:32) .EQ. '') e_vrH_3 = rNULL__
if(ar__4(34:39) .EQ. '') vrT_3 = rNULL__
if(ar__4(41:44) .EQ. '') e_vrT_3 = rNULL__
if(ar__4(46:51) .EQ. '') piH_3 = rNULL__
if(ar__4(53:56) .EQ. '') e_piH_3 = rNULL__
if(ar__4(58:62) .EQ. '') piT_3 = rNULL__
if(ar__4(64:67) .EQ. '') e_piT_3 = rNULL__
c ..............Just test output...........
write(6,5)
+ HIP_3,Alt_3,vrH_3,e_vrH_3,vrT_3,e_vrT_3,piH_3,e_piH_3,piT_3,
+ e_piT_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2e.dat' ! 24 stars in the Praesepe cluster
C Format for file interpretation
6 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2e.dat')
write(6,*) '....Loading file: table2e.dat'
do i__=1,24
read(1,'(A68)')ar__5
read(ar__5,6)
+ HIP_4,Alt_4,vrH_4,e_vrH_4,vrT_4,e_vrT_4,piH_4,e_piH_4,piT_4,
+ e_piT_4
if(ar__5(21:26) .EQ. '') vrH_4 = rNULL__
if(ar__5(28:32) .EQ. '') e_vrH_4 = rNULL__
if(ar__5(34:39) .EQ. '') vrT_4 = rNULL__
if(ar__5(41:44) .EQ. '') e_vrT_4 = rNULL__
if(ar__5(46:51) .EQ. '') piH_4 = rNULL__
if(ar__5(53:56) .EQ. '') e_piH_4 = rNULL__
if(ar__5(58:62) .EQ. '') piT_4 = rNULL__
if(ar__5(64:67) .EQ. '') e_piT_4 = rNULL__
c ..............Just test output...........
write(6,6)
+ HIP_4,Alt_4,vrH_4,e_vrH_4,vrT_4,e_vrT_4,piH_4,e_piH_4,piT_4,
+ e_piT_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2f.dat' ! 179 stars in the Lower Centaurus Crux association
C Format for file interpretation
7 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2f.dat')
write(6,*) '....Loading file: table2f.dat'
do i__=1,179
read(1,'(A68)')ar__6
read(ar__6,7)
+ HIP_5,Alt_5,vrH_5,e_vrH_5,vrT_5,e_vrT_5,piH_5,e_piH_5,piT_5,
+ e_piT_5
if(ar__6(21:26) .EQ. '') vrH_5 = rNULL__
if(ar__6(28:32) .EQ. '') e_vrH_5 = rNULL__
if(ar__6(34:39) .EQ. '') vrT_5 = rNULL__
if(ar__6(41:44) .EQ. '') e_vrT_5 = rNULL__
if(ar__6(46:51) .EQ. '') piH_5 = rNULL__
if(ar__6(53:56) .EQ. '') e_piH_5 = rNULL__
if(ar__6(58:62) .EQ. '') piT_5 = rNULL__
if(ar__6(64:67) .EQ. '') e_piT_5 = rNULL__
c ..............Just test output...........
write(6,7)
+ HIP_5,Alt_5,vrH_5,e_vrH_5,vrT_5,e_vrT_5,piH_5,e_piH_5,piT_5,
+ e_piT_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2g.dat' ! 218 stars in the Upper Centaurus Lupus association
C Format for file interpretation
8 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2g.dat')
write(6,*) '....Loading file: table2g.dat'
do i__=1,218
read(1,'(A68)')ar__7
read(ar__7,8)
+ HIP_6,Alt_6,vrH_6,e_vrH_6,vrT_6,e_vrT_6,piH_6,e_piH_6,piT_6,
+ e_piT_6
if(ar__7(21:26) .EQ. '') vrH_6 = rNULL__
if(ar__7(28:32) .EQ. '') e_vrH_6 = rNULL__
if(ar__7(34:39) .EQ. '') vrT_6 = rNULL__
if(ar__7(41:44) .EQ. '') e_vrT_6 = rNULL__
if(ar__7(46:51) .EQ. '') piH_6 = rNULL__
if(ar__7(53:56) .EQ. '') e_piH_6 = rNULL__
if(ar__7(58:62) .EQ. '') piT_6 = rNULL__
if(ar__7(64:67) .EQ. '') e_piT_6 = rNULL__
c ..............Just test output...........
write(6,8)
+ HIP_6,Alt_6,vrH_6,e_vrH_6,vrT_6,e_vrT_6,piH_6,e_piH_6,piT_6,
+ e_piT_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2h.dat' ! 120 stars in the Upper Scorpius association
C Format for file interpretation
9 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2h.dat')
write(6,*) '....Loading file: table2h.dat'
do i__=1,120
read(1,'(A68)')ar__8
read(ar__8,9)
+ HIP_7,Alt_7,vrH_7,e_vrH_7,vrT_7,e_vrT_7,piH_7,e_piH_7,piT_7,
+ e_piT_7
if(ar__8(21:26) .EQ. '') vrH_7 = rNULL__
if(ar__8(28:32) .EQ. '') e_vrH_7 = rNULL__
if(ar__8(34:39) .EQ. '') vrT_7 = rNULL__
if(ar__8(41:44) .EQ. '') e_vrT_7 = rNULL__
if(ar__8(46:51) .EQ. '') piH_7 = rNULL__
if(ar__8(53:56) .EQ. '') e_piH_7 = rNULL__
if(ar__8(58:62) .EQ. '') piT_7 = rNULL__
if(ar__8(64:67) .EQ. '') e_piT_7 = rNULL__
c ..............Just test output...........
write(6,9)
+ HIP_7,Alt_7,vrH_7,e_vrH_7,vrT_7,e_vrT_7,piH_7,e_piH_7,piT_7,
+ e_piT_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2i.dat' ! 78 stars in the Alpha Persei association
C Format for file interpretation
10 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2i.dat')
write(6,*) '....Loading file: table2i.dat'
do i__=1,78
read(1,'(A68)')ar__9
read(ar__9,10)
+ HIP_8,Alt_8,vrH_8,e_vrH_8,vrT_8,e_vrT_8,piH_8,e_piH_8,piT_8,
+ e_piT_8
if(ar__9(21:26) .EQ. '') vrH_8 = rNULL__
if(ar__9(28:32) .EQ. '') e_vrH_8 = rNULL__
if(ar__9(34:39) .EQ. '') vrT_8 = rNULL__
if(ar__9(41:44) .EQ. '') e_vrT_8 = rNULL__
if(ar__9(46:51) .EQ. '') piH_8 = rNULL__
if(ar__9(53:56) .EQ. '') e_piH_8 = rNULL__
if(ar__9(58:62) .EQ. '') piT_8 = rNULL__
if(ar__9(64:67) .EQ. '') e_piT_8 = rNULL__
c ..............Just test output...........
write(6,10)
+ HIP_8,Alt_8,vrH_8,e_vrH_8,vrT_8,e_vrT_8,piH_8,e_piH_8,piT_8,
+ e_piT_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2j.dat' ! 59 stars in the 'HIP 98321' association
C Format for file interpretation
11 format(
+ I6,1X,A12,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2j.dat')
write(6,*) '....Loading file: table2j.dat'
do i__=1,59
read(1,'(A68)')ar__10
read(ar__10,11)
+ HIP_9,Alt_9,vrH_9,e_vrH_9,vrT_9,e_vrT_9,piH_9,e_piH_9,piT_9,
+ e_piT_9
if(ar__10(21:26) .EQ. '') vrH_9 = rNULL__
if(ar__10(28:32) .EQ. '') e_vrH_9 = rNULL__
if(ar__10(34:39) .EQ. '') vrT_9 = rNULL__
if(ar__10(41:44) .EQ. '') e_vrT_9 = rNULL__
if(ar__10(46:51) .EQ. '') piH_9 = rNULL__
if(ar__10(53:56) .EQ. '') e_piH_9 = rNULL__
if(ar__10(58:62) .EQ. '') piT_9 = rNULL__
if(ar__10(64:67) .EQ. '') e_piT_9 = rNULL__
c ..............Just test output...........
write(6,11)
+ HIP_9,Alt_9,vrH_9,e_vrH_9,vrT_9,e_vrT_9,piH_9,e_piH_9,piT_9,
+ e_piT_9
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end