Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/225/10 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-16
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/225/10 Kinematic analysis of M7-L8 dwarfs (Faherty+, 2016)
*================================================================================
*Population properties of brown dwarf analogs to exoplanets.
* Faherty J.K., Riedel A.R., Cruz K.L., Gagne J., Filippazzo J.C.,
* Lambrides E., Fica H., Weinberger A., Thorstensen J.R., Tinney C.G.,
* Baldassare V., Lemonier E., Rice E.L.
* <Astrophys. J. Suppl. Ser., 225, 10-10 (2016)>
* =2016ApJS..225...10F (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Photometric properties of low surface gravity dwarfs
integer*4 nr__
parameter (nr__=152) ! Number of records
character*156 ar__ ! Full-size record
character*18 v2MASS ! 2MASS designation (HHMMSSss+DDMMSSs; J2000) or
* other name
character*3 f_2MASS ! Flag(s) on 2MASS (G1)
character*5 OSpT ! Optical MK spectral type
character*6 OGrav ! Gravity assigned on optical spectra (1)
character*6 IRSpT ! Infrared MK spectral type (or range)
character*10 IGrav ! Gravity assigned on IR spectra (1)
character*1 f_IRSpT ! Flag on ITSpT (G1)
real*4 Jmag ! (mag) [8.3/17.7] 2MASS J-band magnitude
real*4 e_Jmag ! (mag) [0.01/0.3] Jmag uncertainty
real*4 Hmag ! (mag) [7.8/16.2] 2MASS H-band magnitude
real*4 e_Hmag ! (mag) [0.01/0.3] Jmag uncertainty
real*4 Ksmag ! (mag) [7.5/15.3] 2MASS Ks-band magnitude
real*4 e_Ksmag ! (mag) [0.01/0.2] Ksmag uncertainty
real*4 W1mag ! (mag) [7.3/14.8]? WISE W1 band (3.4um) magnitude
real*4 e_W1mag ! (mag) [0.02/0.04]? W1mag uncertainty
real*4 W2mag ! (mag) [7/14.4]? WISE W2 band (4.6um) magnitude
real*4 e_W2mag ! (mag) [0.01/0.06]? W2mag uncertainty
real*4 W3mag ! (mag) [6.8/13.4]? WISE W3 band (12um) magnitude
real*4 e_W3mag ! (mag) [0.01/0.6]? W3mag uncertainty
real*4 W4mag ! (mag) [5/9.8]? WISE W4 band (22um) magnitude
real*4 e_W4mag ! (mag) [0.02/0.6]? W4mag uncertainty
character*10 Ref ! Reference(s) for the spectral data and
* gravity analysis (see refs.dat file) (2)
*Note (1): The Cruz+ (2009AJ....137.3345C) system uses optical spectra and
* assigns a low surface gravity ({gamma}),
* intermediate gravity ({beta}), or field gravity ("-") based on the
* strength of metal oxide absorption bands and alkali lines.
* See section 2 for further explanations.
*Note (2): References are for the spectral data and gravity analysis (if
* different then the original spectral data reference).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Details on parallax targets and observations
integer*4 nr__1
parameter (nr__1=18) ! Number of records
character*67 ar__1 ! Full-size record
character*18 v2MASS_1 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
character*9 OSpT_1 ! Optical spectral type
character*9 IRSpT_1 ! Infrared spectral type
integer*4 Nn ! [3/7] Number of nights
integer*4 Nf ! [17/90] Number of frames (1)
integer*4 Ns ! [10/81] Number of reference stars (1)
real*4 Delt ! (yr) [2.2/9.9] {Delta}t value
character*6 Tel ! Telescope (see the "Description" section above)
character*2 Note ! Note (LG=low surface gravity object;
* N=field object)
character*6 Ref_1 ! References (see refs.dat file)
*Note (1): The number of reference stars and individual image frames used in
* the parallax solution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Results of parallax program
integer*4 nr__2
parameter (nr__2=18) ! Number of records
character*78 ar__2 ! Full-size record
character*18 v2MASS_2 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
character*9 OSpT_2 ! Optical spectral type
character*9 IRSpT_2 ! Infrared spectral type
real*8 pmRA ! (arcsec/yr) [-0.9/0.5] Proper motion
* along right ascension ({mu}_{alpha}_)
real*4 e_pmRA ! (arcsec/yr) [0.0008/0.01] pmRA uncertainty
real*8 pmDE ! (arcsec/yr) [-1.3/0.2] Proper motion
* along declination ({mu}_{delta}_)
real*4 e_pmDE ! (arcsec/yr) [0.0009/0.01] pmDE uncertainty
real*4 Plx ! (mas) [17/115] Parallax ({pi}_abs_)
real*4 e_Plx ! (mas) [1.6/7.4] Plx uncertainty
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! New proper-motion measurements
integer*4 nr__3
parameter (nr__3=33) ! Number of records
character*89 ar__3 ! Full-size record
character*18 v2MASS_3 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
* or other name
character*11 OSpT_3 ! Optical spectral type
character*15 IRSpT_3 ! Infrared spectral type
real*4 pmRA_1 ! (arcsec/yr) [-0.2/0.3] Proper motion
* along right ascension ({mu}_R.A._)
real*4 e_pmRA_1 ! (arcsec/yr) [0.005/0.04] pmRA uncertainty
real*4 pmDE_1 ! (arcsec/yr) [-0.3/0.08] Proper motion
* along declination ({mu}_decl._)
real*4 e_pmDE_1 ! (arcsec/yr) [0.004/0.02] pmDE uncertainty
character*10 Ref_2 ! References
* (see the "Description" section above)
real*4 Delt_1 ! (yr) [9.5/17] {Delta}t value (1)
*Note (1): In the case of the 18 proper-motion-only targets from either CAPSCam
* or FourStar, we combine our latest image with that of 2MASS.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Near-infrared spectral data for 43 sources
integer*4 nr__4
parameter (nr__4=52) ! Number of records
character*60 ar__4 ! Full-size record
character*18 v2MASS_4 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
* or other name
integer*4 m_2MASS ! ? When multiple observations of the same object
character*11 Date ! UT date of observation
character*5 Inst ! Instrument (see the "Description" section above)
character*7 Mode ! Mode
character*6 Slit ! (arcsec) Slit
integer*4 Exp ! (s) [90/1500] Integration time
integer*4 Nimg ! [2/8] Number of images
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Radial velocities from high resolution spectroscopy
for 50 sources
integer*4 nr__5
parameter (nr__5=61) ! Number of records
character*97 ar__5 ! Full-size record
character*18 v2MASS_5 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
character*5 f_2MASS_1 ! Flag(s) on 2MASS (1)
character*20 Tel_1 ! Telescope (see the "Description" section above)
integer*4 R ! [20000/50000] Resolving power
character*11 Date_1 ! UT date of observation
character*7 Std ! Standards used (2)
real*4 RV ! (km/s) [-39.2/52]? Radial velocity
real*4 e_RV ! (km/s) [0.01/15.1]? RV uncertainty
real*4 RVf ! (km/s) [-39.2/52]? RV final
real*4 e_RVf ! (km/s) [0.01/15.1]? RVf uncertainty
*Note (1): Flag as follows:
* a = Low-quality Spectrum.
* b = No useable spectrum.
* c = No spectroscopic signs of youth.
* d = This object is listed in Filippazzo+ (2015ApJ...810..158F) with
* a distance and reference to J. Faherty 2016, in preparation. The value
* in that paper was spectrophotometric and should not be regarded as
* a parallax.
*Note (2): Standard stars are as follows:
* 1 = 2MASS J18212815+1414010 (+9.78 Blake+ 2010, J/ApJ/723/684),
* 2 = 2MASS J00452143+1634446 (+3.29 Blake+ 2010, J/ApJ/723/684),
* 3 = 2MASS J22244381-0158521 (-37.55 Blake+ 2010, J/ApJ/723/684),
* 4 = LHS 2924 (-37.4 Mohanty+ 2003ApJ...593L.109M),
* 5 = BRI 1222-1221 (-4.8 Mohanty+ 2003ApJ...593L.109M),
* 6 = 2MASS J11553952-3727350 (+45.0 Seifahrt+ 2010, J/A+A/512/A37),
* 7 = 2MASS J05233822-1403022 (+11.82 Blake+ 2007ApJ...666.1198B)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Kinematic data on low surface gravity dwarfs
integer*4 nr__6
parameter (nr__6=152) ! Number of records
character*134 ar__6 ! Full-size record
character*18 v2MASS_6 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
* or other name
character*3 f_2MASS_2 ! Flag on 2MASS (G1)
character*5 OSpT_4 ! Optical MK spectral type
character*6 OGrav_1 ! Gravity associated to OSpT
character*6 IRSpT_4 ! Infrared MK spectral type
character*10 IGrav_1 ! Gravity associated to IRSpT
character*1 f_IRSpT_1 ! Flag on IRSpT (G1)
real*8 pmRA_2 ! (arcsec/yr) [-0.9/1.6] Proper motion
* along right ascension ({mu}_R.A.cosdecl._)
real*8 e_pmRA_2 ! (arcsec/yr) [0.0001/0.1] pmRA uncertainty
real*8 pmDE_2 ! (arcsec/yr) [-0.8/0.5] Proper motion
* along declination ({mu}_decl._)
real*8 e_pmDE_2 ! (arcsec/yr) [0.0001/0.3] pmDE uncertainty
real*4 Plx_1 ! (mas) [1.9/261]? Parallax
real*4 e_Plx_1 ! (mas) ? Plx uncertainty
integer*4 Dist ! (pc) ? Kinematic distance
integer*4 e_Dist ! (pc) ? Dist uncertainty
real*8 RV_1 ! (km/s) [-25.6/34]? Radial velocity
real*4 e_RV_1 ! (km/s) [0.04/8]? RV uncertainty (or negative
* uncertainty if E_RV is filled)
real*4 E_RV_2 ! (km/s) ? Positive error on RV
character*1 u_RV ! Uncertainty flag on RV
character*6 Ref2 ! Reference(s) (see refs.dat file)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12.dat' ! *Moving group membership probabilities
integer*4 nr__7
parameter (nr__7=152) ! Number of records
character*134 ar__7 ! Full-size record
character*18 v2MASS_7 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
* or other name
character*3 f_2MASS_3 ! Flag on 2MASS (G1)
character*5 OSpT_5 ! Optical MK spectral type
character*6 OGrav_2 ! Gravity assigned on optical spectra
character*6 IRSpT_5 ! Infrared MK spectral type
character*10 IGrav_2 ! Gravity assigned on infrared spectra
character*1 f_IRSpT_2 ! [a] Flag on IRSpT (G1)
character*1 l_PBII ! Limit flag on PBII
real*4 PBII ! [0/100]? BANYANII Gagne+ (2014, J/ApJ/783/121)
* membership probability
character*1 l_CBII ! Limit flag on CBII
real*8 CBII ! [0/100]? BANYANII contamination
character*8 GBII ! BANYAN II group designation
real*4 PL ! [0/100] LACEwING (Riedel 2017AJ....153...95R)
* membership probability
character*8 GL ! LACEwING group designation
real*4 PC ! [0/100]? Convergent Point method (Rodriguez+
* 2013ApJ...774..101R) membership probability
character*8 GC ! Convergent Point group designation
real*4 PBI ! [40/100] BANYAN I (Malo+, 2013, J/ApJ/762/88)
* membership probability
character*8 GBI ! BANYAN I group designation
character*3 Mm ! Membership decision (3)
*Note (3): Categories of membership probability as follows:
* NM = non-member: an object that is kinematically eliminated from falling
* into a nearby group regardless of future astrometric measurements
* (21 sources).
* AM = Ambiguous member: an object that requires updated astrometric precision
* because it could either belong to more than one group or it cannot be
* differentiated from the field (92 sources).
* HLM = High-likelihood member: an object that does not have full kinematics
* but is regarded as high confidence (>90% in Banayan I, >90% in Banyan II
* with <5% contamination, >90% in convergent point, >60% in LACEwING) in
* three of the four codes (29 sources).
* BM = bona fide member: an object regarded as a high-likelihood member with
* full kinematics (parallax, proper motion, radial velocity) demonstrating
* that it is in line with known higher-mass BMs of nearby groups
* (10 sources).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table14.dat' ! Fundamental parameters for young sources
integer*4 nr__8
parameter (nr__8=69) ! Number of records
character*108 ar__8 ! Full-size record
character*18 v2MASS_8 ! 2MASS designation (HHMMSSss+DDMMSSs; J2000)
* or other name
character*5 OSpT_6 ! Optical MK spectral type
character*6 OGrav_3 ! Gravity assigned on optical spectra
character*6 IRSpT_6 ! Infrared MK spectral type
character*10 IGrav_3 ! Gravity assigned on infrared spectra
character*1 f_IRSpT_3 ! [a] Flag on IRSpT (G1)
real*4 Plx_2 ! (mas) [1.9/260.7]? Parallax
real*4 e_Plx_2 ! (mas) [0.2/11.5]? Plx uncertainty
integer*4 Dist_1 ! (pc) [15/54]? Kinematic distance
integer*4 e_Dist_1 ! (pc) [1/9]? Dist uncertainty
real*4 Lbol ! [-4.6/-2.5]? Bolometric luminosity (1)
real*4 e_Lbol ! [0.005/0.4]? Lbol uncertainty
real*4 Teff ! (K) [1184/2986]? Effective temperature (1)
real*4 e_Teff ! (K) [10/526]? Teff uncertainty
real*4 Mass ! (Mjup) [6/122]? Mass (1)
real*4 e_Mass ! (Mjup) [0.7/49]? Mass uncertainty
*Note (1): L_bol_, T_eff_, and Mass are calculated as described in
* Filippazzo+ (2015ApJ...810..158F). Values that are slightly different
* from that work have been updated using new data presented in this
* paper.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References (60 unique)
integer*4 nr__9
parameter (nr__9=79) ! Number of records
character*103 ar__9 ! Full-size record
integer*4 Ref_3 ! Reference code
character*19 BibCode ! Bibcode of the reference
character*22 Auth ! First author's name(s)
character*56 Comm ! Comment
C=============================================================================
C Loading file 'table1.dat' ! Photometric properties of low surface gravity dwarfs
C Format for file interpretation
1 format(
+ A18,1X,A3,1X,A5,1X,A6,1X,A6,1X,A10,1X,A1,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,A10)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,152
read(1,'(A156)')ar__
read(ar__,1)
+ v2MASS,f_2MASS,OSpT,OGrav,IRSpT,IGrav,f_IRSpT,Jmag,e_Jmag,
+ Hmag,e_Hmag,Ksmag,e_Ksmag,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,
+ e_W3mag,W4mag,e_W4mag,Ref
if(ar__(96:101) .EQ. '') W1mag = rNULL__
if(ar__(103:107) .EQ. '') e_W1mag = rNULL__
if(ar__(109:114) .EQ. '') W2mag = rNULL__
if(ar__(116:120) .EQ. '') e_W2mag = rNULL__
if(ar__(122:127) .EQ. '') W3mag = rNULL__
if(ar__(129:133) .EQ. '') e_W3mag = rNULL__
if(ar__(135:139) .EQ. '') W4mag = rNULL__
if(ar__(141:145) .EQ. '') e_W4mag = rNULL__
c ..............Just test output...........
write(6,1)
+ v2MASS,f_2MASS,OSpT,OGrav,IRSpT,IGrav,f_IRSpT,Jmag,e_Jmag,
+ Hmag,e_Hmag,Ksmag,e_Ksmag,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,
+ e_W3mag,W4mag,e_W4mag,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Details on parallax targets and observations
C Format for file interpretation
2 format(
+ A18,1X,A9,1X,A9,1X,I1,1X,I2,1X,I2,1X,F3.1,1X,A6,1X,A2,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,18
read(1,'(A67)')ar__1
read(ar__1,2)
+ v2MASS_1,OSpT_1,IRSpT_1,Nn,Nf,Ns,Delt,Tel,Note,Ref_1
c ..............Just test output...........
write(6,2)
+ v2MASS_1,OSpT_1,IRSpT_1,Nn,Nf,Ns,Delt,Tel,Note,Ref_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Results of parallax program
C Format for file interpretation
3 format(
+ A18,1X,A9,1X,A9,1X,F7.4,1X,F6.4,1X,F7.4,1X,F6.4,1X,F5.1,1X,
+ F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,18
read(1,'(A78)')ar__2
read(ar__2,3)
+ v2MASS_2,OSpT_2,IRSpT_2,pmRA,e_pmRA,pmDE,e_pmDE,Plx,e_Plx
c ..............Just test output...........
write(6,3)
+ v2MASS_2,OSpT_2,IRSpT_2,pmRA,e_pmRA,pmDE,e_pmDE,Plx,e_Plx
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! New proper-motion measurements
C Format for file interpretation
4 format(
+ A18,1X,A11,1X,A15,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A10,1X,
+ F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,33
read(1,'(A89)')ar__3
read(ar__3,4)
+ v2MASS_3,OSpT_3,IRSpT_3,pmRA_1,e_pmRA_1,pmDE_1,e_pmDE_1,Ref_2,
+ Delt_1
c ..............Just test output...........
write(6,4)
+ v2MASS_3,OSpT_3,IRSpT_3,pmRA_1,e_pmRA_1,pmDE_1,e_pmDE_1,Ref_2,
+ Delt_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Near-infrared spectral data for 43 sources
C Format for file interpretation
5 format(A18,1X,I1,1X,A11,1X,A5,1X,A7,1X,A6,1X,I4,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,52
read(1,'(A60)')ar__4
read(ar__4,5)v2MASS_4,m_2MASS,Date,Inst,Mode,Slit,Exp,Nimg
if(ar__4(20:20) .EQ. '') m_2MASS = iNULL__
c ..............Just test output...........
write(6,5)v2MASS_4,m_2MASS,Date,Inst,Mode,Slit,Exp,Nimg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Radial velocities from high resolution spectroscopy
* for 50 sources
C Format for file interpretation
6 format(
+ A18,1X,A5,1X,A20,1X,I5,1X,A11,1X,A7,1X,F6.2,1X,F5.2,1X,F6.2,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,61
read(1,'(A97)')ar__5
read(ar__5,6)
+ v2MASS_5,f_2MASS_1,Tel_1,R,Date_1,Std,RV,e_RV,RVf,e_RVf
if(ar__5(73:78) .EQ. '') RV = rNULL__
if(ar__5(80:84) .EQ. '') e_RV = rNULL__
if(ar__5(86:91) .EQ. '') RVf = rNULL__
if(ar__5(93:97) .EQ. '') e_RVf = rNULL__
c ..............Just test output...........
write(6,6)
+ v2MASS_5,f_2MASS_1,Tel_1,R,Date_1,Std,RV,e_RV,RVf,e_RVf
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Kinematic data on low surface gravity dwarfs
C Format for file interpretation
7 format(
+ A18,1X,A3,1X,A5,1X,A6,1X,A6,1X,A10,1X,A1,1X,F8.5,1X,F7.5,1X,
+ F9.6,1X,F7.5,1X,F6.2,1X,F5.2,1X,I2,1X,I1,1X,F7.3,1X,F5.3,1X,
+ F3.1,A1,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,152
read(1,'(A134)')ar__6
read(ar__6,7)
+ v2MASS_6,f_2MASS_2,OSpT_4,OGrav_1,IRSpT_4,IGrav_1,f_IRSpT_1,
+ pmRA_2,e_pmRA_2,pmDE_2,e_pmDE_2,Plx_1,e_Plx_1,Dist,e_Dist,
+ RV_1,e_RV_1,E_RV_2,u_RV,Ref2
if(ar__6(92:97) .EQ. '') Plx_1 = rNULL__
if(ar__6(99:103) .EQ. '') e_Plx_1 = rNULL__
if(ar__6(105:106) .EQ. '') Dist = iNULL__
if(ar__6(108:108) .EQ. '') e_Dist = iNULL__
if(ar__6(110:116) .EQ. '') RV_1 = rNULL__
if(ar__6(118:122) .EQ. '') e_RV_1 = rNULL__
if(ar__6(124:126) .EQ. '') E_RV_2 = rNULL__
c ..............Just test output...........
write(6,7)
+ v2MASS_6,f_2MASS_2,OSpT_4,OGrav_1,IRSpT_4,IGrav_1,f_IRSpT_1,
+ pmRA_2,e_pmRA_2,pmDE_2,e_pmDE_2,Plx_1,e_Plx_1,Dist,e_Dist,
+ RV_1,e_RV_1,E_RV_2,u_RV,Ref2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12.dat' ! *Moving group membership probabilities
C Format for file interpretation
8 format(
+ A18,1X,A3,1X,A5,1X,A6,1X,A6,1X,A10,1X,A1,1X,A1,1X,F5.1,1X,A1,
+ 1X,F8.4,1X,A8,1X,F6.2,1X,A8,1X,F5.1,1X,A8,1X,F6.2,1X,A8,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table12.dat')
write(6,*) '....Loading file: table12.dat'
do i__=1,152
read(1,'(A134)')ar__7
read(ar__7,8)
+ v2MASS_7,f_2MASS_3,OSpT_5,OGrav_2,IRSpT_5,IGrav_2,f_IRSpT_2,
+ l_PBII,PBII,l_CBII,CBII,GBII,PL,GL,PC,GC,PBI,GBI,Mm
if(ar__7(59:63) .EQ. '') PBII = rNULL__
if(ar__7(67:74) .EQ. '') CBII = rNULL__
if(ar__7(101:105) .EQ. '') PC = rNULL__
c ..............Just test output...........
write(6,8)
+ v2MASS_7,f_2MASS_3,OSpT_5,OGrav_2,IRSpT_5,IGrav_2,f_IRSpT_2,
+ l_PBII,PBII,l_CBII,CBII,GBII,PL,GL,PC,GC,PBI,GBI,Mm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table14.dat' ! Fundamental parameters for young sources
C Format for file interpretation
9 format(
+ A18,1X,A5,1X,A6,1X,A6,1X,A10,1X,A1,1X,F6.2,1X,F5.2,1X,I2,1X,
+ I1,1X,F6.3,1X,F5.3,1X,F6.1,1X,F5.1,1X,F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table14.dat')
write(6,*) '....Loading file: table14.dat'
do i__=1,69
read(1,'(A108)')ar__8
read(ar__8,9)
+ v2MASS_8,OSpT_6,OGrav_3,IRSpT_6,IGrav_3,f_IRSpT_3,Plx_2,
+ e_Plx_2,Dist_1,e_Dist_1,Lbol,e_Lbol,Teff,e_Teff,Mass,e_Mass
if(ar__8(53:58) .EQ. '') Plx_2 = rNULL__
if(ar__8(60:64) .EQ. '') e_Plx_2 = rNULL__
if(ar__8(66:67) .EQ. '') Dist_1 = iNULL__
if(ar__8(69:69) .EQ. '') e_Dist_1 = iNULL__
if(ar__8(71:76) .EQ. '') Lbol = rNULL__
if(ar__8(78:82) .EQ. '') e_Lbol = rNULL__
if(ar__8(84:89) .EQ. '') Teff = rNULL__
if(ar__8(91:95) .EQ. '') e_Teff = rNULL__
if(ar__8(97:102) .EQ. '') Mass = rNULL__
if(ar__8(104:108) .EQ. '') e_Mass = rNULL__
c ..............Just test output...........
write(6,9)
+ v2MASS_8,OSpT_6,OGrav_3,IRSpT_6,IGrav_3,f_IRSpT_3,Plx_2,
+ e_Plx_2,Dist_1,e_Dist_1,Lbol,e_Lbol,Teff,e_Teff,Mass,e_Mass
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References (60 unique)
C Format for file interpretation
10 format(I3,1X,A19,1X,A22,1X,A56)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,79
read(1,'(A103)')ar__9
read(ar__9,10)Ref_3,BibCode,Auth,Comm
c ..............Just test output...........
write(6,10)Ref_3,BibCode,Auth,Comm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end