Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/157/234 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 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 ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*5 SpType ! Spectral type
integer*4 n_SpType ! [1/32] Reference for SpType (1)
real*8 Dist ! (pc) [4.55/2651.113]? Gaia DR2 (Cat. I/347) distance
real*8 e_Dist ! (pc) [0.001/278.325]? Uncertainty in Dist
character*1 n_Dist ! Reference for Dist (2)
real*8 pmRA ! (mas) [-636.175/1691.123] Proper motion in RA
* {mu}_{alpha}_*cos{delta}
real*4 e_pmRA ! (mas) [0.026/6.9] Uncertainty in pmRA
real*8 pmDE ! (mas) [-1881.064/825.773] Proper motion in DE
* {mu}_{delta}_
real*4 e_pmDE ! (mas) [0.026/7.7] Uncertainty in pmDE
character*1 n_pm ! Reference for pm (3)
real*8 RV ! (km/s) [-292.78/115.97] Radial velocity
real*4 e_RV ! (km/s) [0.08/67.57] Uncertainty in RV
real*8 X ! (pc) [-454.652/1469.394]? X coordinate
real*4 e_X ! (pc) [0.0/93.545]? Uncertainty in X
real*8 Y ! (pc) [-2319.397/186.301]? Y coordinate
real*8 e_Y ! (pc) [0/243.5]? Uncertainty in Y
real*8 Z ! (pc) [-419.993/1251.985]? Z coordinate
real*8 e_Z ! (pc) [0/131.439]? Uncertainty in Z
real*8 U ! (km/s) [-284.971/62.655]? Velocity towards Galactic
* center
real*4 e_U ! (km/s) [0.016/45.941]? Uncertainty in U
real*8 V ! (km/s) [-367.926/42.114]? Velocity in direction
* of Galactic rotation
real*4 e_V ! (km/s) [0.019/48.158]? Uncertainty in V
real*8 W ! (km/s) [-113.926/42.299]? Velocity toward North
* Galactic Pole
real*4 e_W ! (km/s) [0.008/15.208]? Uncertainty in W
real*8 Gmag ! (mag) [6.1774/19.0893]? Gaia G band magnitude
real*4 e_Gmag ! (mag) [0.0002/0.0351]? Uncertainty in Gmag
real*8 RPmag ! (mag) [5.6835/17.3748]? Gaia Red passband magnitude
real*4 e_RPmag ! (mag) [0.0006/0.0507]? Uncertainty in RPmag
real*8 BPmag ! (mag) [6.5608/20.7849]? Gaia Blue passband magnitude
real*4 e_BPmag ! (mag) [0.0011/0.2457]? Uncertainty in BPmag
real*4 Jmag ! (mag) [5.129/14.242] 2MASS J band magnitude
real*4 e_Jmag ! (mag) [0.017/0.054] Uncertainty in Jmag
real*4 Hmag ! (mag) [4.831/14.006] 2MASS H band magnitude
real*4 e_Hmag ! (mag) [0.015/0.086] Uncertainty in Hmag
real*4 Ksmag ! (mag) [4.529/13.913] 2MASS K_s_ band magnitude
real*4 e_Ksmag ! (mag) [0.015/0.057] Uncertainty in Ksmag
real*4 EW_Li ! (0.1pm) [0.058/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha ! (0.1pm) [-82.28/1.63] H{alpha} equivalent width (G1)
real*4 logLX ! ([10-7W]) [27.56/31.9]? Log X-ray luminosity (in erg/s)
real*4 e_logLX ! ([10-7W]) [0.01/0.68]? Uncertainty in logLX (in erg/s)
real*4 FUVmag ! (mag) [14.114/23.571]? GALEX FUV band magnitude
real*4 e_FUVmag ! (mag) [0.008/0.555]? Uncertainty in FUVmag
real*4 FUV_J ! [4.52e-06/0.0178]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUVmag ! (mag) [13.722/23.45]? GALEX NUV band magnitude
real*4 e_NUVmag ! (mag) [0.004/0.549]? Uncertainty in NUVmag
real*4 NUV_J ! [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 ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*27 OName ! Other identifier
character*14 T_I ! Telescope/Instrument used
character*11 Date ! ("date") UT date of the observation
real*8 RV_1 ! (km/s) [-179.03/151.53] Radial velocity
real*4 e_RV_1 ! (km/s) [0.08/11.13] Uncertainty in RV
character*4 SB ! Spectroscopic binary?
character*1 f_SB ! [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 ! 2MASS identifier (HHMMSSss+DDMMSSs)
real*8 RV_2 ! (km/s) [-132.01/115.97] Radial velocity from this work
real*4 e_RV_2 ! (km/s) [0.09/35.42] Uncertainty in RV
real*8 RV_lit ! (km/s) [-164.62/144.42] Literature radial velocity
real*4 e_RV_lit ! (km/s) [0.01/117.2]? Uncertainty in RV-lit
integer*4 r_RV_lit ! [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 ! [1/69] System number
real*4 Comp ! [1.1/69.2] Companion number
real*8 RAdeg ! (deg) Gaia DR2 Right Ascension (ICRS) at Ep=2015.5
real*8 DEdeg ! (deg) Gaia DR2 Declination (ICRS) at Ep=2015.5
real*8 Plx ! (mas) [4.0776/85.8373] Parallax
real*4 e_Plx ! (mas) [0.0188/1.5383] Uncertainty in Plx
real*8 pmRA_1 ! (mas/yr) [-396.396/677.548] Proper motion along RA
* (pmRA*cosDE)
real*4 e_pmRA_1 ! (mas/yr) [0.023/2.782] Uncertainty in pmRA
real*8 pmDE_1 ! (mas/yr) [-377.302/481.326] Proper motion along DE
real*4 e_pmDE_1 ! (mas/yr) [0.027/3.049] Uncertainty in pmDE
real*4 Sep1 ! (arcsec) [1/375]? Separation in arcsec
integer*4 Sep2 ! (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 ! Moving group identifier
character*16 v2MASS_3 ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_1 ! Spectral type
real*4 EW_Li_1 ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_1 ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_1 ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_1 ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_1 ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_1 ! (pc) [-454.65/74.7] X coordinate
real*8 Y_1 ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_1 ! (pc) [-419.99/143.77] Z coordinate
real*4 U_1 ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_1 ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_1 ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb ! New member? (not in Table 8) (2)
character*1 n_Memb ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV ! (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 ! Moving group identifier
character*16 v2MASS_4 ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS_1 ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_2 ! Spectral type
real*4 EW_Li_1 ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_2 ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_2 ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_2 ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_2 ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_2 ! (pc) [-454.65/74.7] X coordinate
real*8 Y_2 ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_2 ! (pc) [-419.99/143.77] Z coordinate
real*4 U_2 ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_2 ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_2 ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN_1 ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb_1 ! New member? (not in Table 8) (2)
character*1 n_Memb_1 ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist_1 ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV_1 ! (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 ! Moving group identifier
character*16 v2MASS_5 ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*1 m_2MASS_2 ! [AB] Multiplicity index on 2MASS (only in
* Table 7)
character*5 SpType_3 ! Spectral type
real*4 EW_Li_1 ! (0.1pm) [0.073/0.739]? Lithium 6707{AA} equivalent
* width (G1)
real*4 EW_Ha_1 ! (0.1pm) [-63.46/1.49] H{alpha} equivalent width (G1)
real*4 logLX_3 ! ([10-7W]) [28.26/31.36]? Log X-ray luminosity (in erg/s)
real*4 e_logLX_3 ! ([10-7W]) [0.03/0.33]? Uncertainty in logLX (in erg/s)
real*4 FUV_J_3 ! [1.02e-05/0.000188]? GALEX FUV to 2MASS J band
* flux ratio
real*4 NUV_J_3 ! [5.45e-05/0.000772]? GALEX NUV to 2MASS J band
* flux ratio
real*8 X_3 ! (pc) [-454.65/74.7] X coordinate
real*8 Y_3 ! (pc) [-1268.7/18.73] Y coordinate
real*8 Z_3 ! (pc) [-419.99/143.77] Z coordinate
real*4 U_3 ! (km/s) [-59.23/10.52] Velocity towards Galactic
* center
real*4 V_3 ! (km/s) [-79.45/13.84] Velocity in direction of
* Galactic rotation
real*4 W_3 ! (km/s) [-54.38/18.89] Velocity toward North Galactic
* Pole
real*4 BANYAN_2 ! (%) [1.3/100]? The BANYAN {Sigma} percentage
* (only in Table 6) (1)
character*1 Memb_2 ! New member? (not in Table 8) (2)
character*1 n_Memb_2 ! [bcdef] Note on Memb (only in Table 6) (3)
real*4 sigDist_2 ! (pc) [1.07/8.84]? Distance {sigma} difference
* {sigma}_dist_ (only in Table 8) (4)
real*4 sigRV_2 ! (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 ! [1/65] Reference code
character*32 Aut ! Author's name(s)
character*19 Bibcode ! 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,SpType,n_SpType,Dist,e_Dist,n_Dist,pmRA,e_pmRA,pmDE,
+ e_pmDE,n_pm,RV,e_RV,X,e_X,Y,e_Y,Z,e_Z,U,e_U,V,e_V,W,e_W,Gmag,
+ e_Gmag,RPmag,e_RPmag,BPmag,e_BPmag,Jmag,e_Jmag,Hmag,e_Hmag,
+ Ksmag,e_Ksmag,EW_Li,EW_Ha,logLX,e_logLX,FUVmag,e_FUVmag,FUV_J,
+ NUVmag,e_NUVmag,NUV_J
if(ar__(27:34) .EQ. '') Dist = rNULL__
if(ar__(36:42) .EQ. '') e_Dist = rNULL__
if(ar__(93:100) .EQ. '') X = rNULL__
if(ar__(102:107) .EQ. '') e_X = rNULL__
if(ar__(109:117) .EQ. '') Y = rNULL__
if(ar__(119:125) .EQ. '') e_Y = rNULL__
if(ar__(127:134) .EQ. '') Z = rNULL__
if(ar__(136:142) .EQ. '') e_Z = rNULL__
if(ar__(144:151) .EQ. '') U = rNULL__
if(ar__(153:158) .EQ. '') e_U = rNULL__
if(ar__(160:167) .EQ. '') V = rNULL__
if(ar__(169:174) .EQ. '') e_V = rNULL__
if(ar__(176:183) .EQ. '') W = rNULL__
if(ar__(185:190) .EQ. '') e_W = rNULL__
if(ar__(192:198) .EQ. '') Gmag = rNULL__
if(ar__(200:205) .EQ. '') e_Gmag = rNULL__
if(ar__(207:213) .EQ. '') RPmag = rNULL__
if(ar__(215:220) .EQ. '') e_RPmag = rNULL__
if(ar__(222:228) .EQ. '') BPmag = rNULL__
if(ar__(230:235) .EQ. '') e_BPmag = rNULL__
if(ar__(276:280) .EQ. '') EW_Li = rNULL__
if(ar__(289:293) .EQ. '') logLX = rNULL__
if(ar__(295:298) .EQ. '') e_logLX = rNULL__
if(ar__(300:305) .EQ. '') FUVmag = rNULL__
if(ar__(307:311) .EQ. '') e_FUVmag = rNULL__
if(ar__(313:320) .EQ. '') FUV_J = rNULL__
if(ar__(322:327) .EQ. '') NUVmag = rNULL__
if(ar__(329:333) .EQ. '') e_NUVmag = rNULL__
if(ar__(335:342) .EQ. '') NUV_J = rNULL__
c ..............Just test output...........
write(6,1)
+ v2MASS,SpType,n_SpType,Dist,e_Dist,n_Dist,pmRA,e_pmRA,pmDE,
+ e_pmDE,n_pm,RV,e_RV,X,e_X,Y,e_Y,Z,e_Z,U,e_U,V,e_V,W,e_W,Gmag,
+ e_Gmag,RPmag,e_RPmag,BPmag,e_BPmag,Jmag,e_Jmag,Hmag,e_Hmag,
+ Ksmag,e_Ksmag,EW_Li,EW_Ha,logLX,e_logLX,FUVmag,e_FUVmag,FUV_J,
+ NUVmag,e_NUVmag,NUV_J
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,OName,T_I,Date,RV_1,e_RV_1,SB,f_SB
c ..............Just test output...........
write(6,2)v2MASS_1,OName,T_I,Date,RV_1,e_RV_1,SB,f_SB
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,RV_2,e_RV_2,RV_lit,e_RV_lit,r_RV_lit
if(ar__2(40:45) .EQ. '') e_RV_lit = rNULL__
c ..............Just test output...........
write(6,3)v2MASS_2,RV_2,e_RV_2,RV_lit,e_RV_lit,r_RV_lit
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,Comp,RAdeg,DEdeg,Plx,e_Plx,pmRA_1,e_pmRA_1,pmDE_1,
+ e_pmDE_1,Sep1,Sep2
if(ar__3(86:90) .EQ. '') Sep1 = rNULL__
if(ar__3(92:96) .EQ. '') Sep2 = iNULL__
c ..............Just test output...........
write(6,4)
+ Syst,Comp,RAdeg,DEdeg,Plx,e_Plx,pmRA_1,e_pmRA_1,pmDE_1,
+ e_pmDE_1,Sep1,Sep2
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,v2MASS_3,m_2MASS,SpType_1,EW_Li_1,EW_Ha_1,logLX_1,
+ e_logLX_1,FUV_J_1,NUV_J_1,X_1,Y_1,Z_1,U_1,V_1,W_1,BANYAN,Memb,
+ n_Memb,sigDist,sigRV
if(ar__4(39:43) .EQ. '') EW_Li_1 = rNULL__
if(ar__4(52:56) .EQ. '') logLX_1 = rNULL__
if(ar__4(58:61) .EQ. '') e_logLX_1 = rNULL__
if(ar__4(63:70) .EQ. '') FUV_J_1 = rNULL__
if(ar__4(72:79) .EQ. '') NUV_J_1 = rNULL__
if(ar__4(127:131) .EQ. '') BANYAN = rNULL__
if(ar__4(137:140) .EQ. '') sigDist = rNULL__
if(ar__4(142:145) .EQ. '') sigRV = rNULL__
c ..............Just test output...........
write(6,5)
+ Group,v2MASS_3,m_2MASS,SpType_1,EW_Li_1,EW_Ha_1,logLX_1,
+ e_logLX_1,FUV_J_1,NUV_J_1,X_1,Y_1,Z_1,U_1,V_1,W_1,BANYAN,Memb,
+ n_Memb,sigDist,sigRV
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,v2MASS_4,m_2MASS_1,SpType_2,EW_Li_1,EW_Ha_1,logLX_2,
+ e_logLX_2,FUV_J_2,NUV_J_2,X_2,Y_2,Z_2,U_2,V_2,W_2,BANYAN_1,
+ Memb_1,n_Memb_1,sigDist_1,sigRV_1
if(ar__5(39:43) .EQ. '') EW_Li_1 = rNULL__
if(ar__5(52:56) .EQ. '') logLX_2 = rNULL__
if(ar__5(58:61) .EQ. '') e_logLX_2 = rNULL__
if(ar__5(63:70) .EQ. '') FUV_J_2 = rNULL__
if(ar__5(72:79) .EQ. '') NUV_J_2 = rNULL__
if(ar__5(127:131) .EQ. '') BANYAN_1 = rNULL__
if(ar__5(137:140) .EQ. '') sigDist_1 = rNULL__
if(ar__5(142:145) .EQ. '') sigRV_1 = rNULL__
c ..............Just test output...........
write(6,6)
+ Group_1,v2MASS_4,m_2MASS_1,SpType_2,EW_Li_1,EW_Ha_1,logLX_2,
+ e_logLX_2,FUV_J_2,NUV_J_2,X_2,Y_2,Z_2,U_2,V_2,W_2,BANYAN_1,
+ Memb_1,n_Memb_1,sigDist_1,sigRV_1
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,v2MASS_5,m_2MASS_2,SpType_3,EW_Li_1,EW_Ha_1,logLX_3,
+ e_logLX_3,FUV_J_3,NUV_J_3,X_3,Y_3,Z_3,U_3,V_3,W_3,BANYAN_2,
+ Memb_2,n_Memb_2,sigDist_2,sigRV_2
if(ar__6(39:43) .EQ. '') EW_Li_1 = rNULL__
if(ar__6(52:56) .EQ. '') logLX_3 = rNULL__
if(ar__6(58:61) .EQ. '') e_logLX_3 = rNULL__
if(ar__6(63:70) .EQ. '') FUV_J_3 = rNULL__
if(ar__6(72:79) .EQ. '') NUV_J_3 = rNULL__
if(ar__6(127:131) .EQ. '') BANYAN_2 = rNULL__
if(ar__6(137:140) .EQ. '') sigDist_2 = rNULL__
if(ar__6(142:145) .EQ. '') sigRV_2 = rNULL__
c ..............Just test output...........
write(6,7)
+ Group_2,v2MASS_5,m_2MASS_2,SpType_3,EW_Li_1,EW_Ha_1,logLX_3,
+ e_logLX_3,FUV_J_3,NUV_J_3,X_3,Y_3,Z_3,U_3,V_3,W_3,BANYAN_2,
+ Memb_2,n_Memb_2,sigDist_2,sigRV_2
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,Aut,Bibcode
c ..............Just test output...........
write(6,8)Ref,Aut,Bibcode
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end