Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/190/100 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/ApJS/190/100 NIR proper motion survey using 2MASS (Kirkpatrick+, 2010)
*================================================================================
*Discoveries from a near-infrared proper motion survey using multi-epoch
*Two Micron All-Sky Survey data.
* Kirkpatrick J.D., Looper D.L., Burgasser A.J., Schurr S.D., Cutri R.M.,
* Cushing M.C., Cruz K.L., Sweet A.C., Knapp G.R., Barman T.S.,
* Bochanski J.J., Roellig T.L., McLean I.S., McGovern M.R., Rice E.L.
* <Astrophys. J. Suppl. Ser., 190, 100-146 (2010)>
* =2010ApJS..190..100K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of 2MASS proper motion candidates
integer*4 nr__
parameter (nr__=2791) ! Number of records
character*186 ar__ ! Full-size record
character*17 v2MASS ! 2MASS Designation (1)
integer*4 L ! [1-3] List from which candidate was drawn (2)
character*1 B ! [IJ] Shortest wavelength band at which
* object is seen (3)
character*1 S ! [*] Indicates spectroscopic follow-up
real*4 v2Mpm ! (arcsec/yr) ? 2MASS measured proper motion
real*4 e_2Mpm ! (arcsec/yr) ? Uncertainty in 2Mpm
integer*4 v2MPA ! (deg) ? 2MASS measured proper motion position angle
real*4 MSig ! ? Motion significance
real*4 Jmag ! (mag) 2MASS J band magnitude
real*4 e_Jmag ! (mag) ? Uncertainty in Jmag
real*4 Hmag ! (mag) 2MASS H band magnitude
real*4 e_Hmag ! (mag) ? Uncertainty in Hmag
real*4 Ksmag ! (mag) ? 2MASS Ks band magnitude
real*4 e_Ksmag ! (mag) ? Uncertainty in Kmag
real*4 HJmag ! (mag) ? Reduced proper motion at J-band defined
* as HJmag=Jmag+5*log(2Mpm)+5.
real*4 USpm ! (arcsec/yr) ? USNO-B measured proper motion
real*4 e_USpm ! (arcsec/yr) ? Uncertainty in USpm
integer*4 USPA ! (deg) ? USNO-B proper motion position angle
real*4 B1mag ! (mag) ? USNO-B B1 magnitude
real*4 B2mag ! (mag) ? USNO-B B2 magnitude
real*4 R1mag ! (mag) ? USNO-B R1 magnitude
real*4 R2mag ! (mag) ? USNO-B R2 magnitude
real*4 Imag ! (mag) ? USNO-B I magnitude
real*4 pm ! (arcsec/yr) ? SIMBAD measured proper motion
real*4 e_pm ! (arcsec/yr) ? Uncertainty in Spm
integer*4 pmPA ! (deg) ? position angle of Simbad proper motion
character*25 SName ! SIMBAD name
character*11 SpT ! ?=--- SIMBAD spectral type
*Note (1): The name includes the sexagesimal J2000 position encoded
* as HHMMSS.ss+DDMMSS.s.
*Note (2): List from which the proper motion candidate came; as follows:
* 1 = Section 2.1: data from the 2MASS All-Sky Point Source Catalog (PSC)
* as epoch 1 (1X) and from the 2MASS 6X Point Source Working
* Database/Catalog as epoch 2.,
* 2 = Section 2.2.1: 2MASS 1X survey only,
* 3 = Section 2.2.2: kinematic selection with imposed color criteria
* between the first and last 2MASS epochs.
*Note (3): For objects not visible on the B- or R-band plates of the
* Digitized Sky Surveys. "I" if it visible in the DSS I-band plates or
* "J" if it is seen only in 2MASS.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Spectroscopic follow-up of discoveries
integer*4 nr__1
parameter (nr__1=246) ! Number of records
character*113 ar__1 ! Full-size record
character*17 v2MASS_1 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 m_2MASS ! [AB] Component letter
character*1 n_2MASS ! [bdgfh] Individual notes (1)
character*12 Tel ! Telescope
character*7 Inst ! Instrument
character*10 ObsDate ! ("Y/M/D") Date(s) of observation (UT)
character*3 Obs2 ! Second date
character*11 Weath ! Weather conditions
integer*4 Int ! (s) ? Integration time
character*1 u_Int ! [?] Uncertainty flag for Int
character*13 SpT_Opt ! ?=--- Optical spectral type
character*18 SpT_NIR ! ?=--- NIR spectral type
character*1 n_SpT_NIR ! [ace] Notes on NIR spectrum (2)
*Note (1): Flag as follows:
* b = 2MASS J1043+1213: this discovery has since been independently confirmed
* and published by Chiu et al. (2006, Cat. J/AJ/131/2722).
* d = 2MASS J1924+5506: this shares common proper motion with an object 10.0"
* distant and at PA=115{deg}. This other object has a 960 sec IRTF-SpeX
* spectrum from 2005/10/19 (UT) that shows it to be a white dwarf.
* f = 2MASS J0115-7519: this object was found in both the 1X-6X and the 1X-1X
* survey.
* g = 2MASS J0100+1711: this object is also known as LHS 1174.
* h = Additional spectroscopic data for 2MASS J1821+1414 and 2MASS J2148+4003
* are presented in Looper et al., 2008ApJ...685.1183L.
*Note (2): Flag as follows:
* a = The near-infrared classification here is based only on a NIRSPEC N3
* spectrum covering 1.15-1.35um.
* c = 2MASS J1520-4422AB: near-infrared spectra types are taken from
* Burgasser et al. (2007ApJ...657..494B).
* e = 2MASS J2148+4003: spectral type based on a NIRSPEC N1+N2 spectrum
* covering 0.95-1.30um.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Supporting observations of M and L dwarfs and
subdwarfs
integer*4 nr__2
parameter (nr__2=28) ! Number of records
character*111 ar__2 ! Full-size record
character*17 v2MASS_2 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*16 OName ! Other name
character*12 Tel_1 ! Telescope
character*7 Inst_1 ! Instrument
character*10 ObsDate_1 ! ("YYYY/MM/DD") Date of observation (UT)
character*5 Weath_1 ! ?=--- Weather conditions
integer*4 Int_1 ! (s) Integration time
character*8 SpT_Opt_1 ! ?=--- Optical spectral type
character*7 SpT_new ! ?=--- New optical spectral type (1)
character*1 n_SpT_new ! [b] Note (2)
character*8 SpT_1 ! ?=--- Adopted spectral type
character*1 n_SpT ! [c-f] Note on the adopted spectral type (3)
*Note (1): Typed on the subdwarf classification system of Lepine et al.
* (2007ApJ...669.1235L) using the spectra obtained here.
*Note (2): b = Does not warrant a subdwarf classification on the new
* Lepine et al. (2007ApJ...669.1235L) system.
*Note (3): Flag as follows:
* c = Established as the esdM7.5 standard in Lepine et al. (2007ApJ...669.1235L)
* d = Established as the usdM7.5 standard in Lepine et al. (2007ApJ...669.1235L)
* e = Established as the sdM8 standard in Lepine et al. (2007ApJ...669.1235L)
* f = See Cushing & Vacca (2006AJ....131.1797C) for more information on the
* classification and interpretation of LSR J1610-0040.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! New M and L dwarfs spectral standards in the
near-infrared
integer*4 nr__3
parameter (nr__3=20) ! Number of records
character*79 ar__3 ! Full-size record
character*17 v2MASS_3 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*8 OName_1 ! Other name
character*2 SpTIR ! ?=--- Adopted NIR spectral type
real*4 Jmag_1 ! (mag) 2MASS J-band magnitude
real*4 e_Jmag_1 ! (mag) Jmag uncertainty
real*4 J_H ! (mag) 2MASS J-H color index
real*4 e_J_H ! (mag) J-H uncertainty
real*4 J_Ks ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks ! (mag) J-Ks uncertainty
character*4 SpT_O ! ?=--- Published optical spectral type
integer*4 r_SpT_O ! ?=- Optical reference (1)
*Note (1): References as follows:
* 1 = Kirkpatrick et al., 2000AJ....120..447K;
* 2 = Cruz et al., 2003, Cat. J/AJ/126/2421;
* 3 = Kirkpatrick et al., 1991ApJS...77..417K;
* 4 = Kirkpatrick et al., 1995AJ....109..797K;
* 5 = Kirkpatrick et al., 1999ApJ...519..802K;
* 6 = Kirkpatrick et al., 2008ApJ...689.1295K;
* 7 = Gizis et al., 2000AJ....120.1085G;
* 8 = unpublished from Kirkpatrick, as listed in DwarfArchives.org.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! New low-gravity objects
integer*4 nr__4
parameter (nr__4=6) ! Number of records
character*93 ar__4 ! Full-size record
character*17 v2MASS_4 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_2 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_1 ! ?=--- NIR spectral type
real*4 J_H_1 ! (mag) 2MASS J-H color index
real*4 e_J_H_1 ! (mag) J-H uncertainty
real*4 H_Ks ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks ! (mag) H-Ks uncertainty
real*4 J_Ks_1 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_1 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! New red L dwarfs
integer*4 nr__5
parameter (nr__5=5) ! Number of records
character*93 ar__5 ! Full-size record
character*17 v2MASS_5 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS_1 ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_3 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_2 ! ?=--- NIR spectral type
real*4 J_H_2 ! (mag) 2MASS J-H color index
real*4 e_J_H_2 ! (mag) J-H uncertainty
real*4 H_Ks_1 ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks_1 ! (mag) H-Ks uncertainty
real*4 J_Ks_2 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_2 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! New M and L subdwarfs
integer*4 nr__6
parameter (nr__6=15) ! Number of records
character*93 ar__6 ! Full-size record
character*17 v2MASS_6 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS_2 ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_4 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_3 ! ?=--- NIR spectral type
real*4 J_H_3 ! (mag) 2MASS J-H color index
real*4 e_J_H_3 ! (mag) J-H uncertainty
real*4 H_Ks_2 ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks_2 ! (mag) H-Ks uncertainty
real*4 J_Ks_3 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_3 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! New blue L dwarfs
integer*4 nr__7
parameter (nr__7=8) ! Number of records
character*93 ar__7 ! Full-size record
character*17 v2MASS_7 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS_3 ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_5 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_4 ! ?=--- NIR spectral type
real*4 J_H_4 ! (mag) 2MASS J-H color index
real*4 e_J_H_4 ! (mag) J-H uncertainty
real*4 H_Ks_3 ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks_3 ! (mag) H-Ks uncertainty
real*4 J_Ks_4 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_4 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! New T dwarfs
integer*4 nr__8
parameter (nr__8=5) ! Number of records
character*93 ar__8 ! Full-size record
character*17 v2MASS_8 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS_4 ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_6 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_5 ! ?=--- NIR spectral type
real*4 J_H_5 ! (mag) 2MASS J-H color index
real*4 e_J_H_5 ! (mag) J-H uncertainty
real*4 H_Ks_4 ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks_4 ! (mag) H-Ks uncertainty
real*4 J_Ks_5 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_5 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12.dat' ! Other interesting discoveries
integer*4 nr__9
parameter (nr__9=5) ! Number of records
character*93 ar__9 ! Full-size record
character*17 v2MASS_9 ! 2MASS identification (JHHMMSSss+DDMMSSs)
character*1 f_2MASS_5 ! [ab] Flag on 2MASS (1)
character*13 SpT_Opt_7 ! ?=--- Optical spectral type (2)
character*18 SpT_NIR_6 ! ?=--- NIR spectral type
real*4 J_H_6 ! (mag) 2MASS J-H color index
real*4 e_J_H_6 ! (mag) J-H uncertainty
real*4 H_Ks_5 ! (mag) 2MASS H-Ks color index
real*4 e_H_Ks_5 ! (mag) H-Ks uncertainty
real*4 J_Ks_6 ! (mag) 2MASS J-Ks color index
real*4 e_J_Ks_6 ! (mag) J-Ks uncertainty
*Note (1): Flag as follows:
* a = See Looper et al. (2008ApJ...685.1183L) for in-depth discussion
* b = Discovered independently by Chiu et al. (2006, Cat. J/AJ/131/2722).
*Note (2): In table5, optical spectral types use the Greek suffix designations of
* Cruz et al. (2009AJ....137.3345C) in which {gamma} is used to denote low
* gravity (as opposed to normal ({alpha}, usually dropped for convenience) or
* intermediate ({beta}) gravity). Objects of extremely low gravity are further
* denoted by {delta}, as originally outlined in Kirkpatrick (2005,
* Cat. J/other/ARA+A/43.195) and Kirkpatrick et al. (2006ApJ...639.1120K).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Known blue L dwarfs
integer*4 nr__10
parameter (nr__10=20) ! Number of records
character*109 ar__10 ! Full-size record
character*25 Name ! Designation (SDSS JHHMMSS.ss+DDMMSS.s or
* 2MASS JHHMMSSss+DDMMSSs)
character*1 f_Name ! [abc] Flag on name (1)
integer*4 r_Name ! Discovery reference (2)
real*4 Mpm ! (arcsec/yr) Proper motion
real*4 e_Mpm ! (arcsec/yr) Mpm uncertainty
real*4 Dist ! (pc) Distance (3)
character*1 u_Dist ! [:] Uncertainty flag for Dist
real*4 e_Dist ! (pc) ? Distance uncertainty
integer*4 Vtan ! (km/s) Tangential velocity
character*1 u_Vtan ! [:] Uncertainty flag for Vtan
integer*4 e_Vtan ! (km/s) ? Vtan uncertainty
integer*4 r_Vtan ! Kinematic reference (2)
character*6 SpT_Opt_8 ! ?=--- Optical spectral type
character*18 SpT_NIR_7 ! ?=--- NIR spectral type
real*4 e_SpT_NIR ! ? SpTypeIR uncertainty
character*5 r_SpT_NIR ! Spectral type reference(s) (2)
real*4 J_Ks_7 ! (mag) ? 2MASS J-Ks color index
real*4 e_J_Ks_7 ! (mag) ? J-Ks uncertainty
*Note (1): Flag as follows:
* a = SDSS J0805+4812: suspected binary comprised of mid-L and mid-T
* components; Burgasser et al. (2007ApJ...657..494B).
* b = 2MASS J09211411-2104446: also known as SIPS J0921-2104.
* c = 2MASS J1711+4028: also known as G 203-50B. Optical spectral type is
* determined here for the first time using a spectrum acquired on
* 2009/10/11 (UT) at Keck-I with LRIS (1200s integration).
*Note (2): References as follows:
* 1 = This paper;
* 2 = Knapp et al., 2004, Cat. J/AJ/127/3553;
* 3 = Cruz et al., 2003, Cat. J/AJ/126/2421;
* 4 = Folkes et al., 2007MNRAS.378..901F;
* 5 = Chiu et al. 2006, Cat. J/AJ/131/2722;
* 6 = Deacon et al., 2005, Cat. J/A+A/435/363;
* 7 = Radigan et al., 2008ApJ...689..471R;
* 8 = Faherty et al., 2009AJ....137....1F;
* 9 = Sheppard & Cushing, 2009AJ....137..304S;
* 10 = Burgasser et al., 2008ApJ...672.1159B;
* 11 = Reid et al., 2008, Cat. J/AJ/136/1290;
* 12 = Zhang et al., 2009, Cat. J/A+A/497/619;
* 13 = Gizis et al., 2000AJ....120.1085G;
* 14 = Hawley et al., 2002, Cat. J/AJ/123/3409.
*Note (3): For the new discoveries, we estimate a distance using the 2MASS J-band
* magnitude and the predicted absolute J-band magnitude given by the optical
* spectral type, as given by the relation of Looper et al., 2008ApJ...685.1183L.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! Measured velocities and distance estimates
integer*4 nr__11
parameter (nr__11=26) ! Number of records
character*84 ar__11 ! Full-size record
character*3 OType ! Type of object (1)
character*17 v2MASS_10 ! 2MASS designation (JHHMMSSss+DDMMSSs)
character*7 Source ! Optical or NIR (2)
character*9 SpType ! ?=--- Spectral type
character*10 ObsDate_2 ! ("YYYY/MM/DD") Observation date (UT)
integer*4 Vrad ! (km/s) Radial velocity
integer*4 e_Vrad ! (km/s) [50] Vrad uncertainty
integer*4 Dist_1 ! (pc) Estimated distance (3)
integer*4 Vtan_1 ! (km/s) Tangential velocity
integer*4 e_Vtan_1 ! (km/s) Vtan uncertainty
integer*4 Vel ! (km/s) Total space motion
integer*4 e_Vel ! (km/s) Vel uncertainty
*Note (1): Type as follows:
* LgO = Low-gravity Objects
* RLD = Red L Dwarfs
* Lsd = Late-M and L Subdwarfs
* BLD = Blue L Dwarfs
*Note (2): Type of spectrum, as given in Table 2, from which the listed spectral
* type and radial velocity were measured.
*Note (3): See Sections 6.1 and 6.3 for an object-by-object discussion of the
* distance estimates for the low-gravity objects and subdwarfs. Distances to the
* red and blue L dwarfs have been estimated with the Looper et al.,
* 2008ApJ...685.1183L, relations and use the listed spectral type and measured
* 2MASS J magnitude.
C=============================================================================
C Loading file 'table1.dat' ! List of 2MASS proper motion candidates
C Format for file interpretation
1 format(
+ A17,1X,I1,1X,A1,1X,A1,1X,F4.2,1X,F4.2,1X,I3,1X,F5.2,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F5.3,1X,
+ F5.3,1X,I3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,I3,1X,A25,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,2791
read(1,'(A186)')ar__
read(ar__,1)
+ v2MASS,L,B,S,v2Mpm,e_2Mpm,v2MPA,MSig,Jmag,e_Jmag,Hmag,e_Hmag,
+ Ksmag,e_Ksmag,HJmag,USpm,e_USpm,USPA,B1mag,B2mag,R1mag,R2mag,
+ Imag,pm,e_pm,pmPA,SName,SpT
if(ar__(25:28) .EQ. '') v2Mpm = rNULL__
if(ar__(30:33) .EQ. '') e_2Mpm = rNULL__
if(ar__(35:37) .EQ. '') v2MPA = iNULL__
if(ar__(39:43) .EQ. '') MSig = rNULL__
if(ar__(52:56) .EQ. '') e_Jmag = rNULL__
if(ar__(65:69) .EQ. '') e_Hmag = rNULL__
if(ar__(71:76) .EQ. '') Ksmag = rNULL__
if(ar__(78:82) .EQ. '') e_Ksmag = rNULL__
if(ar__(84:88) .EQ. '') HJmag = rNULL__
if(ar__(90:94) .EQ. '') USpm = rNULL__
if(ar__(96:100) .EQ. '') e_USpm = rNULL__
if(ar__(102:104) .EQ. '') USPA = iNULL__
if(ar__(106:110) .EQ. '') B1mag = rNULL__
if(ar__(112:116) .EQ. '') B2mag = rNULL__
if(ar__(118:122) .EQ. '') R1mag = rNULL__
if(ar__(124:128) .EQ. '') R2mag = rNULL__
if(ar__(130:134) .EQ. '') Imag = rNULL__
if(ar__(136:139) .EQ. '') pm = rNULL__
if(ar__(141:144) .EQ. '') e_pm = rNULL__
if(ar__(146:148) .EQ. '') pmPA = iNULL__
c ..............Just test output...........
write(6,1)
+ v2MASS,L,B,S,v2Mpm,e_2Mpm,v2MPA,MSig,Jmag,e_Jmag,Hmag,e_Hmag,
+ Ksmag,e_Ksmag,HJmag,USpm,e_USpm,USPA,B1mag,B2mag,R1mag,R2mag,
+ Imag,pm,e_pm,pmPA,SName,SpT
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Spectroscopic follow-up of discoveries
C Format for file interpretation
2 format(
+ 6X,A17,A1,A1,1X,A12,1X,A7,1X,A10,A3,1X,A11,1X,I4,A1,1X,A13,1X,
+ A18,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,246
read(1,'(A113)')ar__1
read(ar__1,2)
+ v2MASS_1,m_2MASS,n_2MASS,Tel,Inst,ObsDate,Obs2,Weath,Int,
+ u_Int,SpT_Opt,SpT_NIR,n_SpT_NIR
if(ar__1(74:77) .EQ. '') Int = iNULL__
c ..............Just test output...........
write(6,2)
+ v2MASS_1,m_2MASS,n_2MASS,Tel,Inst,ObsDate,Obs2,Weath,Int,
+ u_Int,SpT_Opt,SpT_NIR,n_SpT_NIR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Supporting observations of M and L dwarfs and
* subdwarfs
C Format for file interpretation
3 format(
+ 6X,A17,1X,A16,1X,A12,1X,A7,1X,A10,1X,A5,1X,I4,1X,A8,1X,A7,A1,
+ 1X,A8,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,28
read(1,'(A111)')ar__2
read(ar__2,3)
+ v2MASS_2,OName,Tel_1,Inst_1,ObsDate_1,Weath_1,Int_1,SpT_Opt_1,
+ SpT_new,n_SpT_new,SpT_1,n_SpT
c ..............Just test output...........
write(6,3)
+ v2MASS_2,OName,Tel_1,Inst_1,ObsDate_1,Weath_1,Int_1,SpT_Opt_1,
+ SpT_new,n_SpT_new,SpT_1,n_SpT
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! New M and L dwarfs spectral standards in the
* near-infrared
C Format for file interpretation
4 format(
+ 6X,A17,1X,A8,1X,A2,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,A4,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,20
read(1,'(A79)')ar__3
read(ar__3,4)
+ v2MASS_3,OName_1,SpTIR,Jmag_1,e_Jmag_1,J_H,e_J_H,J_Ks,e_J_Ks,
+ SpT_O,r_SpT_O
if (r_SpT_O .EQ. 45) r_SpT_O = iNULL__
c ..............Just test output...........
write(6,4)
+ v2MASS_3,OName_1,SpTIR,Jmag_1,e_Jmag_1,J_H,e_J_H,J_Ks,e_J_Ks,
+ SpT_O,r_SpT_O
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! New low-gravity objects
C Format for file interpretation
5 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,6
read(1,'(A93)')ar__4
read(ar__4,5)
+ v2MASS_4,f_2MASS,SpT_Opt_2,SpT_NIR_1,J_H_1,e_J_H_1,H_Ks,
+ e_H_Ks,J_Ks_1,e_J_Ks_1
c ..............Just test output...........
write(6,5)
+ v2MASS_4,f_2MASS,SpT_Opt_2,SpT_NIR_1,J_H_1,e_J_H_1,H_Ks,
+ e_H_Ks,J_Ks_1,e_J_Ks_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! New red L dwarfs
C Format for file interpretation
6 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,5
read(1,'(A93)')ar__5
read(ar__5,6)
+ v2MASS_5,f_2MASS_1,SpT_Opt_3,SpT_NIR_2,J_H_2,e_J_H_2,H_Ks_1,
+ e_H_Ks_1,J_Ks_2,e_J_Ks_2
c ..............Just test output...........
write(6,6)
+ v2MASS_5,f_2MASS_1,SpT_Opt_3,SpT_NIR_2,J_H_2,e_J_H_2,H_Ks_1,
+ e_H_Ks_1,J_Ks_2,e_J_Ks_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! New M and L subdwarfs
C Format for file interpretation
7 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,15
read(1,'(A93)')ar__6
read(ar__6,7)
+ v2MASS_6,f_2MASS_2,SpT_Opt_4,SpT_NIR_3,J_H_3,e_J_H_3,H_Ks_2,
+ e_H_Ks_2,J_Ks_3,e_J_Ks_3
c ..............Just test output...........
write(6,7)
+ v2MASS_6,f_2MASS_2,SpT_Opt_4,SpT_NIR_3,J_H_3,e_J_H_3,H_Ks_2,
+ e_H_Ks_2,J_Ks_3,e_J_Ks_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! New blue L dwarfs
C Format for file interpretation
8 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,8
read(1,'(A93)')ar__7
read(ar__7,8)
+ v2MASS_7,f_2MASS_3,SpT_Opt_5,SpT_NIR_4,J_H_4,e_J_H_4,H_Ks_3,
+ e_H_Ks_3,J_Ks_4,e_J_Ks_4
c ..............Just test output...........
write(6,8)
+ v2MASS_7,f_2MASS_3,SpT_Opt_5,SpT_NIR_4,J_H_4,e_J_H_4,H_Ks_3,
+ e_H_Ks_3,J_Ks_4,e_J_Ks_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! New T dwarfs
C Format for file interpretation
9 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table11.dat')
write(6,*) '....Loading file: table11.dat'
do i__=1,5
read(1,'(A93)')ar__8
read(ar__8,9)
+ v2MASS_8,f_2MASS_4,SpT_Opt_6,SpT_NIR_5,J_H_5,e_J_H_5,H_Ks_4,
+ e_H_Ks_4,J_Ks_5,e_J_Ks_5
c ..............Just test output...........
write(6,9)
+ v2MASS_8,f_2MASS_4,SpT_Opt_6,SpT_NIR_5,J_H_5,e_J_H_5,H_Ks_4,
+ e_H_Ks_4,J_Ks_5,e_J_Ks_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12.dat' ! Other interesting discoveries
C Format for file interpretation
10 format(
+ 6X,A17,A1,1X,A13,1X,A18,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table12.dat')
write(6,*) '....Loading file: table12.dat'
do i__=1,5
read(1,'(A93)')ar__9
read(ar__9,10)
+ v2MASS_9,f_2MASS_5,SpT_Opt_7,SpT_NIR_6,J_H_6,e_J_H_6,H_Ks_5,
+ e_H_Ks_5,J_Ks_6,e_J_Ks_6
c ..............Just test output...........
write(6,10)
+ v2MASS_9,f_2MASS_5,SpT_Opt_7,SpT_NIR_6,J_H_6,e_J_H_6,H_Ks_5,
+ e_H_Ks_5,J_Ks_6,e_J_Ks_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Known blue L dwarfs
C Format for file interpretation
11 format(
+ A25,A1,1X,I2,1X,F4.2,1X,F4.2,1X,F4.1,A1,1X,F4.1,1X,I3,A1,1X,
+ I2,1X,I2,1X,A6,1X,A18,1X,F3.1,1X,A5,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,20
read(1,'(A109)')ar__10
read(ar__10,11)
+ Name,f_Name,r_Name,Mpm,e_Mpm,Dist,u_Dist,e_Dist,Vtan,u_Vtan,
+ e_Vtan,r_Vtan,SpT_Opt_8,SpT_NIR_7,e_SpT_NIR,r_SpT_NIR,J_Ks_7,
+ e_J_Ks_7
if(ar__10(47:50) .EQ. '') e_Dist = rNULL__
if(ar__10(57:58) .EQ. '') e_Vtan = iNULL__
if(ar__10(89:91) .EQ. '') e_SpT_NIR = rNULL__
if(ar__10(99:103) .EQ. '') J_Ks_7 = rNULL__
if(ar__10(105:109) .EQ. '') e_J_Ks_7 = rNULL__
c ..............Just test output...........
write(6,11)
+ Name,f_Name,r_Name,Mpm,e_Mpm,Dist,u_Dist,e_Dist,Vtan,u_Vtan,
+ e_Vtan,r_Vtan,SpT_Opt_8,SpT_NIR_7,e_SpT_NIR,r_SpT_NIR,J_Ks_7,
+ e_J_Ks_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13.dat' ! Measured velocities and distance estimates
C Format for file interpretation
12 format(
+ A3,7X,A17,1X,A7,1X,A9,1X,A10,1X,I4,1X,I2,1X,I3,1X,I3,1X,I3,1X,
+ I3,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,26
read(1,'(A84)')ar__11
read(ar__11,12)
+ OType,v2MASS_10,Source,SpType,ObsDate_2,Vrad,e_Vrad,Dist_1,
+ Vtan_1,e_Vtan_1,Vel,e_Vel
c ..............Just test output...........
write(6,12)
+ OType,v2MASS_10,Source,SpType,ObsDate_2,Vrad,e_Vrad,Dist_1,
+ Vtan_1,e_Vtan_1,Vel,e_Vel
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end