Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/157/234 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 2026-May-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/AJ/157/234 ACRONYM. III. Candidate young low-mass stars (Schneider+, 2019)
*================================================================================
*ACRONYM. III. Radial velocities for 336 candidate young low-mass stars in
*the solar neighborhood, including 77 newly confirmed young moving group members.
* Schneider A.C., Shkolnik E.L., Allers K.N., Kraus A.L., Liu M.C.,
* Weinberger A.J., Flagg L.
* <Astron. J., 157, 234 (2019)>
* =2019AJ....157..234S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Sample properties
integer*4 nr__
parameter (nr__=336) ! Number of records
character*342 ar__ ! Full-size record
character*16 v2MASS (nr__) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*5 SpType (nr__) ! Spectral type
integer*4 n_SpType (nr__) ! [1/32] Reference for SpType (1)
real*8 Dist (nr__) ! (pc) [4.55/2651.113]? Gaia DR2 (Cat. I/347) distance
real*8 e_Dist (nr__) ! (pc) [0.001/278.325]? Uncertainty in Dist
character*1 n_Dist (nr__) ! Reference for Dist (2)
real*8 pmRA (nr__) ! (mas) [-636.175/1691.123] Proper motion in RA
* {mu}_{alpha}_*cos{delta}
real*4 e_pmRA (nr__) ! (mas) [0.026/6.9] Uncertainty in pmRA
real*8 pmDE (nr__) ! (mas) [-1881.064/825.773] Proper motion in DE
* {mu}_{delta}_
real*4 e_pmDE (nr__) ! (mas) [0.026/7.7] Uncertainty in pmDE
character*1 n_pm (nr__) ! Reference for pm (3)
real*8 RV (nr__) ! (km/s) [-292.78/115.97] Radial velocity
real*4 e_RV (nr__) ! (km/s) [0.08/67.57] Uncertainty in RV
real*8 X (nr__) ! (pc) [-454.652/1469.394]? X coordinate
real*4 e_X (nr__) ! (pc) [0.0/93.545]? Uncertainty in X
real*8 Y (nr__) ! (pc) [-2319.397/186.301]? Y coordinate
real*8 e_Y (nr__) ! (pc) [0/243.5]? Uncertainty in Y
real*8 Z (nr__) ! (pc) [-419.993/1251.985]? Z coordinate
real*8 e_Z (nr__) ! (pc) [0/131.439]? Uncertainty in Z
real*8 U (nr__) ! (km/s) [-284.971/62.655]? Velocity towards Galactic
* center
real*4 e_U (nr__) ! (km/s) [0.016/45.941]? Uncertainty in U
real*8 V (nr__) ! (km/s) [-367.926/42.114]? Velocity in direction
* of Galactic rotation
real*4 e_V (nr__) ! (km/s) [0.019/48.158]? Uncertainty in V
real*8 W (nr__) ! (km/s) [-113.926/42.299]? Velocity toward North
* Galactic Pole
real*4 e_W (nr__) ! (km/s) [0.008/15.208]? Uncertainty in W
real*8 Gmag (nr__) ! (mag) [6.1774/19.0893]? Gaia G band magnitude
real*4 e_Gmag (nr__) ! (mag) [0.0002/0.0351]? Uncertainty in Gmag
real*8 RPmag (nr__) ! (mag) [5.6835/17.3748]? Gaia Red passband magnitude
real*4 e_RPmag (nr__) ! (mag) [0.0006/0.0507]? Uncertainty in RPmag
real*8 BPmag (nr__) ! (mag) [6.5608/20.7849]? Gaia Blue passband magnitude
real*4 e_BPmag (nr__) ! (mag) [0.0011/0.2457]? Uncertainty in BPmag
real*4 Jmag (nr__) ! (mag) [5.129/14.242] 2MASS J band magnitude
real*4 e_Jmag (nr__) ! (mag) [0.017/0.054] Uncertainty in Jmag
real*4 Hmag (nr__) ! (mag) [4.831/14.006] 2MASS H band magnitude
real*4 e_Hmag (nr__) ! (mag) [0.015/0.086] Uncertainty in Hmag
real*4 Ksmag (nr__) ! (mag) [4.529/13.913] 2MASS K_s_ band magnitude
real*4 e_Ksmag (nr__) ! (mag) [0.015/0.057] Uncertainty in Ksmag
real*4 EW_Li (nr__) ! (0.1pm) [0.058/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha (nr__) ! (0.1pm) [-82.28/1.63] H{alpha} equivalent width (G1)
real*4 logLX (nr__) ! ([10-7W]) [27.56/31.9]? Log X-ray luminosity (in erg/s)
real*4 e_logLX (nr__) ! ([10-7W]) [0.01/0.68]? Uncertainty in logLX (in erg/s)
real*4 FUVmag (nr__) ! (mag) [14.114/23.571]? GALEX FUV band magnitude
real*4 e_FUVmag (nr__) ! (mag) [0.008/0.555]? Uncertainty in FUVmag
real*4 FUV_J (nr__) ! [4.52e-06/0.0178]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUVmag (nr__) ! (mag) [13.722/23.45]? GALEX NUV band magnitude
real*4 e_NUVmag (nr__) ! (mag) [0.004/0.549]? Uncertainty in NUVmag
real*4 NUV_J (nr__) ! [3.29e-05/0.0442]? GALEX NUV to 2MASS J band
* flux ratio
*Note (1): Reference as follows:
* 1 = Riaz et al. (2006, J/AJ/132/866);
* 2 = Reid et al. (1995, Cat. III/198);
* 3 = Hawley et al. (1996, Cat. III/198);
* 4 = Cruz et al. (2003, J/AJ/126/2421);
* 6 = Thackrah et al. (1997MNRAS.284..507T);
* 7 = Reid et al. (2004, J/AJ/128/463);
* 8 = Gaidos et al. (2014, J/MNRAS/443/2561);
* 9 = Kirkpatrick et al. (2008, J/ApJ/689/1295);
* 10 = Reyle et al. (2006, J/MNRAS/373/705);
* 11 = West et al. (2008, J/AJ/135/785);
* 12 = Faherty et al. (2016, J/ApJS/225/10);
* 13 = This work;
* 14 = Gagne et al. (2015, J/ApJS/219/33);
* 15 = Torres et al. (2006, J/A+A/460/695);
* 16 = Song et al. (2004ApJ...600.1016S);
* 17 = Pecaut & Mamajek (2013, J/ApJS/208/9);
* 18 = Gray et al. (2006, J/AJ/132/161);
* 19 = Reid et al. (2003, J/AJ/126/3007);
* 20 = Stocke et al. (1991, Cat. IX/15);
* 21 = Cook et al. (2016, J/MNRAS/457/2192);
* 23 = Lepine & Gaidos (2011, J/AJ/142/138);
* 24 = Best et al. (2018, J/ApJS/234/1);
* 25 = Schneider et al. (2012ApJ...757..163S);
* 26 = Rodriguez et al. (2011ApJ...727...62R);
* 28 = Cutispoto et al. (1996, J/A+AS/115/41);
* 29 = Binks et al. (2015, J/MNRAS/452/173);
* 32 = Nefs et al. (2012MNRAS.425..950N).
*Note (2): Reference as follows:
* b = Riedel et al. (2014, J/AJ/147/85);
* d = Finch et al. (2014, J/AJ/148/119) (photometric);
* f = Janson et al. (2012, J/ApJ/754/44) (photometric);
* h = Bell et al. (2015, J/MNRAS/454/593) (statistical);
* i = Dittmann et al. (2014, J/ApJ/784/156);
* j = Lepine & Gaidos (2011, J/AJ/142/138) (photometric);
* k = Reid et al. (2003, J/AJ/126/3007) (photometric);
* m = Riaz et al. (2006, J/AJ/132/866) (photometric, 20% uncertainty assumed);
* n = Finch et al. (2018, Cat. I/344);
* p = Kunder et al. (2017, Cat. III/279);
* q = Winters et al. (2017, J/AJ/153/14);
* r = van der Marel et al. (2016, J/A+A/592/A126) (photometric, 20% uncertainty
* assumed);
* s = Distance from Gould & Chaname (2004, J/ApJS/150/455).
*Note (3): Reference as follows:
* c = Finch & Zacharias (2016, J/AJ/151/160);
* e = Zacharias et al. (2017, Cat. I/340);
* g = Zacharias et al. (2013, Cat. I/322);
* l = Tian et al. (2017, Cat. I/343);
* o = Finch et al. (2018, Cat. I/344).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observations summary
integer*4 nr__1
parameter (nr__1=376) ! Number of records
character*92 ar__1 ! Full-size record
character*16 v2MASS_1 (nr__1) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*27 OName (nr__1) ! Other identifier
character*14 T_I (nr__1) ! Telescope/Instrument used
character*11 Date (nr__1) ! ("date") UT date of the observation
real*8 RV_1 (nr__1) ! (km/s) [-179.03/151.53] Radial velocity
real*4 e_RV_1 (nr__1) ! (km/s) [0.08/11.13] Uncertainty in RV
character*4 SB (nr__1) ! Spectroscopic binary?
character*1 f_SB (nr__1) ! [s] Flag on SB (1)
*Note (1): Flag as follows:
* s = Star observed more than once with no RV variations.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! RV comparisons
integer*4 nr__2
parameter (nr__2=540) ! Number of records
character*48 ar__2 ! Full-size record
character*16 v2MASS_2 (nr__2) ! 2MASS identifier (HHMMSSss+DDMMSSs)
real*8 RV_2 (nr__2) ! (km/s) [-132.01/115.97] Radial velocity from this work
real*4 e_RV_2 (nr__2) ! (km/s) [0.09/35.42] Uncertainty in RV
real*8 RV_lit (nr__2) ! (km/s) [-164.62/144.42] Literature radial velocity
real*4 e_RV_lit (nr__2) ! (km/s) [0.01/117.2]? Uncertainty in RV-lit
integer*4 r_RV_lit (nr__2) ! [1/65] Reference code for RV-lit (see refs.dat
* file)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Comoving systems
integer*4 nr__3
parameter (nr__3=145) ! Number of records
character*96 ar__3 ! Full-size record
C Position composed of: RAdeg DEdeg (Epoch=2015.5)
integer*4 Syst (nr__3) ! [1/69] System number
real*4 Comp (nr__3) ! [1.1/69.2] Companion number
real*8 RAdeg (nr__3) ! (deg) Gaia DR2 Right Ascension (ICRS) at Ep=2015.5
real*8 DEdeg (nr__3) ! (deg) Gaia DR2 Declination (ICRS) at Ep=2015.5
real*8 Plx (nr__3) ! (mas) [4.0776/85.8373] Parallax
real*4 e_Plx (nr__3) ! (mas) [0.0188/1.5383] Uncertainty in Plx
real*8 pmRA_1 (nr__3) ! (mas/yr) [-396.396/677.548] Proper motion along RA
* (pmRA*cosDE)
real*4 e_pmRA_1 (nr__3) ! (mas/yr) [0.023/2.782] Uncertainty in pmRA
real*8 pmDE_1 (nr__3) ! (mas/yr) [-377.302/481.326] Proper motion along DE
real*4 e_pmDE_1 (nr__3) ! (mas/yr) [0.027/3.049] Uncertainty in pmDE
real*4 Sep1 (nr__3) ! (arcsec) [1/375]? Separation in arcsec
integer*4 Sep2 (nr__3) ! (AU) [16/19937]? Separation in AU
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! New and confirmed moving group members
integer*4 nr__4
parameter (nr__4=77) ! Number of records
character*145 ar__4 ! Full-size record
character*13 Group (nr__4) ! Moving group identifier
character*16 v2MASS_3 (nr__4) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS (nr__4) ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_1 (nr__4) ! Spectral type
real*4 EW_Li_1 (nr__4) ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 (nr__4) ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_1 (nr__4) ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_1 (nr__4) ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_1 (nr__4) ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_1 (nr__4) ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_1 (nr__4) ! (pc) [-454.65/74.7] X coordinate
real*8 Y_1 (nr__4) ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_1 (nr__4) ! (pc) [-419.99/143.77] Z coordinate
real*4 U_1 (nr__4) ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_1 (nr__4) ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_1 (nr__4) ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN (nr__4) ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb (nr__4) ! New member? (not in Table 8) (2)
character*1 n_Memb (nr__4) ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist (nr__4) ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV (nr__4) ! (km/s) [0.16/5.85]? Radial velocity {sigma}
* difference {sigma}_RV_ (only in Table 8) (4)
*Note (1): We evaluate each object for potential moving group membership using
* the BANYAN {Sigma} tool (Gagne et al. 2018, J/ApJ/856/23), which evaluates
* the membership probabilities by comparing positions to known members of
* different groups using a Bayesian classifier. BANYAN {Sigma} considers all
* kinematic information (position, proper motion, parallax, and radial velocity)
* to compare six-dimensional XYZUVW coordinates to known groups using
* multivariate Gaussians.
*Note (2): Member defined as follows:
* Y = Completely new member;
* R = Reassigned member (i.e., those objects previously proposed to belong to
* a different group).
*Note (3): Note as follows:
* b = Previously suggested to be a member of the Columba association in
* Malo et al. (2013, J/ApJ/762/88; 2014, J/ApJ/788/81);
* c = Previously suggested to be a member of the Argus association in
* Malo et al. (2013, J/ApJ/762/88);
* d = Previously suggested to be a member of the Scorpius-Centaurus OB
* association in Rodriguez et al. (2011ApJ...727...62R);
* e = Previously suggested to be a member of the Argus association in
* Riedel et al. (2014, J/AJ/147/85);
* f = Previously suggested as an ambiguous AB Dor/{beta} Pic/Carina/Columbia
* candidate group in Malo et al. (2013, J/ApJ/762/88).
*Note (4): We include the {sigma} difference between the optimal distance and
* radial velocity values from BANYAN {Sigma} and those measured in this work
* defined as the difference between the optimal and measured values divided by
* the combined uncertainty.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Rejected moving group members
integer*4 nr__5
parameter (nr__5=44) ! Number of records
character*145 ar__5 ! Full-size record
character*13 Group_1 (nr__5) ! Moving group identifier
character*16 v2MASS_4 (nr__5) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS_1 (nr__5) ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_2 (nr__5) ! Spectral type
real*4 EW_Li_1 (nr__5) ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 (nr__5) ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_2 (nr__5) ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_2 (nr__5) ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_2 (nr__5) ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_2 (nr__5) ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_2 (nr__5) ! (pc) [-454.65/74.7] X coordinate
real*8 Y_2 (nr__5) ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_2 (nr__5) ! (pc) [-419.99/143.77] Z coordinate
real*4 U_2 (nr__5) ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_2 (nr__5) ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_2 (nr__5) ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN_1 (nr__5) ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb_1 (nr__5) ! New member? (not in Table 8) (2)
character*1 n_Memb_1 (nr__5) ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist_1 (nr__5) ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV_1 (nr__5) ! (km/s) [0.16/5.85]? Radial velocity {sigma}
* difference {sigma}_RV_ (only in Table 8) (4)
*Note (1): We evaluate each object for potential moving group membership using
* the BANYAN {Sigma} tool (Gagne et al. 2018, J/ApJ/856/23), which evaluates
* the membership probabilities by comparing positions to known members of
* different groups using a Bayesian classifier. BANYAN {Sigma} considers all
* kinematic information (position, proper motion, parallax, and radial velocity)
* to compare six-dimensional XYZUVW coordinates to known groups using
* multivariate Gaussians.
*Note (2): Member defined as follows:
* Y = Completely new member;
* R = Reassigned member (i.e., those objects previously proposed to belong to
* a different group).
*Note (3): Note as follows:
* b = Previously suggested to be a member of the Columba association in
* Malo et al. (2013, J/ApJ/762/88; 2014, J/ApJ/788/81);
* c = Previously suggested to be a member of the Argus association in
* Malo et al. (2013, J/ApJ/762/88);
* d = Previously suggested to be a member of the Scorpius-Centaurus OB
* association in Rodriguez et al. (2011ApJ...727...62R);
* e = Previously suggested to be a member of the Argus association in
* Riedel et al. (2014, J/AJ/147/85);
* f = Previously suggested as an ambiguous AB Dor/{beta} Pic/Carina/Columbia
* candidate group in Malo et al. (2013, J/ApJ/762/88).
*Note (4): We include the {sigma} difference between the optimal distance and
* radial velocity values from BANYAN {Sigma} and those measured in this work
* defined as the difference between the optimal and measured values divided by
* the combined uncertainty.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Low-probability candidate members
integer*4 nr__6
parameter (nr__6=10) ! Number of records
character*145 ar__6 ! Full-size record
character*13 Group_2 (nr__6) ! Moving group identifier
character*16 v2MASS_5 (nr__6) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS_2 (nr__6) ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_3 (nr__6) ! Spectral type
real*4 EW_Li_1 (nr__6) ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 (nr__6) ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_3 (nr__6) ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_3 (nr__6) ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_3 (nr__6) ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_3 (nr__6) ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_3 (nr__6) ! (pc) [-454.65/74.7] X coordinate
real*8 Y_3 (nr__6) ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_3 (nr__6) ! (pc) [-419.99/143.77] Z coordinate
real*4 U_3 (nr__6) ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_3 (nr__6) ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_3 (nr__6) ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN_2 (nr__6) ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb_2 (nr__6) ! New member? (not in Table 8) (2)
character*1 n_Memb_2 (nr__6) ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist_2 (nr__6) ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV_2 (nr__6) ! (km/s) [0.16/5.85]? Radial velocity {sigma}
* difference {sigma}_RV_ (only in Table 8) (4)
*Note (1): We evaluate each object for potential moving group membership using
* the BANYAN {Sigma} tool (Gagne et al. 2018, J/ApJ/856/23), which evaluates
* the membership probabilities by comparing positions to known members of
* different groups using a Bayesian classifier. BANYAN {Sigma} considers all
* kinematic information (position, proper motion, parallax, and radial velocity)
* to compare six-dimensional XYZUVW coordinates to known groups using
* multivariate Gaussians.
*Note (2): Member defined as follows:
* Y = Completely new member;
* R = Reassigned member (i.e., those objects previously proposed to belong to
* a different group).
*Note (3): Note as follows:
* b = Previously suggested to be a member of the Columba association in
* Malo et al. (2013, J/ApJ/762/88; 2014, J/ApJ/788/81);
* c = Previously suggested to be a member of the Argus association in
* Malo et al. (2013, J/ApJ/762/88);
* d = Previously suggested to be a member of the Scorpius-Centaurus OB
* association in Rodriguez et al. (2011ApJ...727...62R);
* e = Previously suggested to be a member of the Argus association in
* Riedel et al. (2014, J/AJ/147/85);
* f = Previously suggested as an ambiguous AB Dor/{beta} Pic/Carina/Columbia
* candidate group in Malo et al. (2013, J/ApJ/762/88).
*Note (4): We include the {sigma} difference between the optimal distance and
* radial velocity values from BANYAN {Sigma} and those measured in this work
* defined as the difference between the optimal and measured values divided by
* the combined uncertainty.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! List of references
integer*4 nr__7
parameter (nr__7=65) ! Number of records
character*55 ar__7 ! Full-size record
integer*4 Ref (nr__7) ! [1/65] Reference code
character*32 Aut (nr__7) ! Author's name(s)
character*19 Bibcode (nr__7) ! Bibcode of the reference
C=============================================================================
C Loading file 'table2.dat' ! Sample properties
C Format for file interpretation
1 format(
+ A16,1X,A5,1X,I2,1X,F8.3,1X,F7.3,1X,A1,1X,F8.3,1X,F5.3,1X,F9.3,
+ 1X,F5.3,1X,A1,1X,F7.2,1X,F5.2,1X,F8.3,1X,F6.3,1X,F9.3,1X,F7.3,
+ 1X,F8.3,1X,F7.3,1X,F8.3,1X,F6.3,1X,F8.3,1X,F6.3,1X,F8.3,1X,
+ F6.3,1X,F7.4,1X,F6.4,1X,F7.4,1X,F6.4,1X,F7.4,1X,F6.4,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.2,1X,
+ F5.2,1X,F4.2,1X,F6.3,1X,F5.3,1X,E8.2,1X,F6.3,1X,F5.3,1X,E8.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,336
read(1,'(A342)')ar__
read(ar__,1)
+ v2MASS(i__),SpType(i__),n_SpType(i__),Dist(i__),e_Dist(i__),
+ n_Dist(i__),pmRA(i__),e_pmRA(i__),pmDE(i__),e_pmDE(i__),
+ n_pm(i__),RV(i__),e_RV(i__),X(i__),e_X(i__),Y(i__),e_Y(i__),
+ Z(i__),e_Z(i__),U(i__),e_U(i__),V(i__),e_V(i__),W(i__),
+ e_W(i__),Gmag(i__),e_Gmag(i__),RPmag(i__),e_RPmag(i__),
+ BPmag(i__),e_BPmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),Ksmag(i__),e_Ksmag(i__),EW_Li(i__),EW_Ha(i__),
+ logLX(i__),e_logLX(i__),FUVmag(i__),e_FUVmag(i__),FUV_J(i__),
+ NUVmag(i__),e_NUVmag(i__),NUV_J(i__)
if(ar__(27:34) .EQ. '') Dist(i__) = rNULL__
if(ar__(36:42) .EQ. '') e_Dist(i__) = rNULL__
if(ar__(93:100) .EQ. '') X(i__) = rNULL__
if(ar__(102:107) .EQ. '') e_X(i__) = rNULL__
if(ar__(109:117) .EQ. '') Y(i__) = rNULL__
if(ar__(119:125) .EQ. '') e_Y(i__) = rNULL__
if(ar__(127:134) .EQ. '') Z(i__) = rNULL__
if(ar__(136:142) .EQ. '') e_Z(i__) = rNULL__
if(ar__(144:151) .EQ. '') U(i__) = rNULL__
if(ar__(153:158) .EQ. '') e_U(i__) = rNULL__
if(ar__(160:167) .EQ. '') V(i__) = rNULL__
if(ar__(169:174) .EQ. '') e_V(i__) = rNULL__
if(ar__(176:183) .EQ. '') W(i__) = rNULL__
if(ar__(185:190) .EQ. '') e_W(i__) = rNULL__
if(ar__(192:198) .EQ. '') Gmag(i__) = rNULL__
if(ar__(200:205) .EQ. '') e_Gmag(i__) = rNULL__
if(ar__(207:213) .EQ. '') RPmag(i__) = rNULL__
if(ar__(215:220) .EQ. '') e_RPmag(i__) = rNULL__
if(ar__(222:228) .EQ. '') BPmag(i__) = rNULL__
if(ar__(230:235) .EQ. '') e_BPmag(i__) = rNULL__
if(ar__(276:280) .EQ. '') EW_Li(i__) = rNULL__
if(ar__(289:293) .EQ. '') logLX(i__) = rNULL__
if(ar__(295:298) .EQ. '') e_logLX(i__) = rNULL__
if(ar__(300:305) .EQ. '') FUVmag(i__) = rNULL__
if(ar__(307:311) .EQ. '') e_FUVmag(i__) = rNULL__
if(ar__(313:320) .EQ. '') FUV_J(i__) = rNULL__
if(ar__(322:327) .EQ. '') NUVmag(i__) = rNULL__
if(ar__(329:333) .EQ. '') e_NUVmag(i__) = rNULL__
if(ar__(335:342) .EQ. '') NUV_J(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ v2MASS(i__),SpType(i__),n_SpType(i__),Dist(i__),e_Dist(i__),
+ n_Dist(i__),pmRA(i__),e_pmRA(i__),pmDE(i__),e_pmDE(i__),
+ n_pm(i__),RV(i__),e_RV(i__),X(i__),e_X(i__),Y(i__),e_Y(i__),
+ Z(i__),e_Z(i__),U(i__),e_U(i__),V(i__),e_V(i__),W(i__),
+ e_W(i__),Gmag(i__),e_Gmag(i__),RPmag(i__),e_RPmag(i__),
+ BPmag(i__),e_BPmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),Ksmag(i__),e_Ksmag(i__),EW_Li(i__),EW_Ha(i__),
+ logLX(i__),e_logLX(i__),FUVmag(i__),e_FUVmag(i__),FUV_J(i__),
+ NUVmag(i__),e_NUVmag(i__),NUV_J(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! Observations summary
C Format for file interpretation
2 format(A16,1X,A27,1X,A14,1X,A11,1X,F7.2,1X,F5.2,1X,A4,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,376
read(1,'(A92)')ar__1
read(ar__1,2)
+ v2MASS_1(i__),OName(i__),T_I(i__),Date(i__),RV_1(i__),
+ e_RV_1(i__),SB(i__),f_SB(i__)
c ..............Just test output...........
write(6,2)
+ v2MASS_1(i__),OName(i__),T_I(i__),Date(i__),RV_1(i__),
+ e_RV_1(i__),SB(i__),f_SB(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! RV comparisons
C Format for file interpretation
3 format(A16,1X,F7.2,1X,F5.2,1X,F7.2,1X,F6.2,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,540
read(1,'(A48)')ar__2
read(ar__2,3)
+ v2MASS_2(i__),RV_2(i__),e_RV_2(i__),RV_lit(i__),e_RV_lit(i__),
+ r_RV_lit(i__)
if(ar__2(40:45) .EQ. '') e_RV_lit(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ v2MASS_2(i__),RV_2(i__),e_RV_2(i__),RV_lit(i__),e_RV_lit(i__),
+ r_RV_lit(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Comoving systems
C Format for file interpretation
4 format(
+ I2,1X,F4.1,1X,F15.11,1X,F15.11,1X,F7.4,1X,F6.4,1X,F8.3,1X,
+ F5.3,1X,F8.3,1X,F5.3,1X,F5.1,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,145
read(1,'(A96)')ar__3
read(ar__3,4)
+ Syst(i__),Comp(i__),RAdeg(i__),DEdeg(i__),Plx(i__),e_Plx(i__),
+ pmRA_1(i__),e_pmRA_1(i__),pmDE_1(i__),e_pmDE_1(i__),Sep1(i__),
+ Sep2(i__)
if(ar__3(86:90) .EQ. '') Sep1(i__) = rNULL__
if(ar__3(92:96) .EQ. '') Sep2(i__) = iNULL__
c ..............Just test output...........
write(6,4)
+ Syst(i__),Comp(i__),RAdeg(i__),DEdeg(i__),Plx(i__),e_Plx(i__),
+ pmRA_1(i__),e_pmRA_1(i__),pmDE_1(i__),e_pmDE_1(i__),Sep1(i__),
+ Sep2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! New and confirmed moving group members
C Format for file interpretation
5 format(
+ A13,1X,A16,A1,1X,A5,1X,F5.3,1X,F6.2,1X,F5.2,1X,F4.2,1X,E8.3,
+ 1X,E8.3,1X,F7.2,1X,F8.2,1X,F7.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,
+ F5.1,1X,A1,1X,A1,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,77
read(1,'(A145)')ar__4
read(ar__4,5)
+ Group(i__),v2MASS_3(i__),m_2MASS(i__),SpType_1(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_1(i__),e_logLX_1(i__),
+ FUV_J_1(i__),NUV_J_1(i__),X_1(i__),Y_1(i__),Z_1(i__),U_1(i__),
+ V_1(i__),W_1(i__),BANYAN(i__),Memb(i__),n_Memb(i__),
+ sigDist(i__),sigRV(i__)
if(ar__4(39:43) .EQ. '') EW_Li_1(i__) = rNULL__
if(ar__4(52:56) .EQ. '') logLX_1(i__) = rNULL__
if(ar__4(58:61) .EQ. '') e_logLX_1(i__) = rNULL__
if(ar__4(63:70) .EQ. '') FUV_J_1(i__) = rNULL__
if(ar__4(72:79) .EQ. '') NUV_J_1(i__) = rNULL__
if(ar__4(127:131) .EQ. '') BANYAN(i__) = rNULL__
if(ar__4(137:140) .EQ. '') sigDist(i__) = rNULL__
if(ar__4(142:145) .EQ. '') sigRV(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ Group(i__),v2MASS_3(i__),m_2MASS(i__),SpType_1(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_1(i__),e_logLX_1(i__),
+ FUV_J_1(i__),NUV_J_1(i__),X_1(i__),Y_1(i__),Z_1(i__),U_1(i__),
+ V_1(i__),W_1(i__),BANYAN(i__),Memb(i__),n_Memb(i__),
+ sigDist(i__),sigRV(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Rejected moving group members
C Format for file interpretation
6 format(
+ A13,1X,A16,A1,1X,A5,1X,F5.3,1X,F6.2,1X,F5.2,1X,F4.2,1X,E8.3,
+ 1X,E8.3,1X,F7.2,1X,F8.2,1X,F7.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,
+ F5.1,1X,A1,1X,A1,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,44
read(1,'(A145)')ar__5
read(ar__5,6)
+ Group_1(i__),v2MASS_4(i__),m_2MASS_1(i__),SpType_2(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_2(i__),e_logLX_2(i__),
+ FUV_J_2(i__),NUV_J_2(i__),X_2(i__),Y_2(i__),Z_2(i__),U_2(i__),
+ V_2(i__),W_2(i__),BANYAN_1(i__),Memb_1(i__),n_Memb_1(i__),
+ sigDist_1(i__),sigRV_1(i__)
if(ar__5(39:43) .EQ. '') EW_Li_1(i__) = rNULL__
if(ar__5(52:56) .EQ. '') logLX_2(i__) = rNULL__
if(ar__5(58:61) .EQ. '') e_logLX_2(i__) = rNULL__
if(ar__5(63:70) .EQ. '') FUV_J_2(i__) = rNULL__
if(ar__5(72:79) .EQ. '') NUV_J_2(i__) = rNULL__
if(ar__5(127:131) .EQ. '') BANYAN_1(i__) = rNULL__
if(ar__5(137:140) .EQ. '') sigDist_1(i__) = rNULL__
if(ar__5(142:145) .EQ. '') sigRV_1(i__) = rNULL__
c ..............Just test output...........
write(6,6)
+ Group_1(i__),v2MASS_4(i__),m_2MASS_1(i__),SpType_2(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_2(i__),e_logLX_2(i__),
+ FUV_J_2(i__),NUV_J_2(i__),X_2(i__),Y_2(i__),Z_2(i__),U_2(i__),
+ V_2(i__),W_2(i__),BANYAN_1(i__),Memb_1(i__),n_Memb_1(i__),
+ sigDist_1(i__),sigRV_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Low-probability candidate members
C Format for file interpretation
7 format(
+ A13,1X,A16,A1,1X,A5,1X,F5.3,1X,F6.2,1X,F5.2,1X,F4.2,1X,E8.3,
+ 1X,E8.3,1X,F7.2,1X,F8.2,1X,F7.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,
+ F5.1,1X,A1,1X,A1,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,10
read(1,'(A145)')ar__6
read(ar__6,7)
+ Group_2(i__),v2MASS_5(i__),m_2MASS_2(i__),SpType_3(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_3(i__),e_logLX_3(i__),
+ FUV_J_3(i__),NUV_J_3(i__),X_3(i__),Y_3(i__),Z_3(i__),U_3(i__),
+ V_3(i__),W_3(i__),BANYAN_2(i__),Memb_2(i__),n_Memb_2(i__),
+ sigDist_2(i__),sigRV_2(i__)
if(ar__6(39:43) .EQ. '') EW_Li_1(i__) = rNULL__
if(ar__6(52:56) .EQ. '') logLX_3(i__) = rNULL__
if(ar__6(58:61) .EQ. '') e_logLX_3(i__) = rNULL__
if(ar__6(63:70) .EQ. '') FUV_J_3(i__) = rNULL__
if(ar__6(72:79) .EQ. '') NUV_J_3(i__) = rNULL__
if(ar__6(127:131) .EQ. '') BANYAN_2(i__) = rNULL__
if(ar__6(137:140) .EQ. '') sigDist_2(i__) = rNULL__
if(ar__6(142:145) .EQ. '') sigRV_2(i__) = rNULL__
c ..............Just test output...........
write(6,7)
+ Group_2(i__),v2MASS_5(i__),m_2MASS_2(i__),SpType_3(i__),
+ EW_Li_1(i__),EW_Ha_1(i__),logLX_3(i__),e_logLX_3(i__),
+ FUV_J_3(i__),NUV_J_3(i__),X_3(i__),Y_3(i__),Z_3(i__),U_3(i__),
+ V_3(i__),W_3(i__),BANYAN_2(i__),Memb_2(i__),n_Memb_2(i__),
+ sigDist_2(i__),sigRV_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! List of references
C Format for file interpretation
8 format(I2,1X,A32,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,65
read(1,'(A55)')ar__7
read(ar__7,8)Ref(i__),Aut(i__),Bibcode(i__)
c ..............Just test output...........
write(6,8)Ref(i__),Aut(i__),Bibcode(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end