Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/702/A63 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-Oct-14
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/702/A63 NEMESIS catalogue of YSOs in Orion (Roquette+, 2025)
*================================================================================
*The NEMESIS catalogue of young stellar objects for the Orion star formation
*complex.
* Roquette J., Audard M., Hernandez D., Gezer I., Marton G., Mas C.,
* Madarasz M., Dionatos O.
* <Astron. Astrophys. 702, A63 (2025)>
* =2025A&A...702A..63R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled1.dat' ! Main table (tables D1, D3, D4, D9)
integer*4 nr__
parameter (nr__=27879) ! Number of records
character*260 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID ! [1/27915] Unique source identifier
real*8 RAdeg ! (deg) Adopted Right Ascension (J2000)
real*8 DEdeg ! (deg) Adopted Declination (J2000)
integer*4 uv ! [0/2] Total number of sed observations
* in the UV range (0.001-0.4um)
integer*4 opt1 ! [0/1] Total number of sed observations
* in the optical range (0.4-0.6um)
integer*4 opt2 ! [0/1] Total number of sed observations
* in the optical range (0.6-0.8um)
integer*4 opt3 ! [0/2] Total number of sed observations
* in the optical range (0.8-1.0um)
integer*4 nir1 ! [0/2] Total number of sed observations
* in the NIR range (1.0-2.0um)
integer*4 nir2 ! [0/2] Total number of sed observations
* in the NIR range (2.0-3.0um)
integer*4 nir3 ! [0/2] Total number of sed observations
* in the NIR range (3.0-4.0um)
integer*4 mir1 ! [0/2] Total number of sed observations
* in the MIR range (4.0-5.0um)
integer*4 mir2 ! [0/2] Total number of sed observations
* in the MIR range (5.0-6.0um)
integer*4 mir3a ! [0/2] Total number of sed observations
* in the MIR range (6.0-8.0um)
integer*4 mir3b ! [0/2] Total number of sed observations
* in the MIR range (8.0-10.0um)
integer*4 mir4 ! [0/2] Total number of sed observations
* in the MIR range (10.0-20.0um)
integer*4 mir5 ! [0/2] Total number of sed observations
* in the MIR range (20.0-30.0um)
integer*4 fir1 ! [0/1] Total number of sed observations
* in the FIR range (30.0-60.0um)
integer*4 fir2 ! [0/2] Total number of sed observations
* in the FIR range (60.0-100.0um)
integer*4 fir3 ! [0/2] Total number of sed observations
* in the FIR range (100.0-1000.0um)
character*4 vizier ! If True, an SED file with the name
* vizier_sed_{ID}.csv is
* available in the sed/vizier subdirectory
character*4 nemesis ! If True, an SED file with the name
* nemesis_sed_{ID}.csv is
* available in the sed/nemesis subdirectory
real*8 extgalProb ! ? Probability of being extragalactic
* (Random forest classifier)
* (extragalactic_prob)
character*5 extgalPred ! Predicted class of being extragalactic
* (Random forest classifier)
* (extragalactic_pred)
real*8 giantProb ! ? Predicted class of being a giant
* (Random forest classifier) (giant_prob)
character*5 giantPred ! Predicted class of being a giant
* (Random forest classifier) (giant_pred)
real*4 giantLabel ! [1/1]? Sources labelled as giants
* (giant_label)
real*4 extgalLabel ! [-1/1]? Sources labelled as extragalactic
* (extragalactic_label)
real*4 stratLabel ! [-4/5]? Label for the stratification of the
* sample based on the origin of labels
* (strat_label) (1)
character*4 massiveStar ! Sources identified as massive stars
* (massive_star)
character*4 MScontam ! Sources identified as likely main-sequence
* contaminants (ms_contaminant)
real*4 alpha2_24 ! ? alpha-IR index estimated using all
* available data in the wavelength
* range 2-24 micron (ms_contaminant)
character*16 Class2_24 ! Disk Classification based on alpha_2_24
* (class_2_24) (2)
real*8 lambdaMax2_24 ! (um) ? Maximum wavelength available for
* alpha_2_24 calculation (lambda_max_2_24)
real*8 lambdaMin2_24 ! (um) ? Minimum wavelength available for
* alpha_2_24 calculation (lambda_min_2_24)
real*8 AGproxy ! ? AG proxy for variability measurement
* estimated as equation (2) in Mowlavi
* et al., 2021A&A...648A..44M
*Note (1): Labels (in append E) as follows:
* 1 = GDR3 Galaxy high-purity sample
* 2 = GDR3 QSO high-purity sample
* 3 = MillionQua catalogue
* 4 = MANGROVE catalogue
* 5 = HyperLEDA database
* 6 = GalaxyZoo catalogue
* -1 = further stellar sample
* -2 = giant sample
* -3 = at Orion (distance) sample
* -4 = YSO sample with spectroscopic support
*Note (2): Disk Classification as:
* 0/I : alpha2-24 > 0.3
* flat spectrum : 0.3 >= alpha2-24 > -0.3
* II : -0.3 >= alpha2-24 > -1.6
* III thin disk : -1.6 >= alpha2-24 > -2.5
* III no disk : -2.5 >= alpha2-24
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled2a.dat' ! Spectral types table
integer*4 nr__1
parameter (nr__1=22767) ! Number of records
character*79 ar__1 ! Full-size record
integer*4 spID ! [0/22766] Primary key for SpT_DB (spt_ID)
integer*4 ID_1 ! [2/27878] Unique source identifier
* (Internal_ID)
character*16 SpType ! MK spectral type (1)
character*1 u_SpType ! [:] Uncertainty flag on SpType
character*4 e_SpType ! Uncertainty on MK Spectral type
character*4 photSpType ! [True ] Reference for MK Spectral type
character*19 Refsp ! Reference for MK Spectral type
character*16 n_SpType ! Additional Spectral information reported
*Note (1): Spectral types may be reported as a range with two MK SpTs separated
* by a symbol '-'. Unresolved multiple systems may have each components'
* spectral types reported separated by a symbol '+'.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled2b.dat' ! Temperatures table
integer*4 nr__2
parameter (nr__2=74508) ! Number of records
character*122 ar__2 ! Full-size record
integer*4 TempID ! [0/74507] Primary key for temperature_DB
* (temperature_ID)
integer*4 ID_2 ! [1/27913] Unique source identifier
* (Internal_ID)
character*19 RefTemp ! Reference for temperature measurement
real*8 Teff ! (K) ? Effective temperature
real*8 e_Teff ! (K) ? Uncertainty on effective temperature or
* lower uncertainty if E_Teff is also reported
character*8 n_Teff ! Note on Teff (1)
real*8 E_Teff_1 ! (K) ? Upper uncertainty on effective temperature
real*4 Tbol ! (K) ? Bolometric temperature
real*4 e_Tbol ! (K) ? Uncertainty on bolometric temperature
*Note (1): Note as follows:
* SpT-PHOT = combined spectral typing and photometric data
* SED = based on SED model-fit
* SPEC = spectra-library fit to spectra
* PHOT = fit of photometric data to models using MCMC or Bayesian methods
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled4.dat' ! Disk literature table
integer*4 nr__3
parameter (nr__3=65647) ! Number of records
character*110 ar__3 ! Full-size record
integer*4 DiskID ! [0/65646] Primary key for disk_DB (disk_ID)
integer*4 ID_3 ! [1/27471] Unique source identifier
* (Internal_ID)
character*19 RefDisk ! Reference for disk measurement
character*10 Class ! Disk IR class compiled from the literature
character*15 Disk ! Disk description keyword
character*9 n_Class ! Method used to classify the disk (1)
character*4 IRext ! Furhter infrared information available
real*8 alpha ! ? alpha IR index
real*4 e_alpha ! ? Uncertainty on alpha IR index
character*11 IRrange ! Wavelengths range used to compute the
* alpha IR index (2)
*Note (1): Method as follows:
* standard = standard classification scheme (Lada, 1987IAUS..115....1L,
* Andre et al., 1993ApJ...406..122A)
* Hernandez = Hernandez et al., 2007ApJ...662.1067H, Cat. J/ApJ/662/1067
* MGM = classification as in MEGEATH et al., 2012AJ....144..192M,
* Cat. J/AJ/144/192
* TD = classification schemes focused on Transition discs
* Robitaille = evolution classes derived with Robitaille et al.
* (2006ApJS..167..256R) models
* misc = miscellaneous classification schemes
*Note (2): >2 indicates a generic IR-range with available photometry from 2um,
* and 3-8 indicates that photometry in the range 3-8um was used
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled5.dat' ! Lithum data table
integer*4 nr__4
parameter (nr__4=9185) ! Number of records
character*153 ar__4 ! Full-size record
integer*4 LiID ! [0/9184] Primary key for Li_DB
integer*4 ID_4 ! [1/27887] Unique source identifier (Internal_ID)
character*19 RefLi ! Reference for Li measurement
real*4 EWLi ! (0.1nm) ? Equivalent width at {lambda}6708{AA}
real*8 e_EWLi ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}6708{AA}
character*3 f_EWLi ! Flag for EW measurement as reported
* in source paper
real*8 E_EWLi_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* at {lambda}6708{AA}
real*8 ALi ! ? Li abundance
real*8 s_ALi ! ? Uncertainty on Li abundance
character*3 n_EWLi ! Limit flag for Equivalent width
* at {lambda}6708{AA}
real*8 e_ALi ! ? Lower uncertainty for Li abundance
real*8 E_ALi_1 ! ? Upper uncertainty for Li abundance
real*4 l_ALi ! [0/1]? Limit flag for Li abundance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled6a.dat' ! Equivalent widths, gravity, table
integer*4 nr__5
parameter (nr__5=1880) ! Number of records
character*232 ar__5 ! Full-size record
integer*4 EWID ! [0/1879] Primary key for EW_gravity_DB
* (ewg_ID)
integer*4 ID_5 ! [6/16317] Unique source identifier
* (Internal_ID)
real*8 EWNaI8200 ! (0.1nm) ? Equivalent width at {lambda}8200{AA}
* (unresolved doublet)
real*8 e_EWNaI8200 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}8200{AA} (unresolved doublet)
character*2 f_EWNaI8200 ! [OO ] Comment from original source on
* Equivalent width at {lambda}8200{AA}
character*19 RefEW ! Reference for EW measurement
real*4 EWNaI8195 ! (0.1nm) ? Equivalent width at {lambda}8195{AA}
real*4 e_EWNaI8195 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}8195{AA}
character*1 f_EWNaI8195 ! [Y/N] Comment from original source on
* Equivalent width at {lambda}8195{AA}
real*4 EWCaH3_6965 ! (0.1nm) ? Equivalent width at {lambda}6965{AA}
real*4 e_EWCaH3_6965 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}6965{AA}
real*4 EWKI7665_7699 ! (0.1nm) ? Equivalent width at
* {lambda}7665-{lambda}7699{AA}
real*4 e_EWKI7665_7699 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}7665-{lambda}7699{AA}
real*8 EWKI7665 ! (0.1nm) ? Equivalent width at {lambda}7665{AA}
real*8 e_EWKI7665 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}7665{AA}
real*8 EWKI7699 ! (0.1nm) ? Equivalent width at {lambda}7699{AA}
real*8 e_EWKI7699 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}7699{AA}
real*8 EWTiO8442 ! (0.1nm) ? Equivalent width at {lambda}8442{AA}
real*8 e_EWTiO8442 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}8442{AA}
real*4 EWTiO57130 ! (0.1nm) ? Equivalent width at {lambda}7130{AA}
real*4 e_EWTiO57130 ! (0.1nm) ? Uncertainty on Equivalent width
* at {lambda}7130{AA}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled6b.dat' ! Surface gravity from spectra fit table
integer*4 nr__6
parameter (nr__6=57649) ! Number of records
character*61 ar__6 ! Full-size record
integer*4 logID ! [0/57648] Primary key for logg table
* (logg_ID)
integer*4 ID_6 ! [1/27913] Unique source identifier
* (Internal_ID)
real*8 logg ! ([cm/s2]) Surface gravity derived from spectra fit
real*8 e_logg ! ([cm/s2]) ? Uncertainty for logg derived from spectra
* fit or lower uncertainty if E_logg is also
* reported
character*19 Reflogg ! Reference for logg measurement
real*4 E_logg_1 ! ([cm/s2]) ? Upper uncertainty for logg derived
* from spectra fit
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled7a.dat' ! Equivalent width accretion, other, table
integer*4 nr__7
parameter (nr__7=5486) ! Number of records
character*469 ar__7 ! Full-size record
integer*4 accID ! [0/5485] Primary key for
* EWaccretion_other_DB (acc_ID)
integer*4 ID_7 ! [4/27887] Unique source identifier
* (Internal_ID)
character*19 RefEW_1 ! Reference for EW measurement
real*8 EWHeI6678 ! (0.1nm) ? Equivalent width for HeI line
* at {lambda}6678{AA}
real*4 e_EWHeI6678 ! (0.1nm) ? Uncertainty on Equivalent width for HeI
* line at {lambda}6678{AA}
character*1 f_EWHeI6678 ! Flag for Equivalent width for HeI line
* at {lambda}6678{AA}
real*4 EWHeI5876 ! (0.1nm) ? Equivalent width for HeI line
* at {lambda}5876{AA}
real*4 e_EWHeI5876 ! (0.1nm) ? Lower uncertainty for Equivalent width
* for HeI line at {lambda}5876{AA} or lower
* uncertainty if e_EWHeI5876 is also
* reported
real*4 E_EWHeI5876_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* for HeI line at {lambda}5876{AA}
real*8 EWHeI10830 ! (0.1nm) ? Equivalent width for HeI line
* at {lambda}10830{AA}
real*4 e_EWHeI10830 ! (0.1nm) []? Uncertainty on Equivalent width
* for HeI line at {lambda}10830{AA}
real*4 EWCaII8498 ! (0.1nm) ? Equivalent width for CaII line triplet
* at {lambda}8498{AA}
real*4 e_EWCaII8498 ! (0.1nm) ? Uncertainty on Equivalent width for
* CaII triplet at {lambda}8498{AA}
real*8 EWCaII8542 ! (0.1nm) ? Equivalent width for CaII triplet
* at {lambda}8542{AA}
real*4 e_EWCaII8542 ! (0.1nm) ? Uncertainty on Equivalent width for
* CaII triplet at {lambda}8542{AA}
character*1 f_EWCaII8542 ! Flag for Equivalent width for CaII triplet
* at {lambda}8542{AA}
real*8 EWCaII8662 ! (0.1nm) ? Equivalent width for CaII triplet
* at {lambda}8662{AA}
real*4 e_EWCaII8662 ! (0.1nm) ? Uncertainty on Equivalent width for
* CaII triplet at {lambda}8662{AA}
character*1 f_EWCaII8662 ! Flag for Equivalent width for CaII triplet
* at {lambda}8662{AA}
real*4 EWCaH3934 ! (0.1nm) ? Equivalent width for CaII H&K doublet
* at {lambda}3934{AA}
real*4 e_EWCaH3934 ! (0.1nm) ? Uncertainty on Equivalent width for
* CaII H&K doublet at {lambda}3934{AA} or
* lower uncertainty if e_EWCaH3934 is also
* reported
character*1 f_EWCaH3934 ! Flag for Equivalent width for CaII H&K
* doublet at {lambda}3934{AA}
real*4 E_EWCaH3934_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* for CaII H&K doublet at {lambda}3934{AA}
real*4 EWCaK3969 ! (0.1nm) ? Equivalent width for CaII H&K doublet
* at {lambda}3969{AA}
real*4 e_EWCaK3969 ! (0.1nm) ? Uncertainty on Equivalent width for
* CaII H&K doublet at {lambda}3969{AA} or
* lower uncertainty if e_EWCaK3969 is also
* reported
character*1 f_EWCaK3969 ! Flag for Equivalent width for CaII H&K
* doublet at {lambda}3969{AA}
real*4 E_EWCaK3969_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* for CaII H&K doublet at {lambda}3969{AA}
real*8 EWOI5577 ! (0.1nm) ? Equivalent width for [OI] line
* at {lambda}5577{AA}
real*4 e_EWOI5577 ! (0.1nm) ? Uncertainty on Equivalent width for [OI]
* line at {lambda}5577{AA}
real*8 EWOI6300 ! (0.1nm) ? Equivalent width for [OI] line
* at {lambda}6300{AA}
real*4 e_EWOI6300 ! (0.1nm) ? Uncertainty on Equivalent width for [OI]
* line at {lambda}6300{AA}
real*8 EWOI6364 ! (0.1nm) ? Equivalent width for [OI] line
* at {lambda}6364{AA}
real*4 e_EWOI6364 ! (0.1nm) ? Uncertainty on Equivalent width for [OI]
* line at {lambda}6364{AA}
real*4 EWOI7773 ! (0.1nm) ? Equivalent width for [OI] line
* at {lambda}7773{AA}
real*4 EWOI8446 ! (0.1nm) ? Equivalent width for [OI] line
* at {lambda}8446{AA}
real*8 EWSII6716 ! (0.1nm) ? Equivalent width for [SII] line
* at {lambda}6716{AA}
real*4 e_EWSII6716 ! (0.1nm) ? Uncertainty on Equivalent width for [SII]
* line at {lambda}6716{AA}
character*1 f_EWSII6716 ! Flag for Equivalent width for [SII] line
* at {lambda}6716{AA}
real*8 EWSII6731 ! (0.1nm) ? Equivalent width for [SII] line
* at {lambda}6731{AA}
real*4 e_EWSII6731 ! (0.1nm) ? Uncertainty on Equivalent width for [SII]
* line at {lambda}6731{AA}
character*1 f_EWSII6731 ! Flag for Equivalent width for [SII] line
* at {lambda}6731{AA}
real*4 EWFeII16440 ! (0.1nm) ? Equivalent width for [FeII] line
* at {lambda}16440{AA}
real*4 e_EWFeII16440 ! (0.1nm) ? Uncertainty on Equivalent width for
* [FeII] line at {lambda}16440{AA}
real*4 EWNII6548 ! (0.1nm) ? Equivalent width for [NII] line
* at {lambda}6548{AA}
real*4 e_EWNII6548 ! (0.1nm) ? Uncertainty on Equivalent width for
* [NII] line at {lambda}6548{AA}
real*4 EWNII6581 ! (0.1nm) ? Equivalent width for [NII] line
* at {lambda}6581{AA}
real*4 e_EWNII6581 ! (0.1nm) ? Uncertainty on Equivalent width
* for [NII] line at {lambda}6581{AA}
real*8 EWNII6583 ! (0.1nm) ? Equivalent width for [NII] line
* at {lambda}6583{AA}
character*1 f_EWNII6583 ! Flag for Equivalent width for [NII] line
* at {lambda}6583{AA}
real*8 EWPab1282 ! (0.1nm) ? Equivalent width for Pab line
* at {lambda}1282{AA}
real*4 e_EWPab1282 ! (0.1nm) ? Uncertainty on Equivalent width for
* Pab line at {lambda}1282{AA}
real*4 EWPag1090 ! (0.1nm) ? Equivalent width for Pag line
* at {lambda}1090{AA}
real*4 e_EWPag1090 ! (0.1nm) ? Uncertainty on Equivalent width for
* Pag line at {lambda}1090{AA}
real*4 EWBrg21661 ! (0.1nm) ? Equivalent width for Brg line
* at {lambda}21661{AA}
real*4 e_EWBrg21661 ! (0.1nm) ? Uncertainty on Equivalent width for
* Brg line at {lambda}21661{AA}
real*4 EWBr11_16810 ! (0.1nm) ? Equivalent width for Br11 line
* at {lambda}16810{AA}
real*4 e_EWBr11_16810 ! (0.1nm) ? Uncertainty on Equivalent width for
* Br11 line at {lambda}16810{AA}
real*4 EWHb4861 ! (0.1nm) ? Equivalent width for Hb line
* at {lambda}4861{AA}
real*4 e_EWHb4861 ! (0.1nm) ? Uncertainty on Equivalent width for
* Hb line at {lambda}4861{AA} or lower
* uncertainty if e_EWHb4861 is also reported
character*1 f_EWHb4861 ! Flag for Equivalent width for Hb line
* at {lambda}4861{AA}
real*4 E_EWHb4861_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* for Hb line at {lambda}4861{AA}
real*4 EWHg4340 ! (0.1nm) ? Equivalent width for Hg line
* at {lambda}4340{AA}
real*4 e_EWHg4340 ! (0.1nm) ? Uncertainty on Equivalent width for
* Hg line at {lambda}4340{AA} or lower
* uncertainty if e_EWHg4340 is also reported
character*1 f_EWHg4340 ! Flag for Equivalent width for Hg line
* at {lambda}4340{AA}
real*4 E_EWHg4340_1 ! (0.1nm) ? Upper uncertainty for Equivalent width
* for Hg line at {lambda}4340{AA}
real*4 EWH113771 ! (0.1nm) ? Equivalent width for H11 line
* at {lambda}3771{AA}
real*4 e_EWH113771 ! (0.1nm) ? Uncertainty on Equivalent width for
* H11 line at {lambda}3771{AA}
real*8 EWH2_1_0S_1 ! (0.1nm) ? Equivalent width for H2 band
* at {lambda}2.118um
real*4 e_EWH2_1_0S_1 ! (0.1nm) ? Uncertainty on Equivalent width
* for H2 band at {lambda}2.118um
real*4 EWCO_2_0 ! (0.1nm) ? Equivalent width for CO band
* at {lambda}2.293um
real*4 e_EWCO_2_0 ! (0.1nm) ? Uncertainty on Equivalent width for
* CO band at {lambda}2.293um
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled7b.dat' ! H{alpha} data table
integer*4 nr__8
parameter (nr__8=37449) ! Number of records
character*122 ar__8 ! Full-size record
integer*4 HaID ! [0/37448] Primary key for Ha_DB (ha_ID)
integer*4 ID_8 ! [1/27915] Unique source identifier
* (Internal_ID)
character*19 RefEWHa ! Reference for H{alpha} measurement
real*4 EWHa ! (0.1nm) ? Equivalent width for H{alpha} line
* at {lambda}6563{AA}
real*4 e_EWHa ! (0.1nm) []? Uncertainty on Equivalent width for
* H{alpha} line at {lambda}6563{AA}
character*1 f_EWHa ! Flag for Equivalent width for H{alpha} line
* at {lambda}6563{AA}
real*8 EWHac ! (0.1nm) ? Equivalent width for H{alpha} line
* at {lambda}6563{AA} with possible background
* contamination
real*4 e_EWHac ! (0.1nm) ? Uncertainty on Equivalent width for
* H{alpha} line at {lambda}6563{AA} with
* possible background contamination
character*3 Halineflag ! Flag for H{alpha} line measurement (1)
real*8 W10Ha ! (km/s) ? Full-width at 10% of the H{alpha} profile
* peak at {lambda}6563{AA}
real*8 e_W10Ha ! (km/s) ? Uncertainty on full-width at 10% of the
* H{alpha} profile peak at {lambda}6563{AA}
real*8 EWHaPhot ! (0.1nm) ? Equivalent width for H{alpha} line at
* {lambda}6563{AA} from photometry
*Note (1): Qualitative flags describing the H_alpha line profile as reported by
* Pettersson et al., 2014A&A...570A..30P, Cat. J/A+A/570/A30.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled7c.dat' ! Veiling table
integer*4 nr__9
parameter (nr__9=34358) ! Number of records
character*83 ar__9 ! Full-size record
integer*4 veilingID ! [0/34357] Primary key for veiling_DB
* (veiling_ID)
integer*4 ID_9 ! [1/27507] Unique source identifier
* (Internal_ID)
character*19 Refveiling ! Reference for veiling measurement
real*4 veiling_opt ! ? Veiling at optical wavelengths
* (6390-6710{AA})
real*4 e_veiling_opt ! ? Uncertainty on veiling at optical
* wavelengths (6390-6710{AA})
real*4 veiling_K ! ? Veiling at K band (~2.2um)
real*4 E_veiling_K ! ? Upper uncertainty on veiling
* at K band (~2.2um)
real*4 e_veiling_K_1 ! ? Lower uncertainty on veiling
* at K band (~2.2um)
real*4 veiling_H ! ? Veiling at H band (~1.5um)
real*8 e_veiling_H ! ? Uncertainty on veiling
* at H band (~1.5 micron)
real*4 veiling_7465 ! ? Veiling around 7465{AA}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled8.dat' ! Radial velocities table
integer*4 nr__10
parameter (nr__10=60294) ! Number of records
character*81 ar__10 ! Full-size record
integer*4 rvID ! [0/60293] Primary key for RV_DB (rv_ID)
integer*4 ID_10 ! [1/27913] Unique source identifier
* (Internal_ID)
real*4 RV ! (km/s) Radial velocity measurement
real*8 e_RV ! (km/s) ? Uncertainty on radial velocity measurement
character*19 RefRV ! Reference for radial velocity measurement
character*2 f_RV ! Flag for radial velocity measurement
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled10.dat' ! Rotation table
integer*4 nr__11
parameter (nr__11=42132) ! Number of records
character*237 ar__11 ! Full-size record
integer*4 rotID ! [0/42132] Primary key for rotation_DB
* (rot_ID)
integer*4 ID_11 ! [1/27913] Unique source identifier
* (Internal_ID)
real*8 Per ! (d) ? Variability period
real*4 Per2 ! (d) ? Other variability period
real*4 Per3 ! (d) ? Other variability period
real*4 Per4 ! (d) ? Other variability period
real*4 Per5 ! (d) ? Other variability period
real*4 Per6 ! (d) ? Other variability period
real*4 Per7 ! (d) ? Other variability period
real*4 e_Per ! (d) ? Uncertainty on variability period or
* lower uncertainty if E_Per is also reported
character*10 n_Per ! Photometric band used for variability
* period measurement
real*8 vsini ! (km/s) ? vsini measurement
character*4 f_vsini ! Flag for vsini measurement
real*8 e_vsini ! (km/s) ? Uncertainty on vsini measurement or lower
* uncertainty if E_vsini is also reported
character*21 Refrot ! Reference for rotation measurement
real*8 RotSep ! (arcsec) ? Separation between source measured and
* source in this catalogue
character*22 E_Per_1 ! (d) Upper uncertainty on variability period
real*8 E_vsini_1 ! (km/s) ? Upper uncertainty on vsini measurement
character*1 f_Per ! Flag for variability period measurement
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled11.dat' ! X-ray table
integer*4 nr__12
parameter (nr__12=7926) ! Number of records
character*420 ar__12 ! Full-size record
integer*4 xrayID ! [0/7925] Primary key for Xray_DB (xray_ID)
integer*4 ID_12 ! [11/27915] Unique source identifier
* (Internal_ID)
character*19 Refxray ! Reference for Xray measurement
real*4 FX ! (mW/m2) ? X-ray flux
character*11 FXband ! X-ray band for Fx measurement (1)
real*4 e_FX ! (mW/m2) ? Uncertainty on X-ray flux
character*1 l_FX ! limit flag for X-ray flux
real*8 logLX ! (0.1uW) ? Total X-ray luminosity
real*4 e_logLX ! (0.1uW) ? Uncertainty on total X-ray luminosity
character*11 logLXband ! X-ray band for logLx measurement (2)
character*1 l_logLX ! limit flag for total X-ray luminosity
real*8 logNH ! ([cm-2]) ? Hydrogen column density
real*8 e_logNH ! ([cm-2]) ? Uncertainty on hydrogen column density
real*8 E_logNH_1 ! ([cm-2]) ? upper uncertainty on hydrogen column
* density
character*1 l_logNH ! Limit flag for hydrogen column density
real*8 HR1 ! ? Hardness ratio 1
real*4 e_HR1 ! ? Uncertainty on hardness ratio 1
real*4 E_HR1_1 ! ? Upper uncertainty on hardness ratio 1
character*55 HR1band ! Hardness ratio 1 (3)
character*2 l_HR1 ! [< ] Limit flag for hardness ratio 1
real*4 HR2 ! ? Hardness ratio 2
real*4 e_HR2 ! ? Uncertainty on hardness ratio 2
real*4 E_HR2_1 ! ? Upper uncertainty on hardness ratio
character*55 HR2band ! Hardness ratio 2 (4)
real*4 HR3 ! ? Hardness ratio 3
real*4 e_HR3 ! ? Lower uncertainty on hardness ratio 3
real*4 E_HR3_1 ! ? Upper uncertainty on hardness ratio 3
character*18 HR3band ! Hardness ratio 3 (5)
character*10 Survey ! Survey name for X-ray measurement (6)
real*4 sepX ! (arcsec) ? Separation between X-ray and optical
* position
*Note (1): X-ray band possible values: 0.3-10keV, 0.3-7.5keV, 0.3-8.0keV,
* 0.3-8keV, 0.5-19.5keV, 0.5-7keV and 0.5-8keV.
*Note (2): X-ray band for logLx measurement possible values: 0.1-4keV,
* 0.2-10keV, 0.2-12keV, 0.3-10keV, 0.3-7.6keV, 0.3-7.8keV, 0.5-19.5keV,
* 0.5-7.3keV, 0.5-7keV and 0.5-8keV.
*Note (3): HR1 band possible values: (1.0-2.0)-(0.5-1.0)/(0.5-2.0)keV,
* (2.0-4.5 keV)-(0.3-2.0 keV)/(2.0-4.5 keV)+(0.3-2.0 keV) and
* 0.5-2.0/2.0-8.0keV.
*Note (4): HR2 band possible values: (1.0-7.3)-(0.5-1.0)/(0.5-7.3)keV,
* (4.5-7.5 keV)-(2.0-4.5 keV)/(4.5-7.5 keV)+(2.0-4.5 keV) and
* 0.5-1.7/1.7-2.8keV.
*Note (5): HR3 band possible values: 1.7-2.8/2.8-8.0keV.
*Note (6): Surveys are COUP, Chandra, Einstein, ROSAT and XMM-Newton.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled12.dat' ! Multiplicity table
integer*4 nr__13
parameter (nr__13=18929) ! Number of records
character*158 ar__13 ! Full-size record
integer*4 binID ! [0/18928] Primary key for multiplicity_DB
integer*4 ID_13 ! [3/27913] Unique source identifier
* (Internal_ID)
character*2 binType ! Multiplicity flag (1)
character*120 binExtType ! Multiplicity type in source paper
character*20 Refbin ! Reference for multiplicity measurement
*Note (1): Multiplicity flag as follows:
* S = Binary identified from spectroscopy
* S? = Binary candidate identified from spectroscopy
* V = Visual pair
* V? = Visual pair candidate
* B = Generic binary reported from the literature
* B? = Generic binary candidate reported from the literature
* E = Eclipsing binary
* E? = Eclipsing binary candidate
* U = Unresolved pair
* U? = Unresolved pair candidate
* R = RUWE binary candidate
* A = Astrometric binary
* Bl = Likely blended source
C=============================================================================
C Loading file 'tabled1.dat' ! Main table (tables D1, D3, D4, D9)
C Format for file interpretation
1 format(
+ I5,1X,F17.14,1X,F20.16,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,
+ I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,
+ A4,1X,A4,1X,F18.16,1X,A5,1X,F18.16,1X,A5,1X,F3.1,1X,F4.1,1X,
+ F4.1,1X,A4,1X,A4,1X,E23.17,1X,A16,1X,F19.16,1X,F19.16,1X,
+ F18.16)
C Effective file loading
open(unit=1,status='old',file=
+'tabled1.dat')
write(6,*) '....Loading file: tabled1.dat'
do i__=1,27879
read(1,'(A260)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,uv,opt1,opt2,opt3,nir1,nir2,nir3,mir1,mir2,
+ mir3a,mir3b,mir4,mir5,fir1,fir2,fir3,vizier,nemesis,
+ extgalProb,extgalPred,giantProb,giantPred,giantLabel,
+ extgalLabel,stratLabel,massiveStar,MScontam,alpha2_24,
+ Class2_24,lambdaMax2_24,lambdaMin2_24,AGproxy
if(ar__(88:105) .EQ. '') extgalProb = rNULL__
if(ar__(113:130) .EQ. '') giantProb = rNULL__
if(ar__(138:140) .EQ. '') giantLabel = rNULL__
if(ar__(142:145) .EQ. '') extgalLabel = rNULL__
if(ar__(147:150) .EQ. '') stratLabel = rNULL__
if(ar__(162:184) .EQ. '') alpha2_24 = rNULL__
if(ar__(203:221) .EQ. '') lambdaMax2_24 = rNULL__
if(ar__(223:241) .EQ. '') lambdaMin2_24 = rNULL__
if(ar__(243:260) .EQ. '') AGproxy = rNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,uv,opt1,opt2,opt3,nir1,nir2,nir3,mir1,mir2,
+ mir3a,mir3b,mir4,mir5,fir1,fir2,fir3,vizier,nemesis,
+ extgalProb,extgalPred,giantProb,giantPred,giantLabel,
+ extgalLabel,stratLabel,massiveStar,MScontam,alpha2_24,
+ Class2_24,lambdaMax2_24,lambdaMin2_24,AGproxy
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled2a.dat' ! Spectral types table
C Format for file interpretation
2 format(I5,1X,I5,1X,A16,3X,A1,1X,A4,1X,A4,1X,A19,1X,A16)
C Effective file loading
open(unit=1,status='old',file=
+'tabled2a.dat')
write(6,*) '....Loading file: tabled2a.dat'
do i__=1,22767
read(1,'(A79)')ar__1
read(ar__1,2)
+ spID,ID_1,SpType,u_SpType,e_SpType,photSpType,Refsp,n_SpType
c ..............Just test output...........
write(6,2)
+ spID,ID_1,SpType,u_SpType,e_SpType,photSpType,Refsp,n_SpType
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled2b.dat' ! Temperatures table
C Format for file interpretation
3 format(
+ I5,1X,I5,1X,A19,3X,F19.13,1X,F24.16,1X,A8,1X,F21.16,1X,F6.1,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled2b.dat')
write(6,*) '....Loading file: tabled2b.dat'
do i__=1,74508
read(1,'(A122)')ar__2
read(ar__2,3)
+ TempID,ID_2,RefTemp,Teff,e_Teff,n_Teff,E_Teff_1,Tbol,e_Tbol
if(ar__2(35:53) .EQ. '') Teff = rNULL__
if(ar__2(55:78) .EQ. '') e_Teff = rNULL__
if(ar__2(89:109) .EQ. '') E_Teff_1 = rNULL__
if(ar__2(111:116) .EQ. '') Tbol = rNULL__
if(ar__2(118:122) .EQ. '') e_Tbol = rNULL__
c ..............Just test output...........
write(6,3)
+ TempID,ID_2,RefTemp,Teff,e_Teff,n_Teff,E_Teff_1,Tbol,e_Tbol
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled4.dat' ! Disk literature table
C Format for file interpretation
4 format(
+ I5,1X,I5,1X,A19,1X,A10,1X,A15,1X,A9,1X,A4,1X,F19.16,1X,F4.2,
+ 1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'tabled4.dat')
write(6,*) '....Loading file: tabled4.dat'
do i__=1,65647
read(1,'(A110)')ar__3
read(ar__3,4)
+ DiskID,ID_3,RefDisk,Class,Disk,n_Class,IRext,alpha,e_alpha,
+ IRrange
if(ar__3(75:93) .EQ. '') alpha = rNULL__
if(ar__3(95:98) .EQ. '') e_alpha = rNULL__
c ..............Just test output...........
write(6,4)
+ DiskID,ID_3,RefDisk,Class,Disk,n_Class,IRext,alpha,e_alpha,
+ IRrange
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled5.dat' ! Lithum data table
C Format for file interpretation
5 format(
+ I4,1X,I5,1X,A19,1X,E23.17,1X,F20.16,1X,A3,1X,F12.8,1X,F13.10,
+ 1X,F12.8,1X,A3,1X,F12.10,1X,F12.10,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled5.dat')
write(6,*) '....Loading file: tabled5.dat'
do i__=1,9185
read(1,'(A153)')ar__4
read(ar__4,5)
+ LiID,ID_4,RefLi,EWLi,e_EWLi,f_EWLi,E_EWLi_1,ALi,s_ALi,n_EWLi,
+ e_ALi,E_ALi_1,l_ALi
if(ar__4(32:54) .EQ. '') EWLi = rNULL__
if(ar__4(56:75) .EQ. '') e_EWLi = rNULL__
if(ar__4(81:92) .EQ. '') E_EWLi_1 = rNULL__
if(ar__4(94:106) .EQ. '') ALi = rNULL__
if(ar__4(108:119) .EQ. '') s_ALi = rNULL__
if(ar__4(125:136) .EQ. '') e_ALi = rNULL__
if(ar__4(138:149) .EQ. '') E_ALi_1 = rNULL__
if(ar__4(151:153) .EQ. '') l_ALi = rNULL__
c ..............Just test output...........
write(6,5)
+ LiID,ID_4,RefLi,EWLi,e_EWLi,f_EWLi,E_EWLi_1,ALi,s_ALi,n_EWLi,
+ e_ALi,E_ALi_1,l_ALi
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled6a.dat' ! Equivalent widths, gravity, table
C Format for file interpretation
6 format(
+ I4,1X,I5,1X,F19.16,1X,F18.16,1X,A2,1X,A19,1X,F4.2,1X,F4.2,1X,
+ A1,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,F18.16,1X,F18.16,1X,
+ F18.16,1X,F18.16,1X,F18.16,1X,F18.16,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'tabled6a.dat')
write(6,*) '....Loading file: tabled6a.dat'
do i__=1,1880
read(1,'(A232)')ar__5
read(ar__5,6)
+ EWID,ID_5,EWNaI8200,e_EWNaI8200,f_EWNaI8200,RefEW,EWNaI8195,
+ e_EWNaI8195,f_EWNaI8195,EWCaH3_6965,e_EWCaH3_6965,
+ EWKI7665_7699,e_EWKI7665_7699,EWKI7665,e_EWKI7665,EWKI7699,
+ e_EWKI7699,EWTiO8442,e_EWTiO8442,EWTiO57130,e_EWTiO57130
if(ar__5(12:30) .EQ. '') EWNaI8200 = rNULL__
if(ar__5(32:49) .EQ. '') e_EWNaI8200 = rNULL__
if(ar__5(74:77) .EQ. '') EWNaI8195 = rNULL__
if(ar__5(79:82) .EQ. '') e_EWNaI8195 = rNULL__
if(ar__5(86:90) .EQ. '') EWCaH3_6965 = rNULL__
if(ar__5(92:96) .EQ. '') e_EWCaH3_6965 = rNULL__
if(ar__5(98:101) .EQ. '') EWKI7665_7699 = rNULL__
if(ar__5(103:106) .EQ. '') e_EWKI7665_7699 = rNULL__
if(ar__5(108:125) .EQ. '') EWKI7665 = rNULL__
if(ar__5(127:144) .EQ. '') e_EWKI7665 = rNULL__
if(ar__5(146:163) .EQ. '') EWKI7699 = rNULL__
if(ar__5(165:182) .EQ. '') e_EWKI7699 = rNULL__
if(ar__5(184:201) .EQ. '') EWTiO8442 = rNULL__
if(ar__5(203:220) .EQ. '') e_EWTiO8442 = rNULL__
if(ar__5(222:226) .EQ. '') EWTiO57130 = rNULL__
if(ar__5(228:232) .EQ. '') e_EWTiO57130 = rNULL__
c ..............Just test output...........
write(6,6)
+ EWID,ID_5,EWNaI8200,e_EWNaI8200,f_EWNaI8200,RefEW,EWNaI8195,
+ e_EWNaI8195,f_EWNaI8195,EWCaH3_6965,e_EWCaH3_6965,
+ EWKI7665_7699,e_EWKI7665_7699,EWKI7665,e_EWKI7665,EWKI7699,
+ e_EWKI7699,EWTiO8442,e_EWTiO8442,EWTiO57130,e_EWTiO57130
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled6b.dat' ! Surface gravity from spectra fit table
C Format for file interpretation
7 format(I5,1X,I5,1X,F11.8,1X,F12.10,1X,A19,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled6b.dat')
write(6,*) '....Loading file: tabled6b.dat'
do i__=1,57649
read(1,'(A61)')ar__6
read(ar__6,7)logID,ID_6,logg,e_logg,Reflogg,E_logg_1
if(ar__6(25:36) .EQ. '') e_logg = rNULL__
if(ar__6(58:61) .EQ. '') E_logg_1 = rNULL__
c ..............Just test output...........
write(6,7)logID,ID_6,logg,e_logg,Reflogg,E_logg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled7a.dat' ! Equivalent width accretion, other, table
C Format for file interpretation
8 format(
+ I4,1X,I5,1X,A19,1X,F19.16,1X,F4.2,1X,A1,1X,F6.2,1X,F4.2,1X,
+ F4.2,1X,F7.3,1X,F5.2,1X,F6.2,1X,F4.2,1X,F7.3,1X,F4.2,1X,A1,1X,
+ F7.3,1X,F4.2,1X,A1,1X,F5.1,1X,F4.1,1X,A1,1X,F4.1,1X,F6.2,1X,
+ F5.2,1X,A1,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,
+ F5.2,1X,F5.2,1X,F6.2,1X,F20.16,1X,F4.2,1X,A1,1X,F20.16,1X,
+ F4.2,1X,A1,1X,F6.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,
+ F20.16,1X,A1,1X,F7.3,1X,F4.2,1X,F6.3,1X,F4.2,1X,F6.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,E14.11,1X,F5.3,1X,A1,1X,F3.1,1X,F6.2,1X,
+ F5.2,1X,A1,1X,F4.1,1X,F5.2,1X,F4.2,1X,F7.2,1X,F4.2,1X,F6.2,1X,
+ F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled7a.dat')
write(6,*) '....Loading file: tabled7a.dat'
do i__=1,5486
read(1,'(A469)')ar__7
read(ar__7,8)
+ accID,ID_7,RefEW_1,EWHeI6678,e_EWHeI6678,f_EWHeI6678,
+ EWHeI5876,e_EWHeI5876,E_EWHeI5876_1,EWHeI10830,e_EWHeI10830,
+ EWCaII8498,e_EWCaII8498,EWCaII8542,e_EWCaII8542,f_EWCaII8542,
+ EWCaII8662,e_EWCaII8662,f_EWCaII8662,EWCaH3934,e_EWCaH3934,
+ f_EWCaH3934,E_EWCaH3934_1,EWCaK3969,e_EWCaK3969,f_EWCaK3969,
+ E_EWCaK3969_1,EWOI5577,e_EWOI5577,EWOI6300,e_EWOI6300,
+ EWOI6364,e_EWOI6364,EWOI7773,EWOI8446,EWSII6716,e_EWSII6716,
+ f_EWSII6716,EWSII6731,e_EWSII6731,f_EWSII6731,EWFeII16440,
+ e_EWFeII16440,EWNII6548,e_EWNII6548,EWNII6581,e_EWNII6581,
+ EWNII6583,f_EWNII6583,EWPab1282,e_EWPab1282,EWPag1090,
+ e_EWPag1090,EWBrg21661,e_EWBrg21661,EWBr11_16810,
+ e_EWBr11_16810,EWHb4861,e_EWHb4861,f_EWHb4861,E_EWHb4861_1,
+ EWHg4340,e_EWHg4340,f_EWHg4340,E_EWHg4340_1,EWH113771,
+ e_EWH113771,EWH2_1_0S_1,e_EWH2_1_0S_1,EWCO_2_0,e_EWCO_2_0
if(ar__7(32:50) .EQ. '') EWHeI6678 = rNULL__
if(ar__7(52:55) .EQ. '') e_EWHeI6678 = rNULL__
if(ar__7(59:64) .EQ. '') EWHeI5876 = rNULL__
if(ar__7(66:69) .EQ. '') e_EWHeI5876 = rNULL__
if(ar__7(71:74) .EQ. '') E_EWHeI5876_1 = rNULL__
if(ar__7(76:82) .EQ. '') EWHeI10830 = rNULL__
if(ar__7(84:88) .EQ. '') e_EWHeI10830 = rNULL__
if(ar__7(90:95) .EQ. '') EWCaII8498 = rNULL__
if(ar__7(97:100) .EQ. '') e_EWCaII8498 = rNULL__
if(ar__7(102:108) .EQ. '') EWCaII8542 = rNULL__
if(ar__7(110:113) .EQ. '') e_EWCaII8542 = rNULL__
if(ar__7(117:123) .EQ. '') EWCaII8662 = rNULL__
if(ar__7(125:128) .EQ. '') e_EWCaII8662 = rNULL__
if(ar__7(132:136) .EQ. '') EWCaH3934 = rNULL__
if(ar__7(138:141) .EQ. '') e_EWCaH3934 = rNULL__
if(ar__7(145:148) .EQ. '') E_EWCaH3934_1 = rNULL__
if(ar__7(150:155) .EQ. '') EWCaK3969 = rNULL__
if(ar__7(157:161) .EQ. '') e_EWCaK3969 = rNULL__
if(ar__7(165:169) .EQ. '') E_EWCaK3969_1 = rNULL__
if(ar__7(171:177) .EQ. '') EWOI5577 = rNULL__
if(ar__7(179:183) .EQ. '') e_EWOI5577 = rNULL__
if(ar__7(185:191) .EQ. '') EWOI6300 = rNULL__
if(ar__7(193:197) .EQ. '') e_EWOI6300 = rNULL__
if(ar__7(199:205) .EQ. '') EWOI6364 = rNULL__
if(ar__7(207:211) .EQ. '') e_EWOI6364 = rNULL__
if(ar__7(213:217) .EQ. '') EWOI7773 = rNULL__
if(ar__7(219:224) .EQ. '') EWOI8446 = rNULL__
if(ar__7(226:245) .EQ. '') EWSII6716 = rNULL__
if(ar__7(247:250) .EQ. '') e_EWSII6716 = rNULL__
if(ar__7(254:273) .EQ. '') EWSII6731 = rNULL__
if(ar__7(275:278) .EQ. '') e_EWSII6731 = rNULL__
if(ar__7(282:287) .EQ. '') EWFeII16440 = rNULL__
if(ar__7(289:292) .EQ. '') e_EWFeII16440 = rNULL__
if(ar__7(294:298) .EQ. '') EWNII6548 = rNULL__
if(ar__7(300:303) .EQ. '') e_EWNII6548 = rNULL__
if(ar__7(305:310) .EQ. '') EWNII6581 = rNULL__
if(ar__7(312:315) .EQ. '') e_EWNII6581 = rNULL__
if(ar__7(317:336) .EQ. '') EWNII6583 = rNULL__
if(ar__7(340:346) .EQ. '') EWPab1282 = rNULL__
if(ar__7(348:351) .EQ. '') e_EWPab1282 = rNULL__
if(ar__7(353:358) .EQ. '') EWPag1090 = rNULL__
if(ar__7(360:363) .EQ. '') e_EWPag1090 = rNULL__
if(ar__7(365:370) .EQ. '') EWBrg21661 = rNULL__
if(ar__7(372:375) .EQ. '') e_EWBrg21661 = rNULL__
if(ar__7(377:381) .EQ. '') EWBr11_16810 = rNULL__
if(ar__7(383:386) .EQ. '') e_EWBr11_16810 = rNULL__
if(ar__7(388:401) .EQ. '') EWHb4861 = rNULL__
if(ar__7(403:407) .EQ. '') e_EWHb4861 = rNULL__
if(ar__7(411:413) .EQ. '') E_EWHb4861_1 = rNULL__
if(ar__7(415:420) .EQ. '') EWHg4340 = rNULL__
if(ar__7(422:426) .EQ. '') e_EWHg4340 = rNULL__
if(ar__7(430:433) .EQ. '') E_EWHg4340_1 = rNULL__
if(ar__7(435:439) .EQ. '') EWH113771 = rNULL__
if(ar__7(441:444) .EQ. '') e_EWH113771 = rNULL__
if(ar__7(446:452) .EQ. '') EWH2_1_0S_1 = rNULL__
if(ar__7(454:457) .EQ. '') e_EWH2_1_0S_1 = rNULL__
if(ar__7(459:464) .EQ. '') EWCO_2_0 = rNULL__
if(ar__7(466:469) .EQ. '') e_EWCO_2_0 = rNULL__
c ..............Just test output...........
write(6,8)
+ accID,ID_7,RefEW_1,EWHeI6678,e_EWHeI6678,f_EWHeI6678,
+ EWHeI5876,e_EWHeI5876,E_EWHeI5876_1,EWHeI10830,e_EWHeI10830,
+ EWCaII8498,e_EWCaII8498,EWCaII8542,e_EWCaII8542,f_EWCaII8542,
+ EWCaII8662,e_EWCaII8662,f_EWCaII8662,EWCaH3934,e_EWCaH3934,
+ f_EWCaH3934,E_EWCaH3934_1,EWCaK3969,e_EWCaK3969,f_EWCaK3969,
+ E_EWCaK3969_1,EWOI5577,e_EWOI5577,EWOI6300,e_EWOI6300,
+ EWOI6364,e_EWOI6364,EWOI7773,EWOI8446,EWSII6716,e_EWSII6716,
+ f_EWSII6716,EWSII6731,e_EWSII6731,f_EWSII6731,EWFeII16440,
+ e_EWFeII16440,EWNII6548,e_EWNII6548,EWNII6581,e_EWNII6581,
+ EWNII6583,f_EWNII6583,EWPab1282,e_EWPab1282,EWPag1090,
+ e_EWPag1090,EWBrg21661,e_EWBrg21661,EWBr11_16810,
+ e_EWBr11_16810,EWHb4861,e_EWHb4861,f_EWHb4861,E_EWHb4861_1,
+ EWHg4340,e_EWHg4340,f_EWHg4340,E_EWHg4340_1,EWH113771,
+ e_EWH113771,EWH2_1_0S_1,e_EWH2_1_0S_1,EWCO_2_0,e_EWCO_2_0
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled7b.dat' ! H{alpha} data table
C Format for file interpretation
9 format(
+ I5,1X,I5,1X,A19,3X,E19.16,1X,E19.16,1X,A1,1X,F8.3,1X,F5.3,1X,
+ A3,1X,F7.3,1X,F7.3,1X,F11.4)
C Effective file loading
open(unit=1,status='old',file=
+'tabled7b.dat')
write(6,*) '....Loading file: tabled7b.dat'
do i__=1,37449
read(1,'(A122)')ar__8
read(ar__8,9)
+ HaID,ID_8,RefEWHa,EWHa,e_EWHa,f_EWHa,EWHac,e_EWHac,Halineflag,
+ W10Ha,e_W10Ha,EWHaPhot
if(ar__8(35:53) .EQ. '') EWHa = rNULL__
if(ar__8(55:73) .EQ. '') e_EWHa = rNULL__
if(ar__8(77:84) .EQ. '') EWHac = rNULL__
if(ar__8(86:90) .EQ. '') e_EWHac = rNULL__
if(ar__8(96:102) .EQ. '') W10Ha = rNULL__
if(ar__8(104:110) .EQ. '') e_W10Ha = rNULL__
if(ar__8(112:122) .EQ. '') EWHaPhot = rNULL__
c ..............Just test output...........
write(6,9)
+ HaID,ID_8,RefEWHa,EWHa,e_EWHa,f_EWHa,EWHac,e_EWHac,Halineflag,
+ W10Ha,e_W10Ha,EWHaPhot
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled7c.dat' ! Veiling table
C Format for file interpretation
10 format(
+ I5,1X,I5,1X,A19,1X,F6.4,1X,F6.4,1X,F3.1,1X,F3.1,1X,F3.1,1X,
+ E8.6,1X,F11.6,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled7c.dat')
write(6,*) '....Loading file: tabled7c.dat'
do i__=1,34358
read(1,'(A83)')ar__9
read(ar__9,10)
+ veilingID,ID_9,Refveiling,veiling_opt,e_veiling_opt,veiling_K,
+ E_veiling_K,e_veiling_K_1,veiling_H,e_veiling_H,veiling_7465
if(ar__9(33:38) .EQ. '') veiling_opt = rNULL__
if(ar__9(40:45) .EQ. '') e_veiling_opt = rNULL__
if(ar__9(47:49) .EQ. '') veiling_K = rNULL__
if(ar__9(51:53) .EQ. '') E_veiling_K = rNULL__
if(ar__9(55:57) .EQ. '') e_veiling_K_1 = rNULL__
if(ar__9(59:66) .EQ. '') veiling_H = rNULL__
if(ar__9(68:78) .EQ. '') e_veiling_H = rNULL__
if(ar__9(80:83) .EQ. '') veiling_7465 = rNULL__
c ..............Just test output...........
write(6,10)
+ veilingID,ID_9,Refveiling,veiling_opt,e_veiling_opt,veiling_K,
+ E_veiling_K,e_veiling_K_1,veiling_H,e_veiling_H,veiling_7465
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled8.dat' ! Radial velocities table
C Format for file interpretation
11 format(I5,1X,I5,1X,E19.16,1X,F26.16,1X,A19,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled8.dat')
write(6,*) '....Loading file: tabled8.dat'
do i__=1,60294
read(1,'(A81)')ar__10
read(ar__10,11)rvID,ID_10,RV,e_RV,RefRV,f_RV
if(ar__10(33:58) .EQ. '') e_RV = rNULL__
c ..............Just test output...........
write(6,11)rvID,ID_10,RV,e_RV,RefRV,f_RV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled10.dat' ! Rotation table
C Format for file interpretation
12 format(
+ I5,1X,I5,2X,F20.16,1X,F6.2,1X,F6.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,E23.17,1X,A10,1X,F20.15,1X,A4,1X,F20.16,1X,A21,1X,
+ F18.16,1X,A22,1X,F18.15,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled10.dat')
write(6,*) '....Loading file: tabled10.dat'
do i__=1,42132
read(1,'(A237)')ar__11
read(ar__11,12)
+ rotID,ID_11,Per,Per2,Per3,Per4,Per5,Per6,Per7,e_Per,n_Per,
+ vsini,f_vsini,e_vsini,Refrot,RotSep,E_Per_1,E_vsini_1,f_Per
if(ar__11(14:33) .EQ. '') Per = rNULL__
if(ar__11(35:40) .EQ. '') Per2 = rNULL__
if(ar__11(42:47) .EQ. '') Per3 = rNULL__
if(ar__11(49:54) .EQ. '') Per4 = rNULL__
if(ar__11(56:60) .EQ. '') Per5 = rNULL__
if(ar__11(62:65) .EQ. '') Per6 = rNULL__
if(ar__11(67:70) .EQ. '') Per7 = rNULL__
if(ar__11(72:94) .EQ. '') e_Per = rNULL__
if(ar__11(107:126) .EQ. '') vsini = rNULL__
if(ar__11(133:152) .EQ. '') e_vsini = rNULL__
if(ar__11(176:193) .EQ. '') RotSep = rNULL__
if(ar__11(218:235) .EQ. '') E_vsini_1 = rNULL__
c ..............Just test output...........
write(6,12)
+ rotID,ID_11,Per,Per2,Per3,Per4,Per5,Per6,Per7,e_Per,n_Per,
+ vsini,f_vsini,e_vsini,Refrot,RotSep,E_Per_1,E_vsini_1,f_Per
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled11.dat' ! X-ray table
C Format for file interpretation
13 format(
+ I4,1X,I5,3X,A19,1X,E22.17,1X,A11,1X,E22.17,1X,A1,1X,F18.15,1X,
+ F4.2,1X,A11,1X,A1,1X,F18.15,1X,F19.16,1X,F18.15,1X,A1,1X,
+ F19.16,1X,F4.2,1X,F4.2,1X,A55,1X,A2,1X,F5.2,1X,F4.2,1X,F4.2,
+ 1X,A55,1X,F5.2,1X,F4.2,1X,F4.2,1X,A18,1X,A10,1X,E22.17)
C Effective file loading
open(unit=1,status='old',file=
+'tabled11.dat')
write(6,*) '....Loading file: tabled11.dat'
do i__=1,7926
read(1,'(A420)')ar__12
read(ar__12,13)
+ xrayID,ID_12,Refxray,FX,FXband,e_FX,l_FX,logLX,e_logLX,
+ logLXband,l_logLX,logNH,e_logNH,E_logNH_1,l_logNH,HR1,e_HR1,
+ E_HR1_1,HR1band,l_HR1,HR2,e_HR2,E_HR2_1,HR2band,HR3,e_HR3,
+ E_HR3_1,HR3band,Survey,sepX
if(ar__12(34:55) .EQ. '') FX = rNULL__
if(ar__12(69:90) .EQ. '') e_FX = rNULL__
if(ar__12(94:111) .EQ. '') logLX = rNULL__
if(ar__12(113:116) .EQ. '') e_logLX = rNULL__
if(ar__12(132:149) .EQ. '') logNH = rNULL__
if(ar__12(151:169) .EQ. '') e_logNH = rNULL__
if(ar__12(171:188) .EQ. '') E_logNH_1 = rNULL__
if(ar__12(192:210) .EQ. '') HR1 = rNULL__
if(ar__12(212:215) .EQ. '') e_HR1 = rNULL__
if(ar__12(217:220) .EQ. '') E_HR1_1 = rNULL__
if(ar__12(281:285) .EQ. '') HR2 = rNULL__
if(ar__12(287:290) .EQ. '') e_HR2 = rNULL__
if(ar__12(292:295) .EQ. '') E_HR2_1 = rNULL__
if(ar__12(353:357) .EQ. '') HR3 = rNULL__
if(ar__12(359:362) .EQ. '') e_HR3 = rNULL__
if(ar__12(364:367) .EQ. '') E_HR3_1 = rNULL__
if(ar__12(399:420) .EQ. '') sepX = rNULL__
c ..............Just test output...........
write(6,13)
+ xrayID,ID_12,Refxray,FX,FXband,e_FX,l_FX,logLX,e_logLX,
+ logLXband,l_logLX,logNH,e_logNH,E_logNH_1,l_logNH,HR1,e_HR1,
+ E_HR1_1,HR1band,l_HR1,HR2,e_HR2,E_HR2_1,HR2band,HR3,e_HR3,
+ E_HR3_1,HR3band,Survey,sepX
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled12.dat' ! Multiplicity table
C Format for file interpretation
14 format(I5,1X,I5,1X,A2,3X,A120,1X,A20)
C Effective file loading
open(unit=1,status='old',file=
+'tabled12.dat')
write(6,*) '....Loading file: tabled12.dat'
do i__=1,18929
read(1,'(A158)')ar__13
read(ar__13,14)binID,ID_13,binType,binExtType,Refbin
c ..............Just test output...........
write(6,14)binID,ID_13,binType,binExtType,Refbin
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end