Conversion of standardized ReadMe file for
file /./ftp/cats/VI/135 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-19
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. VI/135 All-sky spectrally matched Tycho2 stars (Pickles+, 2010)
*================================================================================
*All-sky spectrally matched UBVRI-ZY and u'g'r'i'z' magnitudes
* Pickles A., Depagne E.
* <Publ. Astron. Soc. Pacific 122, 1437 (2010)>
* =2010PASP..122.1437P
* =2011yCat.6135....0P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! [LibMags] Magnitudes computed by the Synphot
<{lambda}.F({lambda})> method
integer*4 nr__
parameter (nr__=141) ! Number of records
character*252 ar__ ! Full-size record
integer*4 Lib ! [0/140] Library sequential number
character*8 Type ! Spectral type
real*4 scale ! Scale for Vcmag=0.000 (1)
real*4 Ummag ! (mag) Landolt Um magnitude in VEGA system
real*4 Bmmag ! (mag) Landolt Bm magnitude in VEGA system
real*4 Vcmag ! (mag) [0.000] Landolt Vc magnitude in VEGA system
real*4 Rcmag ! (mag) Landolt Rc magnitude in VEGA system
real*4 Icmag ! (mag) Landolt Ic magnitude in VEGA system
real*4 Zvmag ! (mag) UKIRT Z magnitude in VEGA system
real*4 Yvmag ! (mag) UKIRT Y magnitude in VEGA system
real*4 BTmag ! (mag) Tycho2 B_T_ magnitude in VEGA system
real*4 VTmag ! (mag) Tycho2 V_T_ magnitude in VEGA system
real*4 J2mag ! (mag) 2MASS J magnitude in VEGA system
real*4 H2mag ! (mag) 2MASS H magnitude in VEGA system
real*4 K2mag ! (mag) 2MASS Ks magnitude in VEGA system
real*4 Jmkomag ! (mag) UKIRT+MKO J magnitude in VEGA system
real*4 Hmkomag ! (mag) UKIRT+MKO H magnitude in VEGA system
real*4 Kmkomag ! (mag) UKIRT+MKO K magnitude in VEGA system
real*4 Emag ! (mag) "Bolometric" E magnitude in VEGA system
real*4 Rpmag ! (mag) PTF Rp magnitude in VEGA system
real*4 usmag ! (mag) Stromgren u magnitude in VEGA system
real*4 vsmag ! (mag) Stromgren v magnitude in VEGA system
real*4 bsmag ! (mag) Stromgren b magnitude in VEGA system
real*4 ysmag ! (mag) Stromgren y magnitude in VEGA system
real*4 u_mag ! (mag) Sloan-prime u' magnitude in AB system
real*4 g_mag ! (mag) Sloan-prime g' magnitude in AB system
real*4 r_mag ! (mag) Sloan-prime r' magnitude in AB system
real*4 i_mag ! (mag) Sloan-prime i' magnitude in AB system
real*4 z_mag ! (mag) Sloan-prime z' magnitude in AB system
real*4 umag ! (mag) Sloan-unprime u magnitude in AB system
real*4 gmag ! (mag) Sloan-unprime g magnitude in AB system
real*4 rmag ! (mag) Sloan-unprime r magnitude in AB system
real*4 imag ! (mag) Sloan-unprime i magnitude in AB system
real*4 zmag ! (mag) Sloan-unprime z magnitude in AB system
real*4 VMAG ! (mag) Absolute V magnitude
*Note (1): Pickles (1998, Cat. J/PASP/110/863) and calspec spectra
* have been multiplied by "scale" to achieve measured Vcmag=0.000.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! [LandoltCat] Landolt catalog fits with 8 L2M filter
bands (Landolt's UBVRI and 2MASS JHKs) for 594 stars
integer*4 nr__1
parameter (nr__1=594) ! Number of records
character*260 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq ! [0/593] Sequential number
character*11 Name ! Star name
integer*4 RAh ! (h) Right ascension (J2000) (1)
integer*4 RAm ! (min) Right ascension (J2000) (1)
real*4 RAs ! (s) Right ascension (J2000) (1)
character*1 DE_ ! Declination sign (J2000) (1)
integer*4 DEd ! (deg) Declination (J2000) (1)
integer*4 DEm ! (arcmin) Declination (J2000) (1)
real*4 DEs ! (arcsec) Declination (J2000) (1)
real*4 Vmag_1 ! (mag) Landolt V magnitude
real*4 B_V ! (mag) Landolt B-V colour index
real*4 U_B ! (mag) Landolt U-B colour index
real*4 V_R ! (mag) Landolt V-R colour index
real*4 V_I ! (mag) Landolt V-I colour index
integer*4 Nobs ! Number of observations
character*7 DLType ! Spectral type from Drilling & Landolt
* (1979, Cat. <VI/19>)
integer*4 rnk ! Fitted rank
real*8 chi2 ! chi2 value
real*4 RUI ! (mag) rms error in Landolt magnitudes RUI
real*4 RBI ! (mag) rms error in Landolt magnitudes RBI
integer*4 Lib_1 ! Fitted spectral library number
character*8 Type_1 ! Fitted spectral type
real*4 BTmag_1 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_1 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_1 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_1 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_1 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag ! (mag) Fitted U magnitude
real*4 Bfmag ! (mag) Fitted B magnitude
real*4 Vfmag ! (mag) Fitted V magnitude
real*4 Rfmag ! (mag) Fitted R magnitude
real*4 Ifmag ! (mag) Fitted I magnitude
real*4 Zvmag_1 ! (mag) Fitted Zv magnitude
real*4 Yvmag_1 ! (mag) Fitted Yv magnitude
real*4 u_mag_1 ! (mag) Fitted u' magnitude
real*4 g_mag_1 ! (mag) Fitted g' magnitude
real*4 r_mag_1 ! (mag) Fitted r' magnitude
real*4 i_mag_1 ! (mag) Fitted i' magnitude
real*4 z_mag_1 ! (mag) Fitted z' magnitude
integer*4 Dist ! (pc) Heliocentric distance
*Note (1): From Landolt, 2009, Cat. J/AJ/137/4186
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! [LandoltFit] UBVRI Photometric Standard Stars Around
The Celestial Equator
integer*4 nr__2
parameter (nr__2=594) ! Number of records
character*252 ar__2 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension J2000
real*8 DEdeg_1 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name_1 ! Star name
integer*4 RAh_1 ! (h) Right ascension (J2000)
integer*4 RAm_1 ! (min) Right ascension (J2000)
real*4 RAs_1 ! (s) Right ascension (J2000)
character*1 DE__1 ! Declination sign (J2000)
integer*4 DEd_1 ! (deg) Declination (J2000)
integer*4 DEm_1 ! (arcmin) Declination (J2000)
real*4 DEs_1 ! (arcsec) Declination (J2000)
real*4 Vmag_2 ! (mag) Landolt V magnitude
real*4 B_V_1 ! (mag) Landolt B-V colour index
real*4 U_B_1 ! (mag) Landolt U-B colour index
real*4 V_R_1 ! (mag) Landolt V-R colour index
real*4 R_I ! (mag) Landolt R-I colour index
real*4 V_I_1 ! (mag) Landolt V-I colour index
integer*4 Nobs_1 ! Number of times star was observed
integer*4 Nnig ! Number of nights star was observed
real*4 e_Vmag ! (mag) Error on Vmag
real*4 e_B_V ! (mag) Error on B-V
real*4 e_U_B ! (mag) Error on U-B
real*4 e_V_R ! (mag) Error on V-R
real*4 e_V_I ! (mag) Error on V-I
real*8 pmRA ! (mas/yr) proper motion along RA
real*8 pmDE ! (mas/yr) proper motion along DE
character*7 DLType_1 ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
real*4 J2mag_2 ! (mag) 2MASS J magnitude
real*4 e_J2mag ! (mag) Error on J2mag
real*4 H2mag_2 ! (mag) 2MASS H magnitude
real*4 e_H2mag ! (mag) Error on H2mag
real*4 K2mag_2 ! (mag) 2MASS Ks magnitude
real*4 e_K2mag ! (mag) Error on K2mag
real*8 RA2deg ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg ! (deg) 2MASS Declination (J2000)
real*4 d2m ! (arcsec) Distance from 2MASS data
real*4 Zvmag_2 ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_2 ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_1 ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_1 ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_1 ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 Rnmag ! (mag) NOMAD R magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! [SloanCat] The u'g'r'i'z' standard star network:
calibrated magnitudes and colors (Table 8 of Smith
et al. 2002AJ....123.2121S)
integer*4 nr__3
parameter (nr__3=158) ! Number of records
character*246 ar__3 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_2 ! (deg) Right Ascension J2000
real*8 DEdeg_2 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*12 Name_2 ! Star Name
integer*4 RAh_2 ! (h) Right ascension (J2000)
integer*4 RAm_2 ! (min) Right ascension (J2000)
real*4 RAs_2 ! (s) Right ascension (J2000)
character*1 DE__2 ! Declination sign (J2000)
integer*4 DEd_2 ! (deg) Declination (J2000)
integer*4 DEm_2 ! (arcmin) Declination (J2000)
real*4 DEs_2 ! (arcsec) Declination (J2000)
real*4 r_mag_2 ! (mag) SDSS r' magnitude
real*4 u__g_ ! (mag) SDSS u'-g' colour index
real*4 g__r_ ! (mag) SDSS g'-r' colour index
real*4 r__i_ ! (mag) SDSS r'-i' colour index
real*4 i__z_ ! (mag) SDSS i'-z' colour index
real*4 e_r_mag ! (mag) Error on r'mag
real*4 e_u__g_ ! (mag) Error on u'-g'
real*4 e_g__r_ ! (mag) Error on g'-r'
real*4 e_r__i_ ! (mag) Error on r'-i'
real*4 e_i__z_ ! (mag) Error on i'-z'
integer*4 Nu_ ! Number of measurements in u' band
integer*4 Ng_ ! Number of measurements in g' band
integer*4 Nr_ ! Number of measurements in r' band
integer*4 Ni_ ! Number of measurements in i' band
integer*4 Nz_ ! Number of measurements in z' band
real*4 Zvmag_3 ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_3 ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_2 ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_2 ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_2 ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 J2mag_3 ! (mag) 2MASS J magnitude
real*4 e_J2mag_1 ! (mag) Error on J2mag
real*4 H2mag_3 ! (mag) 2MASS H magnitude
real*4 e_H2mag_1 ! (mag) Error on H2mag
real*4 K2mag_3 ! (mag) 2MASS Ks magnitude
real*4 e_K2mag_1 ! (mag) Error on K2mag
real*8 RA2deg_1 ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg_1 ! (deg) 2MASS Declination (J2000)
real*4 d2m_1 ! (arcsec) Distance from 2MASS data
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! [SloanFit] Sloan Catalog fits with 8 S2M filter
bands (SDSS ugriz and 2MASS JHKs)
integer*4 nr__4
parameter (nr__4=158) ! Number of records
character*249 ar__4 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_3 ! (deg) Right Ascension J2000
real*8 DEdeg_3 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq_1 ! [0/157] Sequential number
character*12 Name_3 ! StarName
integer*4 RAh_3 ! (h) Right ascension (J2000)
integer*4 RAm_3 ! (min) Right ascension (J2000)
real*4 RAs_3 ! (s) Right ascension (J2000)
character*1 DE__3 ! Declination sign (J2000)
integer*4 DEd_3 ! (deg) Declination (J2000)
integer*4 DEm_3 ! (arcmin) Declination (J2000)
real*4 DEs_3 ! (arcsec) Declination (J2000)
real*4 r_mag_3 ! (mag) SDSS r' magnitude
real*4 u__g__1 ! (mag) SDSS u'-g' colour index
real*4 g__r__1 ! (mag) SDSS g'-r' colour index
real*4 r__i__1 ! (mag) SDSS r'-i' colour index
real*4 i__z__1 ! (mag) SDSS i'-z' colour index
integer*4 rnk_1 ! Fitted rank
real*8 chi2_1 ! chi2 value
real*4 Ruz ! rms error in SDSS magnitudes uz
real*4 Rgz ! rms error in SDSS magnitudes gz
integer*4 Lib_2 ! Fitted spectral library number
character*8 Type_2 ! Fitted spectral type
real*4 BTmag_2 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_2 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_4 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_4 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_4 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_1 ! (mag) Fitted U magnitude
real*4 Bfmag_1 ! (mag) Fitted B magnitude
real*4 Vfmag_1 ! (mag) Fitted V magnitude
real*4 Rfmag_1 ! (mag) Fitted R magnitude
real*4 Ifmag_1 ! (mag) Fitted I magnitude
real*4 Zvmag_4 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_4 ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_2 ! (mag) Fitted SDSS u' magnitude
real*4 gfmag ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_2 ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_2 ! (mag) Fitted SDSS i' magnitude
real*4 zfmag ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_1 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! [LanSloCat] Landolt/Sloan stars with UKIRT ZvYv,
JHKmko, 2MASS JHK2, Tycho2 BtVt, PM & Rn
integer*4 nr__5
parameter (nr__5=65) ! Number of records
character*351 ar__5 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_4 ! (deg) Right Ascension J2000
real*8 DEdeg_4 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name_4 ! Landolt Name
integer*4 RAh_4 ! (h) Right ascension (J2000)
integer*4 RAm_4 ! (min) Right ascension (J2000)
real*4 RAs_4 ! (s) Right ascension (J2000)
character*1 DE__4 ! Declination sign (J2000)
integer*4 DEd_4 ! (deg) Declination (J2000)
integer*4 DEm_4 ! (arcmin) Declination (J2000)
real*4 DEs_4 ! (arcsec) Declination (J2000)
real*4 Umag_1 ! (mag) Landolt V magnitude
real*4 Bmag ! (mag) Landolt B magnitude
real*4 Vmag_3 ! (mag) Landolt V magnitude
real*4 Rmag_1 ! (mag) Landolt R magnitude
real*4 Imag_1 ! (mag) Landolt I magnitude
real*4 e_Vmag_1 ! (mag) Error on Vmag
real*4 e_B_V_1 ! (mag) Error on B-V
real*4 e_U_B_1 ! (mag) Error on U-B
real*4 e_V_R_1 ! (mag) Error on V-R
real*4 e_V_I_1 ! (mag) Error on V-I
real*4 u_mag_2 ! (mag) SDSS u' magnitude (1)
real*4 g_mag_2 ! (mag) SDSS g' magnitude (1)
real*4 r_mag_4 ! (mag) SDSS r' magnitude (1)
real*4 i_mag_2 ! (mag) SDSS i' magnitude (1)
real*4 z_mag_2 ! (mag) SDSS z' magnitude (1)
real*4 e_u_mag ! (mag) Error on u'mag
real*4 e_g_mag ! (mag) Error on g'mag
real*4 e_r_mag_1 ! (mag) Error on r'mag
real*4 e_i_mag ! (mag) Error on i'mag
real*4 e_z_mag ! (mag) Error on z'mag
real*4 Zvmag_5 ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_5 ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_3 ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_3 ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_3 ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 J2mag_5 ! (mag) 2MASS J magnitude
real*4 e_J2mag_2 ! (mag) Error on J2mag
real*4 H2mag_5 ! (mag) 2MASS H magnitude
real*4 e_H2mag_2 ! (mag) Error on H2mag
real*4 K2mag_5 ! (mag) 2MASS Ks magnitude
real*4 e_K2mag_2 ! (mag) Error on K2mag
real*8 RA2deg_2 ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg_2 ! (deg) 2MASS Declination (J2000)
real*4 d2m_2 ! (arcsec) Distance from 2MASS data
real*4 BTmag_3 ! (mag) Tycho B_T_ magnitude
real*4 e_BTmag ! (mag) Error on B_T_mag
real*4 VTmag_3 ! (mag) Tycho V_T_ magnitude
real*4 e_VTmag ! (mag) Error on V_T_mag
real*8 RATdeg ! (deg) Tycho right ascension (J2000)
real*8 DETdeg ! (deg) Tycho Declination (J2000)
real*4 dTm ! (arcsec) Distance from Tycho data
real*4 pmRA_1 ! (mas/yr) Proper motion along RA
real*4 pmDE_1 ! (mas/yr) Proper motion along DE
real*4 Rnmag_1 ! (mag) NOMAD R magnitude
*Note (1): From Smith et al. 2002AJ....123.2121S.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12a.dat' ! [LanSloFit] Landolt/Sloan fits for 65 stars
integer*4 nr__6
parameter (nr__6=65) ! Number of records
character*203 ar__6 ! Full-size record
integer*4 Seq_2 ! Sequential number
character*11 Name_5 ! Landolt Name
character*6 DLType_2 ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_2 ! Fitted rank
real*8 chi2_2 ! chi2 value
real*4 RUI_1 ! rms error in Landolt magnitudes UI
real*4 Ruz_1 ! rms error in SDSS magnitudes uz
real*4 RTM ! rms error in Tycho magnitudes
integer*4 Lib_3 ! Fitted spectral library number
character*8 Type_3 ! Fitted spectral type
real*4 BTmag_4 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_4 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_6 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_6 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_6 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_3 ! (mag) Fitted U magnitude
real*4 Bfmag_2 ! (mag) Fitted B magnitude
real*4 Vfmag_2 ! (mag) Fitted V magnitude
real*4 Rfmag_3 ! (mag) Fitted R magnitude
real*4 Ifmag_3 ! (mag) Fitted I magnitude
real*4 Zvmag_6 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_6 ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_3 ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_3 ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_5 ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_3 ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_3 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_2 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12b.dat' ! [LanSloFit] 8-band Landolt/2MASS L2M fits
integer*4 nr__7
parameter (nr__7=6) ! Number of records
character*203 ar__7 ! Full-size record
integer*4 Seq_3 ! Sequential number
character*11 Name_6 ! Landolt Name
character*6 DLType_3 ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_3 ! Fitted rank
real*8 chi2_3 ! chi2 value
real*4 RUI_2 ! rms error in Landolt magnitudes UI
real*4 Ruz_2 ! rms error in SDSS magnitudes uz
real*4 RTM_1 ! rms error in Tycho magnitudes
integer*4 Lib_4 ! Fitted spectral library number
character*8 Type_4 ! Fitted spectral type
real*4 BTmag_5 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_5 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_7 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_7 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_7 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_4 ! (mag) Fitted U magnitude
real*4 Bfmag_3 ! (mag) Fitted B magnitude
real*4 Vfmag_3 ! (mag) Fitted V magnitude
real*4 Rfmag_4 ! (mag) Fitted R magnitude
real*4 Ifmag_4 ! (mag) Fitted I magnitude
real*4 Zvmag_7 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_7 ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_4 ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_4 ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_6 ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_4 ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_4 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_3 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12c.dat' ! [LanSloFit] 8-band Sloan/2MASS S2M fits
integer*4 nr__8
parameter (nr__8=21) ! Number of records
character*203 ar__8 ! Full-size record
integer*4 Seq_4 ! Sequential number
character*11 Name_7 ! Landolt Name
character*6 DLType_4 ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_4 ! Fitted rank
real*8 chi2_4 ! chi2 value
real*4 RUI_3 ! rms error in Landolt magnitudes UI
real*4 Ruz_3 ! rms error in SDSS magnitudes uz
real*4 RTM_2 ! rms error in Tycho magnitudes
integer*4 Lib_5 ! Fitted spectral library number
character*8 Type_5 ! Fitted spectral type
real*4 BTmag_6 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_6 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_8 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_8 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_8 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_5 ! (mag) Fitted U magnitude
real*4 Bfmag_4 ! (mag) Fitted B magnitude
real*4 Vfmag_4 ! (mag) Fitted V magnitude
real*4 Rfmag_5 ! (mag) Fitted R magnitude
real*4 Ifmag_5 ! (mag) Fitted I magnitude
real*4 Zvmag_8 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_8 ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_5 ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_5 ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_7 ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_5 ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_5 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_4 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12d.dat' ! [LanSloFit] 6-band Tycho2/NomadR/2MASS TNM fits
integer*4 nr__9
parameter (nr__9=39) ! Number of records
character*203 ar__9 ! Full-size record
integer*4 Seq_5 ! Sequential number
character*11 Name_8 ! Landolt Name
character*6 DLType_5 ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_5 ! Fitted rank
real*8 chi2_5 ! chi2 value
real*4 RUI_4 ! rms error in Landolt magnitudes UI
real*4 Ruz_4 ! rms error in SDSS magnitudes uz
real*4 RTM_3 ! rms error in Tycho magnitudes
integer*4 Lib_6 ! Fitted spectral library number
character*8 Type_6 ! Fitted spectral type
real*4 BTmag_7 ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_7 ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_9 ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_9 ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_9 ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_6 ! (mag) Fitted U magnitude
real*4 Bfmag_5 ! (mag) Fitted B magnitude
real*4 Vfmag_5 ! (mag) Fitted V magnitude
real*4 Rfmag_6 ! (mag) Fitted R magnitude
real*4 Ifmag_6 ! (mag) Fitted I magnitude
real*4 Zvmag_9 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_9 ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_6 ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_6 ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_8 ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_6 ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_6 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_5 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! [SDSSPTFit.dat] SDSS-PT (USNO Photometric telescope)
catalog fit
integer*4 nr__10
parameter (nr__10=1042562) ! Number of records
character*257 ar__10 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_5 ! (deg) SDSS right ascension (J2000)
real*8 DEdeg_5 ! (deg) SDSS Declination (J2000)
real*4 g_mag_7 ! (mag) SDSS g' magnitude
real*4 r_mag_9 ! (mag) SDSS r' magnitude
real*4 i_mag_7 ! (mag) SDSS i' magnitude
real*4 z_mag_7 ! (mag) SDSS z' magnitude
real*4 e_g_mag_1 ! (mag) Error on g'mag
real*4 e_r_mag_2 ! (mag) Error on r'mag
real*4 e_i_mag_1 ! (mag) Error on i'mag
real*4 e_z_mag_1 ! (mag) Error on z'mag
integer*4 Nobs_2 ! Number of observations
real*4 J2mag_10 ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_3 ! (mag) Input error on J2mag
real*4 H2mag_10 ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_3 ! (mag) Input error on H2mag
real*4 K2mag_10 ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_3 ! (mag) Input error on K2mag
character*3 Qual ! 2MASS quality flags on JHK
integer*4 rnk_6 ! Fitted rank
real*8 chi2_6 ! chi2 value
real*4 Rgz_1 ! rms error in SDSS magnitudes
real*4 R2M ! rms error in 2MASS magnitudes
integer*4 Lib_7 ! Fitted spectral library number
character*8 Type_7 ! Fitted spectral type
real*4 Ufmag_7 ! (mag) Fitted U magnitude
real*4 Bfmag_6 ! (mag) Fitted B magnitude
real*4 Vfmag_6 ! (mag) Fitted V magnitude
real*4 Rfmag_7 ! (mag) Fitted R magnitude
real*4 Ifmag_7 ! (mag) Fitted I magnitude
real*4 Zvmag_10 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_10 ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_8 ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_1 ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_8 ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_8 ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_1 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_6 ! (pc) Heliocentric distance
real*4 J2fmag ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag ! (mag) Fitted 2MASS Ks magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table14.dat' ! [SDSSSouthFit] The u'g'r'i'z' Southern Hemisphere
Standard Star Network, Smith et al., 2005,
BAAS, 37, 1379
integer*4 nr__11
parameter (nr__11=15673) ! Number of records
character*263 ar__11 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 Name_9 ! SDSS name (ugriz~JHHMMSS.s+DDMMSS)
real*8 RAdeg_6 ! (deg) SDSS right ascension (J2000)
real*8 DEdeg_6 ! (deg) SDSS Declination (J2000)
real*4 u_mag_7 ! (mag) SDSS u' magnitude
real*4 g_mag_8 ! (mag) SDSS g' magnitude
real*4 r_mag_10 ! (mag) SDSS r' magnitude
real*4 i_mag_8 ! (mag) SDSS i' magnitude
real*4 z_mag_8 ! (mag) SDSS z' magnitude
real*4 e_u_mag_1 ! (mag) Error on u'mag
real*4 e_g_mag_2 ! (mag) Error on g'mag
real*4 e_r_mag_3 ! (mag) Error on r'mag
real*4 e_i_mag_2 ! (mag) Error on i'mag
real*4 e_z_mag_2 ! (mag) Error on z'mag
real*4 J2mag_11 ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_4 ! (mag) Input error on J2mag
real*4 H2mag_11 ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_4 ! (mag) Input error on H2mag
real*4 K2mag_11 ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_4 ! (mag) Input error on K2mag
character*3 Qual_1 ! 2MASS quality flags on JHK
integer*4 rnk_7 ! Fitted rank
real*8 chi2_7 ! chi2 value
real*4 Rgz_2 ! rms error in SDSS magnitudes gz
integer*4 Lib_8 ! Fitted spectral library number
character*8 Type_8 ! Fitted spectral type
real*4 Ufmag_9 ! (mag) Fitted U magnitude
real*4 Bfmag_7 ! (mag) Fitted B magnitude
real*4 Vfmag_7 ! (mag) Fitted V magnitude
real*4 Rfmag_9 ! (mag) Fitted R magnitude
real*4 Ifmag_9 ! (mag) Fitted I magnitude
real*4 Zvmag_11 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_11 ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_10 ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_2 ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_10 ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_10 ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_2 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_7 ! (pc) Heliocentric distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table15.dat' ! [Tycho2Fit.dat] Tycho2 catalog fit
integer*4 nr__12
parameter (nr__12=2429446) ! Number of records
character*253 ar__12 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_7 ! (deg) Tycho right ascension (J2000)
real*8 DEdeg_7 ! (deg) Tycho declination (J2000)
real*8 pmRA_2 ! (mas/yr) Proper motion along RA
real*8 pmDE_2 ! (mas/yr) Proper motion along DE
real*4 BTmag_8 ! (mag) Tycho B_T_ magnitude
real*4 e_BTmag_1 ! (mag) Error on B_T_mag
real*4 VTmag_8 ! (mag) Tycho V_T_ magnitude
real*4 e_VTmag_1 ! (mag) Error on V_T_mag
real*4 Rnmag_2 ! (mag) NOMAD R magnitude
real*4 J2mag_12 ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_5 ! (mag) Input error on J2mag
real*4 H2mag_12 ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_5 ! (mag) Input error on H2mag
real*4 K2mag_12 ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_5 ! (mag) Input error on K2mag
character*3 Qual_2 ! 2MASS quality flags on JHK
integer*4 rnk_8 ! Fitted rank
real*8 chi2_8 ! chi2 value
real*4 RTM_4 ! rms error in Tycho magnitudes
integer*4 Lib_9 ! Fitted spectral library number
character*8 Type_9 ! Fitted spectral type
real*4 BTfmag ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTfmag ! (mag) Fitted Tycho V_T_ magnitude
real*4 Ufmag_11 ! (mag) Fitted U magnitude
real*4 Bfmag_8 ! (mag) Fitted B magnitude
real*4 Vfmag_8 ! (mag) Fitted V magnitude
real*4 Rfmag_11 ! (mag) Fitted R magnitude
real*4 Ifmag_11 ! (mag) Fitted I magnitude
real*4 Zvmag_12 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_12 ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_12 ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_3 ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_12 ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_12 ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_3 ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_8 ! (pc) Heliocentric distance
real*4 J2fmag_1 ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag_1 ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag_1 ! (mag) Fitted 2MASS Ks magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table16.dat' ! [DR7Fit.dat] DR7 stars to g<16 from
http://www.sdss.org/dr7/
integer*4 nr__13
parameter (nr__13=4854094) ! Number of records
character*300 ar__13 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_8 ! (deg) SDSS-DR7 right ascension (J2000)
real*8 DEdeg_8 ! (deg) SDSS-DR7 Declination (J2000)
real*4 psfu ! (mag) SDSS u magnitude
real*4 psfg ! (mag) SDSS g magnitude
real*4 psfr ! (mag) SDSS r magnitude
real*4 psfi ! (mag) SDSS i magnitude
real*4 psfz ! (mag) SDSS z magnitude
real*4 e_psfu ! (mag) Error on psfu
real*4 e_psfg ! (mag) Error on psfg
real*4 e_psfr ! (mag) Error on psfr
real*4 e_psfi ! (mag) Error on psfi
real*4 e_psfz ! (mag) Error on psfz
real*4 J2mag_13 ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_6 ! (mag) Input error on J2mag
real*4 H2mag_13 ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_6 ! (mag) Input error on H2mag
real*4 K2mag_13 ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_6 ! (mag) Input error on K2mag
character*3 Qual_3 ! 2MASS quality flags on JHK
integer*4 rnk_9 ! Fitted rank
real*8 chi2_9 ! chi2 value
real*4 Ruz_5 ! rms error in SDSS magnitudes uz
real*4 Rgz_3 ! rms error in SDSS magnitudes gz
real*4 R2M_1 ! rms error in 2MASS magnitudes
integer*4 Lib_10 ! Fitted spectral library number
character*8 Type_10 ! Fitted spectral type
real*4 Ufmag_13 ! (mag) Fitted U magnitude
real*4 Bfmag_9 ! (mag) Fitted B magnitude
real*4 Vfmag_9 ! (mag) Fitted V magnitude
real*4 Rfmag_13 ! (mag) Fitted R magnitude
real*4 Ifmag_13 ! (mag) Fitted I magnitude
real*4 Zvmag_13 ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_13 ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_14 ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_4 ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_14 ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_14 ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_4 ! (mag) Fitted SDSS z' magnitude
real*4 umag_2 ! (mag) Fitted SDSS u magnitude
real*4 gmag_1 ! (mag) Fitted SDSS g magnitude
real*4 rmag_2 ! (mag) Fitted SDSS r magnitude
real*4 imag_2 ! (mag) Fitted SDSS i magnitude
real*4 zmag_1 ! (mag) Fitted SDSS z magnitude
integer*4 Dist_9 ! (pc) Heliocentric distance
real*4 J2fmag_2 ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag_2 ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag_2 ! (mag) Fitted 2MASS Ks magnitude
C=============================================================================
C Loading file 'table6.dat' ! [LibMags] Magnitudes computed by the Synphot
* <{lambda}.F({lambda})> method
C Format for file interpretation
1 format(
+ I3,2X,A8,2X,E10.5,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,
+ F6.3,1X,F6.3,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,141
read(1,'(A252)')ar__
read(ar__,1)
+ Lib,Type,scale,Ummag,Bmmag,Vcmag,Rcmag,Icmag,Zvmag,Yvmag,
+ BTmag,VTmag,J2mag,H2mag,K2mag,Jmkomag,Hmkomag,Kmkomag,Emag,
+ Rpmag,usmag,vsmag,bsmag,ysmag,u_mag,g_mag,r_mag,i_mag,z_mag,
+ umag,gmag,rmag,imag,zmag,VMAG
c ..............Just test output...........
write(6,1)
+ Lib,Type,scale,Ummag,Bmmag,Vcmag,Rcmag,Icmag,Zvmag,Yvmag,
+ BTmag,VTmag,J2mag,H2mag,K2mag,Jmkomag,Hmkomag,Kmkomag,Emag,
+ Rpmag,usmag,vsmag,bsmag,ysmag,u_mag,g_mag,r_mag,i_mag,z_mag,
+ umag,gmag,rmag,imag,zmag,VMAG
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! [LandoltCat] Landolt catalog fits with 8 L2M filter
* bands (Landolt's UBVRI and 2MASS JHKs) for 594 stars
C Format for file interpretation
2 format(
+ 2X,I3,2X,A11,1X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I3,1X,A7,I2,3X,F7.2,
+ 2X,F5.3,1X,F5.3,1X,I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,594
read(1,'(A260)')ar__1
read(ar__1,2)
+ Seq,Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag_1,B_V,U_B,V_R,V_I,
+ Nobs,DLType,rnk,chi2,RUI,RBI,Lib_1,Type_1,BTmag_1,VTmag_1,
+ J2mag_1,H2mag_1,K2mag_1,Ufmag,Bfmag,Vfmag,Rfmag,Ifmag,Zvmag_1,
+ Yvmag_1,u_mag_1,g_mag_1,r_mag_1,i_mag_1,z_mag_1,Dist
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,2)
+ Seq,Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag_1,B_V,U_B,V_R,V_I,
+ Nobs,DLType,rnk,chi2,RUI,RBI,Lib_1,Type_1,BTmag_1,VTmag_1,
+ J2mag_1,H2mag_1,K2mag_1,Ufmag,Bfmag,Vfmag,Rfmag,Ifmag,Zvmag_1,
+ Yvmag_1,u_mag_1,g_mag_1,r_mag_1,i_mag_1,z_mag_1,Dist
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! [LandoltFit] UBVRI Photometric Standard Stars Around
* The Celestial Equator
C Format for file interpretation
3 format(
+ A11,1X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I3,1X,I3,1X,F6.4,1X,
+ F6.4,1X,F6.4,1X,F6.4,1X,F6.4,1X,F7.1,1X,F7.1,2X,A7,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F9.5,1X,F9.5,1X,F4.1,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,594
read(1,'(A252)')ar__2
read(ar__2,3)
+ Name_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Vmag_2,B_V_1,
+ U_B_1,V_R_1,R_I,V_I_1,Nobs_1,Nnig,e_Vmag,e_B_V,e_U_B,e_V_R,
+ e_V_I,pmRA,pmDE,DLType_1,J2mag_2,e_J2mag,H2mag_2,e_H2mag,
+ K2mag_2,e_K2mag,RA2deg,DE2deg,d2m,Zvmag_2,Yvmag_2,Jmkomag_1,
+ Hmkomag_1,Kmkomag_1,Rnmag
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,3)
+ Name_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Vmag_2,B_V_1,
+ U_B_1,V_R_1,R_I,V_I_1,Nobs_1,Nnig,e_Vmag,e_B_V,e_U_B,e_V_R,
+ e_V_I,pmRA,pmDE,DLType_1,J2mag_2,e_J2mag,H2mag_2,e_H2mag,
+ K2mag_2,e_K2mag,RA2deg,DE2deg,d2m,Zvmag_2,Yvmag_2,Jmkomag_1,
+ Hmkomag_1,Kmkomag_1,Rnmag
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! [SloanCat] The u'g'r'i'z' standard star network:
* calibrated magnitudes and colors (Table 8 of Smith
* et al. 2002AJ....123.2121S)
C Format for file interpretation
4 format(
+ A12,2X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,F6.4,2X,F6.4,3X,F6.4,3X,F6.4,
+ 3X,F6.4,1X,I3,2X,I3,2X,I3,2X,I3,2X,I3,2X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,2X,F6.3,2X,F5.3,1X,F6.3,2X,F5.3,1X,F6.3,2X,
+ F5.3,1X,F9.5,1X,F9.5,2X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,158
read(1,'(A246)')ar__3
read(ar__3,4)
+ Name_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2,r_mag_2,
+ u__g_,g__r_,r__i_,i__z_,e_r_mag,e_u__g_,e_g__r_,e_r__i_,
+ e_i__z_,Nu_,Ng_,Nr_,Ni_,Nz_,Zvmag_3,Yvmag_3,Jmkomag_2,
+ Hmkomag_2,Kmkomag_2,J2mag_3,e_J2mag_1,H2mag_3,e_H2mag_1,
+ K2mag_3,e_K2mag_1,RA2deg_1,DE2deg_1,d2m_1
RAdeg_2 = rNULL__
DEdeg_2 = rNULL__
c Derive coordinates RAdeg_2 and DEdeg_2 from input data
c (RAdeg_2 and DEdeg_2 are set to rNULL__ when unknown)
if(RAh_2 .GT. -180) RAdeg_2=RAh_2*15.
if(RAm_2 .GT. -180) RAdeg_2=RAdeg_2+RAm_2/4.
if(RAs_2 .GT. -180) RAdeg_2=RAdeg_2+RAs_2/240.
if(DEd_2 .GE. 0) DEdeg_2=DEd_2
if(DEm_2 .GE. 0) DEdeg_2=DEdeg_2+DEm_2/60.
if(DEs_2 .GE. 0) DEdeg_2=DEdeg_2+DEs_2/3600.
if(DE__2.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2
c ..............Just test output...........
write(6,4)
+ Name_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2,r_mag_2,
+ u__g_,g__r_,r__i_,i__z_,e_r_mag,e_u__g_,e_g__r_,e_r__i_,
+ e_i__z_,Nu_,Ng_,Nr_,Ni_,Nz_,Zvmag_3,Yvmag_3,Jmkomag_2,
+ Hmkomag_2,Kmkomag_2,J2mag_3,e_J2mag_1,H2mag_3,e_H2mag_1,
+ K2mag_3,e_K2mag_1,RA2deg_1,DE2deg_1,d2m_1
write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! [SloanFit] Sloan Catalog fits with 8 S2M filter
* bands (SDSS ugriz and 2MASS JHKs)
C Format for file interpretation
5 format(
+ 2X,I3,1X,A12,2X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I2,3X,F7.2,1X,F5.3,1X,
+ F5.3,1X,I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,158
read(1,'(A249)')ar__4
read(ar__4,5)
+ Seq_1,Name_3,RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3,
+ r_mag_3,u__g__1,g__r__1,r__i__1,i__z__1,rnk_1,chi2_1,Ruz,Rgz,
+ Lib_2,Type_2,BTmag_2,VTmag_2,J2mag_4,H2mag_4,K2mag_4,Ufmag_1,
+ Bfmag_1,Vfmag_1,Rfmag_1,Ifmag_1,Zvmag_4,Yvmag_4,ufmag_2,gfmag,
+ rfmag_2,ifmag_2,zfmag,Dist_1
RAdeg_3 = rNULL__
DEdeg_3 = rNULL__
c Derive coordinates RAdeg_3 and DEdeg_3 from input data
c (RAdeg_3 and DEdeg_3 are set to rNULL__ when unknown)
if(RAh_3 .GT. -180) RAdeg_3=RAh_3*15.
if(RAm_3 .GT. -180) RAdeg_3=RAdeg_3+RAm_3/4.
if(RAs_3 .GT. -180) RAdeg_3=RAdeg_3+RAs_3/240.
if(DEd_3 .GE. 0) DEdeg_3=DEd_3
if(DEm_3 .GE. 0) DEdeg_3=DEdeg_3+DEm_3/60.
if(DEs_3 .GE. 0) DEdeg_3=DEdeg_3+DEs_3/3600.
if(DE__3.EQ.'-'.AND.DEdeg_3.GE.0) DEdeg_3=-DEdeg_3
c ..............Just test output...........
write(6,5)
+ Seq_1,Name_3,RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3,
+ r_mag_3,u__g__1,g__r__1,r__i__1,i__z__1,rnk_1,chi2_1,Ruz,Rgz,
+ Lib_2,Type_2,BTmag_2,VTmag_2,J2mag_4,H2mag_4,K2mag_4,Ufmag_1,
+ Bfmag_1,Vfmag_1,Rfmag_1,Ifmag_1,Zvmag_4,Yvmag_4,ufmag_2,gfmag,
+ rfmag_2,ifmag_2,zfmag,Dist_1
write(6,'(6H Pos: 2F8.4)') RAdeg_3,DEdeg_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! [LanSloCat] Landolt/Sloan stars with UKIRT ZvYv,
* JHKmko, 2MASS JHK2, Tycho2 BtVt, PM & Rn
C Format for file interpretation
6 format(
+ A11,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,2X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,F6.4,1X,F6.4,1X,F6.4,1X,F6.4,
+ 1X,F6.4,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,2X,F5.3,1X,F6.3,2X,F5.3,1X,F6.3,2X,F5.3,1X,
+ F9.5,1X,F9.5,2X,F4.1,1X,F6.3,2X,F5.3,1X,F6.3,2X,F5.3,1X,F9.5,
+ 1X,F9.5,1X,F4.1,1X,F6.1,1X,F6.1,2X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table11.dat')
write(6,*) '....Loading file: table11.dat'
do i__=1,65
read(1,'(A351)')ar__5
read(ar__5,6)
+ Name_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4,Umag_1,Bmag,
+ Vmag_3,Rmag_1,Imag_1,e_Vmag_1,e_B_V_1,e_U_B_1,e_V_R_1,e_V_I_1,
+ u_mag_2,g_mag_2,r_mag_4,i_mag_2,z_mag_2,e_u_mag,e_g_mag,
+ e_r_mag_1,e_i_mag,e_z_mag,Zvmag_5,Yvmag_5,Jmkomag_3,Hmkomag_3,
+ Kmkomag_3,J2mag_5,e_J2mag_2,H2mag_5,e_H2mag_2,K2mag_5,
+ e_K2mag_2,RA2deg_2,DE2deg_2,d2m_2,BTmag_3,e_BTmag,VTmag_3,
+ e_VTmag,RATdeg,DETdeg,dTm,pmRA_1,pmDE_1,Rnmag_1
RAdeg_4 = rNULL__
DEdeg_4 = rNULL__
c Derive coordinates RAdeg_4 and DEdeg_4 from input data
c (RAdeg_4 and DEdeg_4 are set to rNULL__ when unknown)
if(RAh_4 .GT. -180) RAdeg_4=RAh_4*15.
if(RAm_4 .GT. -180) RAdeg_4=RAdeg_4+RAm_4/4.
if(RAs_4 .GT. -180) RAdeg_4=RAdeg_4+RAs_4/240.
if(DEd_4 .GE. 0) DEdeg_4=DEd_4
if(DEm_4 .GE. 0) DEdeg_4=DEdeg_4+DEm_4/60.
if(DEs_4 .GE. 0) DEdeg_4=DEdeg_4+DEs_4/3600.
if(DE__4.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_4
c ..............Just test output...........
write(6,6)
+ Name_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4,Umag_1,Bmag,
+ Vmag_3,Rmag_1,Imag_1,e_Vmag_1,e_B_V_1,e_U_B_1,e_V_R_1,e_V_I_1,
+ u_mag_2,g_mag_2,r_mag_4,i_mag_2,z_mag_2,e_u_mag,e_g_mag,
+ e_r_mag_1,e_i_mag,e_z_mag,Zvmag_5,Yvmag_5,Jmkomag_3,Hmkomag_3,
+ Kmkomag_3,J2mag_5,e_J2mag_2,H2mag_5,e_H2mag_2,K2mag_5,
+ e_K2mag_2,RA2deg_2,DE2deg_2,d2m_2,BTmag_3,e_BTmag,VTmag_3,
+ e_VTmag,RATdeg,DETdeg,dTm,pmRA_1,pmDE_1,Rnmag_1
write(6,'(6H Pos: 2F8.4)') RAdeg_4,DEdeg_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12a.dat' ! [LanSloFit] Landolt/Sloan fits for 65 stars
C Format for file interpretation
7 format(
+ 2X,I3,2X,A11,1X,A6,1X,I2,3X,F7.2,2X,F5.3,2X,F5.3,2X,F5.3,1X,
+ I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table12a.dat')
write(6,*) '....Loading file: table12a.dat'
do i__=1,65
read(1,'(A203)')ar__6
read(ar__6,7)
+ Seq_2,Name_5,DLType_2,rnk_2,chi2_2,RUI_1,Ruz_1,RTM,Lib_3,
+ Type_3,BTmag_4,VTmag_4,J2mag_6,H2mag_6,K2mag_6,Ufmag_3,
+ Bfmag_2,Vfmag_2,Rfmag_3,Ifmag_3,Zvmag_6,Yvmag_6,u_mag_3,
+ g_mag_3,r_mag_5,i_mag_3,z_mag_3,Dist_2
c ..............Just test output...........
write(6,7)
+ Seq_2,Name_5,DLType_2,rnk_2,chi2_2,RUI_1,Ruz_1,RTM,Lib_3,
+ Type_3,BTmag_4,VTmag_4,J2mag_6,H2mag_6,K2mag_6,Ufmag_3,
+ Bfmag_2,Vfmag_2,Rfmag_3,Ifmag_3,Zvmag_6,Yvmag_6,u_mag_3,
+ g_mag_3,r_mag_5,i_mag_3,z_mag_3,Dist_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12b.dat' ! [LanSloFit] 8-band Landolt/2MASS L2M fits
C Format for file interpretation
8 format(
+ 2X,I3,2X,A11,1X,A6,1X,I2,3X,F7.2,2X,F5.3,2X,F5.3,2X,F5.3,1X,
+ I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table12b.dat')
write(6,*) '....Loading file: table12b.dat'
do i__=1,6
read(1,'(A203)')ar__7
read(ar__7,8)
+ Seq_3,Name_6,DLType_3,rnk_3,chi2_3,RUI_2,Ruz_2,RTM_1,Lib_4,
+ Type_4,BTmag_5,VTmag_5,J2mag_7,H2mag_7,K2mag_7,Ufmag_4,
+ Bfmag_3,Vfmag_3,Rfmag_4,Ifmag_4,Zvmag_7,Yvmag_7,u_mag_4,
+ g_mag_4,r_mag_6,i_mag_4,z_mag_4,Dist_3
c ..............Just test output...........
write(6,8)
+ Seq_3,Name_6,DLType_3,rnk_3,chi2_3,RUI_2,Ruz_2,RTM_1,Lib_4,
+ Type_4,BTmag_5,VTmag_5,J2mag_7,H2mag_7,K2mag_7,Ufmag_4,
+ Bfmag_3,Vfmag_3,Rfmag_4,Ifmag_4,Zvmag_7,Yvmag_7,u_mag_4,
+ g_mag_4,r_mag_6,i_mag_4,z_mag_4,Dist_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12c.dat' ! [LanSloFit] 8-band Sloan/2MASS S2M fits
C Format for file interpretation
9 format(
+ 2X,I3,2X,A11,1X,A6,1X,I2,3X,F7.2,2X,F5.3,2X,F5.3,2X,F5.3,1X,
+ I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table12c.dat')
write(6,*) '....Loading file: table12c.dat'
do i__=1,21
read(1,'(A203)')ar__8
read(ar__8,9)
+ Seq_4,Name_7,DLType_4,rnk_4,chi2_4,RUI_3,Ruz_3,RTM_2,Lib_5,
+ Type_5,BTmag_6,VTmag_6,J2mag_8,H2mag_8,K2mag_8,Ufmag_5,
+ Bfmag_4,Vfmag_4,Rfmag_5,Ifmag_5,Zvmag_8,Yvmag_8,u_mag_5,
+ g_mag_5,r_mag_7,i_mag_5,z_mag_5,Dist_4
c ..............Just test output...........
write(6,9)
+ Seq_4,Name_7,DLType_4,rnk_4,chi2_4,RUI_3,Ruz_3,RTM_2,Lib_5,
+ Type_5,BTmag_6,VTmag_6,J2mag_8,H2mag_8,K2mag_8,Ufmag_5,
+ Bfmag_4,Vfmag_4,Rfmag_5,Ifmag_5,Zvmag_8,Yvmag_8,u_mag_5,
+ g_mag_5,r_mag_7,i_mag_5,z_mag_5,Dist_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12d.dat' ! [LanSloFit] 6-band Tycho2/NomadR/2MASS TNM fits
C Format for file interpretation
10 format(
+ 2X,I3,2X,A11,1X,A6,1X,I2,3X,F7.2,2X,F5.3,2X,F5.3,2X,F5.3,1X,
+ I3,2X,A8,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,5X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table12d.dat')
write(6,*) '....Loading file: table12d.dat'
do i__=1,39
read(1,'(A203)')ar__9
read(ar__9,10)
+ Seq_5,Name_8,DLType_5,rnk_5,chi2_5,RUI_4,Ruz_4,RTM_3,Lib_6,
+ Type_6,BTmag_7,VTmag_7,J2mag_9,H2mag_9,K2mag_9,Ufmag_6,
+ Bfmag_5,Vfmag_5,Rfmag_6,Ifmag_6,Zvmag_9,Yvmag_9,u_mag_6,
+ g_mag_6,r_mag_8,i_mag_6,z_mag_6,Dist_5
c ..............Just test output...........
write(6,10)
+ Seq_5,Name_8,DLType_5,rnk_5,chi2_5,RUI_4,Ruz_4,RTM_3,Lib_6,
+ Type_6,BTmag_7,VTmag_7,J2mag_9,H2mag_9,K2mag_9,Ufmag_6,
+ Bfmag_5,Vfmag_5,Rfmag_6,Ifmag_6,Zvmag_9,Yvmag_9,u_mag_6,
+ g_mag_6,r_mag_8,i_mag_6,z_mag_6,Dist_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13.dat' ! [SDSSPTFit.dat] SDSS-PT (USNO Photometric telescope)
* catalog fit
C Format for file interpretation
11 format(
+ F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,F6.3,1X,I2,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,A3,1X,I2,F8.2,2X,F5.3,1X,F5.3,I3,2X,A8,2X,F5.2,1X,
+ F5.2,1X,F6.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,F6.3,2X,F6.3,2X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,1042562
read(1,'(A257)')ar__10
read(ar__10,11)
+ RAdeg_5,DEdeg_5,g_mag_7,r_mag_9,i_mag_7,z_mag_7,e_g_mag_1,
+ e_r_mag_2,e_i_mag_1,e_z_mag_1,Nobs_2,J2mag_10,e_J2mag_3,
+ H2mag_10,e_H2mag_3,K2mag_10,e_K2mag_3,Qual,rnk_6,chi2_6,Rgz_1,
+ R2M,Lib_7,Type_7,Ufmag_7,Bfmag_6,Vfmag_6,Rfmag_7,Ifmag_7,
+ Zvmag_10,Yvmag_10,ufmag_8,gfmag_1,rfmag_8,ifmag_8,zfmag_1,
+ Dist_6,J2fmag,H2fmag,K2fmag
c ..............Just test output...........
write(6,11)
+ RAdeg_5,DEdeg_5,g_mag_7,r_mag_9,i_mag_7,z_mag_7,e_g_mag_1,
+ e_r_mag_2,e_i_mag_1,e_z_mag_1,Nobs_2,J2mag_10,e_J2mag_3,
+ H2mag_10,e_H2mag_3,K2mag_10,e_K2mag_3,Qual,rnk_6,chi2_6,Rgz_1,
+ R2M,Lib_7,Type_7,Ufmag_7,Bfmag_6,Vfmag_6,Rfmag_7,Ifmag_7,
+ Zvmag_10,Yvmag_10,ufmag_8,gfmag_1,rfmag_8,ifmag_8,zfmag_1,
+ Dist_6,J2fmag,H2fmag,K2fmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table14.dat' ! [SDSSSouthFit] The u'g'r'i'z' Southern Hemisphere
* Standard Star Network, Smith et al., 2005,
* BAAS, 37, 1379
C Format for file interpretation
12 format(
+ 7X,A16,1X,F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A3,1X,I2,1X,F7.2,2X,F5.2,
+ 1X,I3,2X,A8,2X,F5.2,1X,F5.2,1X,F6.3,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table14.dat')
write(6,*) '....Loading file: table14.dat'
do i__=1,15673
read(1,'(A263)')ar__11
read(ar__11,12)
+ Name_9,RAdeg_6,DEdeg_6,u_mag_7,g_mag_8,r_mag_10,i_mag_8,
+ z_mag_8,e_u_mag_1,e_g_mag_2,e_r_mag_3,e_i_mag_2,e_z_mag_2,
+ J2mag_11,e_J2mag_4,H2mag_11,e_H2mag_4,K2mag_11,e_K2mag_4,
+ Qual_1,rnk_7,chi2_7,Rgz_2,Lib_8,Type_8,Ufmag_9,Bfmag_7,
+ Vfmag_7,Rfmag_9,Ifmag_9,Zvmag_11,Yvmag_11,ufmag_10,gfmag_2,
+ rfmag_10,ifmag_10,zfmag_2,Dist_7
c ..............Just test output...........
write(6,12)
+ Name_9,RAdeg_6,DEdeg_6,u_mag_7,g_mag_8,r_mag_10,i_mag_8,
+ z_mag_8,e_u_mag_1,e_g_mag_2,e_r_mag_3,e_i_mag_2,e_z_mag_2,
+ J2mag_11,e_J2mag_4,H2mag_11,e_H2mag_4,K2mag_11,e_K2mag_4,
+ Qual_1,rnk_7,chi2_7,Rgz_2,Lib_8,Type_8,Ufmag_9,Bfmag_7,
+ Vfmag_7,Rfmag_9,Ifmag_9,Zvmag_11,Yvmag_11,ufmag_10,gfmag_2,
+ rfmag_10,ifmag_10,zfmag_2,Dist_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table15.dat' ! [Tycho2Fit.dat] Tycho2 catalog fit
C Format for file interpretation
13 format(
+ F9.5,1X,F9.5,2X,F7.1,1X,F8.1,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A3,2X,
+ I2,F7.2,2X,F4.2,1X,I3,2X,A8,2X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F6.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table15.dat')
write(6,*) '....Loading file: table15.dat'
do i__=1,2429446
read(1,'(A253)')ar__12
read(ar__12,13)
+ RAdeg_7,DEdeg_7,pmRA_2,pmDE_2,BTmag_8,e_BTmag_1,VTmag_8,
+ e_VTmag_1,Rnmag_2,J2mag_12,e_J2mag_5,H2mag_12,e_H2mag_5,
+ K2mag_12,e_K2mag_5,Qual_2,rnk_8,chi2_8,RTM_4,Lib_9,Type_9,
+ BTfmag,VTfmag,Ufmag_11,Bfmag_8,Vfmag_8,Rfmag_11,Ifmag_11,
+ Zvmag_12,Yvmag_12,ufmag_12,gfmag_3,rfmag_12,ifmag_12,zfmag_3,
+ Dist_8,J2fmag_1,H2fmag_1,K2fmag_1
c ..............Just test output...........
write(6,13)
+ RAdeg_7,DEdeg_7,pmRA_2,pmDE_2,BTmag_8,e_BTmag_1,VTmag_8,
+ e_VTmag_1,Rnmag_2,J2mag_12,e_J2mag_5,H2mag_12,e_H2mag_5,
+ K2mag_12,e_K2mag_5,Qual_2,rnk_8,chi2_8,RTM_4,Lib_9,Type_9,
+ BTfmag,VTfmag,Ufmag_11,Bfmag_8,Vfmag_8,Rfmag_11,Ifmag_11,
+ Zvmag_12,Yvmag_12,ufmag_12,gfmag_3,rfmag_12,ifmag_12,zfmag_3,
+ Dist_8,J2fmag_1,H2fmag_1,K2fmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table16.dat' ! [DR7Fit.dat] DR7 stars to g<16 from
* http://www.sdss.org/dr7/
C Format for file interpretation
14 format(
+ F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,A3,2X,I2,F9.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,I3,2X,A8,2X,F5.2,1X,F5.2,1X,F6.3,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table16.dat')
write(6,*) '....Loading file: table16.dat'
do i__=1,4854094
read(1,'(A300)')ar__13
read(ar__13,14)
+ RAdeg_8,DEdeg_8,psfu,psfg,psfr,psfi,psfz,e_psfu,e_psfg,e_psfr,
+ e_psfi,e_psfz,J2mag_13,e_J2mag_6,H2mag_13,e_H2mag_6,K2mag_13,
+ e_K2mag_6,Qual_3,rnk_9,chi2_9,Ruz_5,Rgz_3,R2M_1,Lib_10,
+ Type_10,Ufmag_13,Bfmag_9,Vfmag_9,Rfmag_13,Ifmag_13,Zvmag_13,
+ Yvmag_13,ufmag_14,gfmag_4,rfmag_14,ifmag_14,zfmag_4,umag_2,
+ gmag_1,rmag_2,imag_2,zmag_1,Dist_9,J2fmag_2,H2fmag_2,K2fmag_2
c ..............Just test output...........
write(6,14)
+ RAdeg_8,DEdeg_8,psfu,psfg,psfr,psfi,psfz,e_psfu,e_psfg,e_psfr,
+ e_psfi,e_psfz,J2mag_13,e_J2mag_6,H2mag_13,e_H2mag_6,K2mag_13,
+ e_K2mag_6,Qual_3,rnk_9,chi2_9,Ruz_5,Rgz_3,R2M_1,Lib_10,
+ Type_10,Ufmag_13,Bfmag_9,Vfmag_9,Rfmag_13,Ifmag_13,Zvmag_13,
+ Yvmag_13,ufmag_14,gfmag_4,rfmag_14,ifmag_14,zfmag_4,umag_2,
+ gmag_1,rmag_2,imag_2,zmag_1,Dist_9,J2fmag_2,H2fmag_2,K2fmag_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end