Conversion of standardized ReadMe file for
file /./ftp/cats/VI/135 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-20
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. 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 (nr__) ! [0/140] Library sequential number
character*8 Type (nr__) ! Spectral type
real*4 scale (nr__) ! Scale for Vcmag=0.000 (1)
real*4 Ummag (nr__) ! (mag) Landolt Um magnitude in VEGA system
real*4 Bmmag (nr__) ! (mag) Landolt Bm magnitude in VEGA system
real*4 Vcmag (nr__) ! (mag) [0.000] Landolt Vc magnitude in VEGA system
real*4 Rcmag (nr__) ! (mag) Landolt Rc magnitude in VEGA system
real*4 Icmag (nr__) ! (mag) Landolt Ic magnitude in VEGA system
real*4 Zvmag (nr__) ! (mag) UKIRT Z magnitude in VEGA system
real*4 Yvmag (nr__) ! (mag) UKIRT Y magnitude in VEGA system
real*4 BTmag (nr__) ! (mag) Tycho2 B_T_ magnitude in VEGA system
real*4 VTmag (nr__) ! (mag) Tycho2 V_T_ magnitude in VEGA system
real*4 J2mag (nr__) ! (mag) 2MASS J magnitude in VEGA system
real*4 H2mag (nr__) ! (mag) 2MASS H magnitude in VEGA system
real*4 K2mag (nr__) ! (mag) 2MASS Ks magnitude in VEGA system
real*4 Jmkomag (nr__) ! (mag) UKIRT+MKO J magnitude in VEGA system
real*4 Hmkomag (nr__) ! (mag) UKIRT+MKO H magnitude in VEGA system
real*4 Kmkomag (nr__) ! (mag) UKIRT+MKO K magnitude in VEGA system
real*4 Emag (nr__) ! (mag) "Bolometric" E magnitude in VEGA system
real*4 Rpmag (nr__) ! (mag) PTF Rp magnitude in VEGA system
real*4 usmag (nr__) ! (mag) Stromgren u magnitude in VEGA system
real*4 vsmag (nr__) ! (mag) Stromgren v magnitude in VEGA system
real*4 bsmag (nr__) ! (mag) Stromgren b magnitude in VEGA system
real*4 ysmag (nr__) ! (mag) Stromgren y magnitude in VEGA system
real*4 u_mag (nr__) ! (mag) Sloan-prime u' magnitude in AB system
real*4 g_mag (nr__) ! (mag) Sloan-prime g' magnitude in AB system
real*4 r_mag (nr__) ! (mag) Sloan-prime r' magnitude in AB system
real*4 i_mag (nr__) ! (mag) Sloan-prime i' magnitude in AB system
real*4 z_mag (nr__) ! (mag) Sloan-prime z' magnitude in AB system
real*4 umag (nr__) ! (mag) Sloan-unprime u magnitude in AB system
real*4 gmag (nr__) ! (mag) Sloan-unprime g magnitude in AB system
real*4 rmag (nr__) ! (mag) Sloan-unprime r magnitude in AB system
real*4 imag (nr__) ! (mag) Sloan-unprime i magnitude in AB system
real*4 zmag (nr__) ! (mag) Sloan-unprime z magnitude in AB system
real*4 VMAG (nr__) ! (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 (nr__1) ! (deg) Right Ascension J2000
real*8 DEdeg (nr__1) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq (nr__1) ! [0/593] Sequential number
character*11 Name (nr__1) ! Star name
integer*4 RAh (nr__1) ! (h) Right ascension (J2000) (1)
integer*4 RAm (nr__1) ! (min) Right ascension (J2000) (1)
real*4 RAs (nr__1) ! (s) Right ascension (J2000) (1)
character*1 DE_ (nr__1) ! Declination sign (J2000) (1)
integer*4 DEd (nr__1) ! (deg) Declination (J2000) (1)
integer*4 DEm (nr__1) ! (arcmin) Declination (J2000) (1)
real*4 DEs (nr__1) ! (arcsec) Declination (J2000) (1)
real*4 Vmag_1 (nr__1) ! (mag) Landolt V magnitude
real*4 B_V (nr__1) ! (mag) Landolt B-V colour index
real*4 U_B (nr__1) ! (mag) Landolt U-B colour index
real*4 V_R (nr__1) ! (mag) Landolt V-R colour index
real*4 V_I (nr__1) ! (mag) Landolt V-I colour index
integer*4 Nobs (nr__1) ! Number of observations
character*7 DLType (nr__1) ! Spectral type from Drilling & Landolt
* (1979, Cat. <VI/19>)
integer*4 rnk (nr__1) ! Fitted rank
real*8 chi2 (nr__1) ! chi2 value
real*4 RUI (nr__1) ! (mag) rms error in Landolt magnitudes RUI
real*4 RBI (nr__1) ! (mag) rms error in Landolt magnitudes RBI
integer*4 Lib_1 (nr__1) ! Fitted spectral library number
character*8 Type_1 (nr__1) ! Fitted spectral type
real*4 BTmag_1 (nr__1) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_1 (nr__1) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_1 (nr__1) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_1 (nr__1) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_1 (nr__1) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag (nr__1) ! (mag) Fitted U magnitude
real*4 Bfmag (nr__1) ! (mag) Fitted B magnitude
real*4 Vfmag (nr__1) ! (mag) Fitted V magnitude
real*4 Rfmag (nr__1) ! (mag) Fitted R magnitude
real*4 Ifmag (nr__1) ! (mag) Fitted I magnitude
real*4 Zvmag_1 (nr__1) ! (mag) Fitted Zv magnitude
real*4 Yvmag_1 (nr__1) ! (mag) Fitted Yv magnitude
real*4 u_mag_1 (nr__1) ! (mag) Fitted u' magnitude
real*4 g_mag_1 (nr__1) ! (mag) Fitted g' magnitude
real*4 r_mag_1 (nr__1) ! (mag) Fitted r' magnitude
real*4 i_mag_1 (nr__1) ! (mag) Fitted i' magnitude
real*4 z_mag_1 (nr__1) ! (mag) Fitted z' magnitude
integer*4 Dist (nr__1) ! (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 (nr__2) ! (deg) Right Ascension J2000
real*8 DEdeg_1 (nr__2) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name_1 (nr__2) ! Star name
integer*4 RAh_1 (nr__2) ! (h) Right ascension (J2000)
integer*4 RAm_1 (nr__2) ! (min) Right ascension (J2000)
real*4 RAs_1 (nr__2) ! (s) Right ascension (J2000)
character*1 DE__1 (nr__2) ! Declination sign (J2000)
integer*4 DEd_1 (nr__2) ! (deg) Declination (J2000)
integer*4 DEm_1 (nr__2) ! (arcmin) Declination (J2000)
real*4 DEs_1 (nr__2) ! (arcsec) Declination (J2000)
real*4 Vmag_2 (nr__2) ! (mag) Landolt V magnitude
real*4 B_V_1 (nr__2) ! (mag) Landolt B-V colour index
real*4 U_B_1 (nr__2) ! (mag) Landolt U-B colour index
real*4 V_R_1 (nr__2) ! (mag) Landolt V-R colour index
real*4 R_I (nr__2) ! (mag) Landolt R-I colour index
real*4 V_I_1 (nr__2) ! (mag) Landolt V-I colour index
integer*4 Nobs_1 (nr__2) ! Number of times star was observed
integer*4 Nnig (nr__2) ! Number of nights star was observed
real*4 e_Vmag (nr__2) ! (mag) Error on Vmag
real*4 e_B_V (nr__2) ! (mag) Error on B-V
real*4 e_U_B (nr__2) ! (mag) Error on U-B
real*4 e_V_R (nr__2) ! (mag) Error on V-R
real*4 e_V_I (nr__2) ! (mag) Error on V-I
real*8 pmRA (nr__2) ! (mas/yr) proper motion along RA
real*8 pmDE (nr__2) ! (mas/yr) proper motion along DE
character*7 DLType_1 (nr__2) ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
real*4 J2mag_2 (nr__2) ! (mag) 2MASS J magnitude
real*4 e_J2mag (nr__2) ! (mag) Error on J2mag
real*4 H2mag_2 (nr__2) ! (mag) 2MASS H magnitude
real*4 e_H2mag (nr__2) ! (mag) Error on H2mag
real*4 K2mag_2 (nr__2) ! (mag) 2MASS Ks magnitude
real*4 e_K2mag (nr__2) ! (mag) Error on K2mag
real*8 RA2deg (nr__2) ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg (nr__2) ! (deg) 2MASS Declination (J2000)
real*4 d2m (nr__2) ! (arcsec) Distance from 2MASS data
real*4 Zvmag_2 (nr__2) ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_2 (nr__2) ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_1 (nr__2) ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_1 (nr__2) ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_1 (nr__2) ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 Rnmag (nr__2) ! (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 (nr__3) ! (deg) Right Ascension J2000
real*8 DEdeg_2 (nr__3) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*12 Name_2 (nr__3) ! Star Name
integer*4 RAh_2 (nr__3) ! (h) Right ascension (J2000)
integer*4 RAm_2 (nr__3) ! (min) Right ascension (J2000)
real*4 RAs_2 (nr__3) ! (s) Right ascension (J2000)
character*1 DE__2 (nr__3) ! Declination sign (J2000)
integer*4 DEd_2 (nr__3) ! (deg) Declination (J2000)
integer*4 DEm_2 (nr__3) ! (arcmin) Declination (J2000)
real*4 DEs_2 (nr__3) ! (arcsec) Declination (J2000)
real*4 r_mag_2 (nr__3) ! (mag) SDSS r' magnitude
real*4 u__g_ (nr__3) ! (mag) SDSS u'-g' colour index
real*4 g__r_ (nr__3) ! (mag) SDSS g'-r' colour index
real*4 r__i_ (nr__3) ! (mag) SDSS r'-i' colour index
real*4 i__z_ (nr__3) ! (mag) SDSS i'-z' colour index
real*4 e_r_mag (nr__3) ! (mag) Error on r'mag
real*4 e_u__g_ (nr__3) ! (mag) Error on u'-g'
real*4 e_g__r_ (nr__3) ! (mag) Error on g'-r'
real*4 e_r__i_ (nr__3) ! (mag) Error on r'-i'
real*4 e_i__z_ (nr__3) ! (mag) Error on i'-z'
integer*4 Nu_ (nr__3) ! Number of measurements in u' band
integer*4 Ng_ (nr__3) ! Number of measurements in g' band
integer*4 Nr_ (nr__3) ! Number of measurements in r' band
integer*4 Ni_ (nr__3) ! Number of measurements in i' band
integer*4 Nz_ (nr__3) ! Number of measurements in z' band
real*4 Zvmag_3 (nr__3) ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_3 (nr__3) ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_2 (nr__3) ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_2 (nr__3) ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_2 (nr__3) ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 J2mag_3 (nr__3) ! (mag) 2MASS J magnitude
real*4 e_J2mag_1 (nr__3) ! (mag) Error on J2mag
real*4 H2mag_3 (nr__3) ! (mag) 2MASS H magnitude
real*4 e_H2mag_1 (nr__3) ! (mag) Error on H2mag
real*4 K2mag_3 (nr__3) ! (mag) 2MASS Ks magnitude
real*4 e_K2mag_1 (nr__3) ! (mag) Error on K2mag
real*8 RA2deg_1 (nr__3) ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg_1 (nr__3) ! (deg) 2MASS Declination (J2000)
real*4 d2m_1 (nr__3) ! (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 (nr__4) ! (deg) Right Ascension J2000
real*8 DEdeg_3 (nr__4) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq_1 (nr__4) ! [0/157] Sequential number
character*12 Name_3 (nr__4) ! StarName
integer*4 RAh_3 (nr__4) ! (h) Right ascension (J2000)
integer*4 RAm_3 (nr__4) ! (min) Right ascension (J2000)
real*4 RAs_3 (nr__4) ! (s) Right ascension (J2000)
character*1 DE__3 (nr__4) ! Declination sign (J2000)
integer*4 DEd_3 (nr__4) ! (deg) Declination (J2000)
integer*4 DEm_3 (nr__4) ! (arcmin) Declination (J2000)
real*4 DEs_3 (nr__4) ! (arcsec) Declination (J2000)
real*4 r_mag_3 (nr__4) ! (mag) SDSS r' magnitude
real*4 u__g__1 (nr__4) ! (mag) SDSS u'-g' colour index
real*4 g__r__1 (nr__4) ! (mag) SDSS g'-r' colour index
real*4 r__i__1 (nr__4) ! (mag) SDSS r'-i' colour index
real*4 i__z__1 (nr__4) ! (mag) SDSS i'-z' colour index
integer*4 rnk_1 (nr__4) ! Fitted rank
real*8 chi2_1 (nr__4) ! chi2 value
real*4 Ruz (nr__4) ! rms error in SDSS magnitudes uz
real*4 Rgz (nr__4) ! rms error in SDSS magnitudes gz
integer*4 Lib_2 (nr__4) ! Fitted spectral library number
character*8 Type_2 (nr__4) ! Fitted spectral type
real*4 BTmag_2 (nr__4) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_2 (nr__4) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_4 (nr__4) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_4 (nr__4) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_4 (nr__4) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_1 (nr__4) ! (mag) Fitted U magnitude
real*4 Bfmag_1 (nr__4) ! (mag) Fitted B magnitude
real*4 Vfmag_1 (nr__4) ! (mag) Fitted V magnitude
real*4 Rfmag_1 (nr__4) ! (mag) Fitted R magnitude
real*4 Ifmag_1 (nr__4) ! (mag) Fitted I magnitude
real*4 Zvmag_4 (nr__4) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_4 (nr__4) ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_2 (nr__4) ! (mag) Fitted SDSS u' magnitude
real*4 gfmag (nr__4) ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_2 (nr__4) ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_2 (nr__4) ! (mag) Fitted SDSS i' magnitude
real*4 zfmag (nr__4) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_1 (nr__4) ! (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 (nr__5) ! (deg) Right Ascension J2000
real*8 DEdeg_4 (nr__5) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name_4 (nr__5) ! Landolt Name
integer*4 RAh_4 (nr__5) ! (h) Right ascension (J2000)
integer*4 RAm_4 (nr__5) ! (min) Right ascension (J2000)
real*4 RAs_4 (nr__5) ! (s) Right ascension (J2000)
character*1 DE__4 (nr__5) ! Declination sign (J2000)
integer*4 DEd_4 (nr__5) ! (deg) Declination (J2000)
integer*4 DEm_4 (nr__5) ! (arcmin) Declination (J2000)
real*4 DEs_4 (nr__5) ! (arcsec) Declination (J2000)
real*4 Umag_1 (nr__5) ! (mag) Landolt V magnitude
real*4 Bmag (nr__5) ! (mag) Landolt B magnitude
real*4 Vmag_3 (nr__5) ! (mag) Landolt V magnitude
real*4 Rmag_1 (nr__5) ! (mag) Landolt R magnitude
real*4 Imag_1 (nr__5) ! (mag) Landolt I magnitude
real*4 e_Vmag_1 (nr__5) ! (mag) Error on Vmag
real*4 e_B_V_1 (nr__5) ! (mag) Error on B-V
real*4 e_U_B_1 (nr__5) ! (mag) Error on U-B
real*4 e_V_R_1 (nr__5) ! (mag) Error on V-R
real*4 e_V_I_1 (nr__5) ! (mag) Error on V-I
real*4 u_mag_2 (nr__5) ! (mag) SDSS u' magnitude (1)
real*4 g_mag_2 (nr__5) ! (mag) SDSS g' magnitude (1)
real*4 r_mag_4 (nr__5) ! (mag) SDSS r' magnitude (1)
real*4 i_mag_2 (nr__5) ! (mag) SDSS i' magnitude (1)
real*4 z_mag_2 (nr__5) ! (mag) SDSS z' magnitude (1)
real*4 e_u_mag (nr__5) ! (mag) Error on u'mag
real*4 e_g_mag (nr__5) ! (mag) Error on g'mag
real*4 e_r_mag_1 (nr__5) ! (mag) Error on r'mag
real*4 e_i_mag (nr__5) ! (mag) Error on i'mag
real*4 e_z_mag (nr__5) ! (mag) Error on z'mag
real*4 Zvmag_5 (nr__5) ! (mag) ?=-9.99 Vista Zv magnitude
real*4 Yvmag_5 (nr__5) ! (mag) ?=-9.99 Vista Yv magnitude
real*4 Jmkomag_3 (nr__5) ! (mag) ?=-9.99 UKIRT+MKO J magnitude
real*4 Hmkomag_3 (nr__5) ! (mag) ?=-9.99 UKIRT+MKO H magnitude
real*4 Kmkomag_3 (nr__5) ! (mag) ?=-9.99 UKIRT+MKO K magnitude
real*4 J2mag_5 (nr__5) ! (mag) 2MASS J magnitude
real*4 e_J2mag_2 (nr__5) ! (mag) Error on J2mag
real*4 H2mag_5 (nr__5) ! (mag) 2MASS H magnitude
real*4 e_H2mag_2 (nr__5) ! (mag) Error on H2mag
real*4 K2mag_5 (nr__5) ! (mag) 2MASS Ks magnitude
real*4 e_K2mag_2 (nr__5) ! (mag) Error on K2mag
real*8 RA2deg_2 (nr__5) ! (deg) 2MASS right ascension (J2000)
real*8 DE2deg_2 (nr__5) ! (deg) 2MASS Declination (J2000)
real*4 d2m_2 (nr__5) ! (arcsec) Distance from 2MASS data
real*4 BTmag_3 (nr__5) ! (mag) Tycho B_T_ magnitude
real*4 e_BTmag (nr__5) ! (mag) Error on B_T_mag
real*4 VTmag_3 (nr__5) ! (mag) Tycho V_T_ magnitude
real*4 e_VTmag (nr__5) ! (mag) Error on V_T_mag
real*8 RATdeg (nr__5) ! (deg) Tycho right ascension (J2000)
real*8 DETdeg (nr__5) ! (deg) Tycho Declination (J2000)
real*4 dTm (nr__5) ! (arcsec) Distance from Tycho data
real*4 pmRA_1 (nr__5) ! (mas/yr) Proper motion along RA
real*4 pmDE_1 (nr__5) ! (mas/yr) Proper motion along DE
real*4 Rnmag_1 (nr__5) ! (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 (nr__6) ! Sequential number
character*11 Name_5 (nr__6) ! Landolt Name
character*6 DLType_2 (nr__6) ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_2 (nr__6) ! Fitted rank
real*8 chi2_2 (nr__6) ! chi2 value
real*4 RUI_1 (nr__6) ! rms error in Landolt magnitudes UI
real*4 Ruz_1 (nr__6) ! rms error in SDSS magnitudes uz
real*4 RTM (nr__6) ! rms error in Tycho magnitudes
integer*4 Lib_3 (nr__6) ! Fitted spectral library number
character*8 Type_3 (nr__6) ! Fitted spectral type
real*4 BTmag_4 (nr__6) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_4 (nr__6) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_6 (nr__6) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_6 (nr__6) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_6 (nr__6) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_3 (nr__6) ! (mag) Fitted U magnitude
real*4 Bfmag_2 (nr__6) ! (mag) Fitted B magnitude
real*4 Vfmag_2 (nr__6) ! (mag) Fitted V magnitude
real*4 Rfmag_3 (nr__6) ! (mag) Fitted R magnitude
real*4 Ifmag_3 (nr__6) ! (mag) Fitted I magnitude
real*4 Zvmag_6 (nr__6) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_6 (nr__6) ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_3 (nr__6) ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_3 (nr__6) ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_5 (nr__6) ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_3 (nr__6) ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_3 (nr__6) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_2 (nr__6) ! (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 (nr__7) ! Sequential number
character*11 Name_6 (nr__7) ! Landolt Name
character*6 DLType_3 (nr__7) ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_3 (nr__7) ! Fitted rank
real*8 chi2_3 (nr__7) ! chi2 value
real*4 RUI_2 (nr__7) ! rms error in Landolt magnitudes UI
real*4 Ruz_2 (nr__7) ! rms error in SDSS magnitudes uz
real*4 RTM_1 (nr__7) ! rms error in Tycho magnitudes
integer*4 Lib_4 (nr__7) ! Fitted spectral library number
character*8 Type_4 (nr__7) ! Fitted spectral type
real*4 BTmag_5 (nr__7) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_5 (nr__7) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_7 (nr__7) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_7 (nr__7) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_7 (nr__7) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_4 (nr__7) ! (mag) Fitted U magnitude
real*4 Bfmag_3 (nr__7) ! (mag) Fitted B magnitude
real*4 Vfmag_3 (nr__7) ! (mag) Fitted V magnitude
real*4 Rfmag_4 (nr__7) ! (mag) Fitted R magnitude
real*4 Ifmag_4 (nr__7) ! (mag) Fitted I magnitude
real*4 Zvmag_7 (nr__7) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_7 (nr__7) ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_4 (nr__7) ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_4 (nr__7) ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_6 (nr__7) ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_4 (nr__7) ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_4 (nr__7) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_3 (nr__7) ! (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 (nr__8) ! Sequential number
character*11 Name_7 (nr__8) ! Landolt Name
character*6 DLType_4 (nr__8) ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_4 (nr__8) ! Fitted rank
real*8 chi2_4 (nr__8) ! chi2 value
real*4 RUI_3 (nr__8) ! rms error in Landolt magnitudes UI
real*4 Ruz_3 (nr__8) ! rms error in SDSS magnitudes uz
real*4 RTM_2 (nr__8) ! rms error in Tycho magnitudes
integer*4 Lib_5 (nr__8) ! Fitted spectral library number
character*8 Type_5 (nr__8) ! Fitted spectral type
real*4 BTmag_6 (nr__8) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_6 (nr__8) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_8 (nr__8) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_8 (nr__8) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_8 (nr__8) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_5 (nr__8) ! (mag) Fitted U magnitude
real*4 Bfmag_4 (nr__8) ! (mag) Fitted B magnitude
real*4 Vfmag_4 (nr__8) ! (mag) Fitted V magnitude
real*4 Rfmag_5 (nr__8) ! (mag) Fitted R magnitude
real*4 Ifmag_5 (nr__8) ! (mag) Fitted I magnitude
real*4 Zvmag_8 (nr__8) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_8 (nr__8) ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_5 (nr__8) ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_5 (nr__8) ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_7 (nr__8) ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_5 (nr__8) ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_5 (nr__8) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_4 (nr__8) ! (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 (nr__9) ! Sequential number
character*11 Name_8 (nr__9) ! Landolt Name
character*6 DLType_5 (nr__9) ! Spectral type from Drilling & Landolt,
* 1979, Cat. <VI/19>
integer*4 rnk_5 (nr__9) ! Fitted rank
real*8 chi2_5 (nr__9) ! chi2 value
real*4 RUI_4 (nr__9) ! rms error in Landolt magnitudes UI
real*4 Ruz_4 (nr__9) ! rms error in SDSS magnitudes uz
real*4 RTM_3 (nr__9) ! rms error in Tycho magnitudes
integer*4 Lib_6 (nr__9) ! Fitted spectral library number
character*8 Type_6 (nr__9) ! Fitted spectral type
real*4 BTmag_7 (nr__9) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTmag_7 (nr__9) ! (mag) Fitted Tycho V_T_ magnitude
real*4 J2mag_9 (nr__9) ! (mag) Fitted 2MASS J magnitude
real*4 H2mag_9 (nr__9) ! (mag) Fitted 2MASS H magnitude
real*4 K2mag_9 (nr__9) ! (mag) Fitted 2MASS Ks magnitude
real*4 Ufmag_6 (nr__9) ! (mag) Fitted U magnitude
real*4 Bfmag_5 (nr__9) ! (mag) Fitted B magnitude
real*4 Vfmag_5 (nr__9) ! (mag) Fitted V magnitude
real*4 Rfmag_6 (nr__9) ! (mag) Fitted R magnitude
real*4 Ifmag_6 (nr__9) ! (mag) Fitted I magnitude
real*4 Zvmag_9 (nr__9) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_9 (nr__9) ! (mag) Fitted Vista Yv magnitude
real*4 u_mag_6 (nr__9) ! (mag) Fitted SDSS u' magnitude
real*4 g_mag_6 (nr__9) ! (mag) Fitted SDSS g' magnitude
real*4 r_mag_8 (nr__9) ! (mag) Fitted SDSS r' magnitude
real*4 i_mag_6 (nr__9) ! (mag) Fitted SDSS i' magnitude
real*4 z_mag_6 (nr__9) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_5 (nr__9) ! (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 (nr__10) ! (deg) SDSS right ascension (J2000)
real*8 DEdeg_5 (nr__10) ! (deg) SDSS Declination (J2000)
real*4 g_mag_7 (nr__10) ! (mag) SDSS g' magnitude
real*4 r_mag_9 (nr__10) ! (mag) SDSS r' magnitude
real*4 i_mag_7 (nr__10) ! (mag) SDSS i' magnitude
real*4 z_mag_7 (nr__10) ! (mag) SDSS z' magnitude
real*4 e_g_mag_1 (nr__10) ! (mag) Error on g'mag
real*4 e_r_mag_2 (nr__10) ! (mag) Error on r'mag
real*4 e_i_mag_1 (nr__10) ! (mag) Error on i'mag
real*4 e_z_mag_1 (nr__10) ! (mag) Error on z'mag
integer*4 Nobs_2 (nr__10) ! Number of observations
real*4 J2mag_10 (nr__10) ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_3 (nr__10) ! (mag) Input error on J2mag
real*4 H2mag_10 (nr__10) ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_3 (nr__10) ! (mag) Input error on H2mag
real*4 K2mag_10 (nr__10) ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_3 (nr__10) ! (mag) Input error on K2mag
character*3 Qual (nr__10) ! 2MASS quality flags on JHK
integer*4 rnk_6 (nr__10) ! Fitted rank
real*8 chi2_6 (nr__10) ! chi2 value
real*4 Rgz_1 (nr__10) ! rms error in SDSS magnitudes
real*4 R2M (nr__10) ! rms error in 2MASS magnitudes
integer*4 Lib_7 (nr__10) ! Fitted spectral library number
character*8 Type_7 (nr__10) ! Fitted spectral type
real*4 Ufmag_7 (nr__10) ! (mag) Fitted U magnitude
real*4 Bfmag_6 (nr__10) ! (mag) Fitted B magnitude
real*4 Vfmag_6 (nr__10) ! (mag) Fitted V magnitude
real*4 Rfmag_7 (nr__10) ! (mag) Fitted R magnitude
real*4 Ifmag_7 (nr__10) ! (mag) Fitted I magnitude
real*4 Zvmag_10 (nr__10) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_10 (nr__10) ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_8 (nr__10) ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_1 (nr__10) ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_8 (nr__10) ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_8 (nr__10) ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_1 (nr__10) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_6 (nr__10) ! (pc) Heliocentric distance
real*4 J2fmag (nr__10) ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag (nr__10) ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag (nr__10) ! (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 (nr__11) ! SDSS name (ugriz~JHHMMSS.s+DDMMSS)
real*8 RAdeg_6 (nr__11) ! (deg) SDSS right ascension (J2000)
real*8 DEdeg_6 (nr__11) ! (deg) SDSS Declination (J2000)
real*4 u_mag_7 (nr__11) ! (mag) SDSS u' magnitude
real*4 g_mag_8 (nr__11) ! (mag) SDSS g' magnitude
real*4 r_mag_10 (nr__11) ! (mag) SDSS r' magnitude
real*4 i_mag_8 (nr__11) ! (mag) SDSS i' magnitude
real*4 z_mag_8 (nr__11) ! (mag) SDSS z' magnitude
real*4 e_u_mag_1 (nr__11) ! (mag) Error on u'mag
real*4 e_g_mag_2 (nr__11) ! (mag) Error on g'mag
real*4 e_r_mag_3 (nr__11) ! (mag) Error on r'mag
real*4 e_i_mag_2 (nr__11) ! (mag) Error on i'mag
real*4 e_z_mag_2 (nr__11) ! (mag) Error on z'mag
real*4 J2mag_11 (nr__11) ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_4 (nr__11) ! (mag) Input error on J2mag
real*4 H2mag_11 (nr__11) ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_4 (nr__11) ! (mag) Input error on H2mag
real*4 K2mag_11 (nr__11) ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_4 (nr__11) ! (mag) Input error on K2mag
character*3 Qual_1 (nr__11) ! 2MASS quality flags on JHK
integer*4 rnk_7 (nr__11) ! Fitted rank
real*8 chi2_7 (nr__11) ! chi2 value
real*4 Rgz_2 (nr__11) ! rms error in SDSS magnitudes gz
integer*4 Lib_8 (nr__11) ! Fitted spectral library number
character*8 Type_8 (nr__11) ! Fitted spectral type
real*4 Ufmag_9 (nr__11) ! (mag) Fitted U magnitude
real*4 Bfmag_7 (nr__11) ! (mag) Fitted B magnitude
real*4 Vfmag_7 (nr__11) ! (mag) Fitted V magnitude
real*4 Rfmag_9 (nr__11) ! (mag) Fitted R magnitude
real*4 Ifmag_9 (nr__11) ! (mag) Fitted I magnitude
real*4 Zvmag_11 (nr__11) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_11 (nr__11) ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_10 (nr__11) ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_2 (nr__11) ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_10 (nr__11) ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_10 (nr__11) ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_2 (nr__11) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_7 (nr__11) ! (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 (nr__12) ! (deg) Tycho right ascension (J2000)
real*8 DEdeg_7 (nr__12) ! (deg) Tycho declination (J2000)
real*8 pmRA_2 (nr__12) ! (mas/yr) Proper motion along RA
real*8 pmDE_2 (nr__12) ! (mas/yr) Proper motion along DE
real*4 BTmag_8 (nr__12) ! (mag) Tycho B_T_ magnitude
real*4 e_BTmag_1 (nr__12) ! (mag) Error on B_T_mag
real*4 VTmag_8 (nr__12) ! (mag) Tycho V_T_ magnitude
real*4 e_VTmag_1 (nr__12) ! (mag) Error on V_T_mag
real*4 Rnmag_2 (nr__12) ! (mag) NOMAD R magnitude
real*4 J2mag_12 (nr__12) ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_5 (nr__12) ! (mag) Input error on J2mag
real*4 H2mag_12 (nr__12) ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_5 (nr__12) ! (mag) Input error on H2mag
real*4 K2mag_12 (nr__12) ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_5 (nr__12) ! (mag) Input error on K2mag
character*3 Qual_2 (nr__12) ! 2MASS quality flags on JHK
integer*4 rnk_8 (nr__12) ! Fitted rank
real*8 chi2_8 (nr__12) ! chi2 value
real*4 RTM_4 (nr__12) ! rms error in Tycho magnitudes
integer*4 Lib_9 (nr__12) ! Fitted spectral library number
character*8 Type_9 (nr__12) ! Fitted spectral type
real*4 BTfmag (nr__12) ! (mag) Fitted Tycho B_T_ magnitude
real*4 VTfmag (nr__12) ! (mag) Fitted Tycho V_T_ magnitude
real*4 Ufmag_11 (nr__12) ! (mag) Fitted U magnitude
real*4 Bfmag_8 (nr__12) ! (mag) Fitted B magnitude
real*4 Vfmag_8 (nr__12) ! (mag) Fitted V magnitude
real*4 Rfmag_11 (nr__12) ! (mag) Fitted R magnitude
real*4 Ifmag_11 (nr__12) ! (mag) Fitted I magnitude
real*4 Zvmag_12 (nr__12) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_12 (nr__12) ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_12 (nr__12) ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_3 (nr__12) ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_12 (nr__12) ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_12 (nr__12) ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_3 (nr__12) ! (mag) Fitted SDSS z' magnitude
integer*4 Dist_8 (nr__12) ! (pc) Heliocentric distance
real*4 J2fmag_1 (nr__12) ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag_1 (nr__12) ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag_1 (nr__12) ! (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 (nr__13) ! (deg) SDSS-DR7 right ascension (J2000)
real*8 DEdeg_8 (nr__13) ! (deg) SDSS-DR7 Declination (J2000)
real*4 psfu (nr__13) ! (mag) SDSS u magnitude
real*4 psfg (nr__13) ! (mag) SDSS g magnitude
real*4 psfr (nr__13) ! (mag) SDSS r magnitude
real*4 psfi (nr__13) ! (mag) SDSS i magnitude
real*4 psfz (nr__13) ! (mag) SDSS z magnitude
real*4 e_psfu (nr__13) ! (mag) Error on psfu
real*4 e_psfg (nr__13) ! (mag) Error on psfg
real*4 e_psfr (nr__13) ! (mag) Error on psfr
real*4 e_psfi (nr__13) ! (mag) Error on psfi
real*4 e_psfz (nr__13) ! (mag) Error on psfz
real*4 J2mag_13 (nr__13) ! (mag) Input 2MASS J magnitude
real*4 e_J2mag_6 (nr__13) ! (mag) Input error on J2mag
real*4 H2mag_13 (nr__13) ! (mag) Input 2MASS H magnitude
real*4 e_H2mag_6 (nr__13) ! (mag) Input error on H2mag
real*4 K2mag_13 (nr__13) ! (mag) Input 2MASS Ks magnitude
real*4 e_K2mag_6 (nr__13) ! (mag) Input error on K2mag
character*3 Qual_3 (nr__13) ! 2MASS quality flags on JHK
integer*4 rnk_9 (nr__13) ! Fitted rank
real*8 chi2_9 (nr__13) ! chi2 value
real*4 Ruz_5 (nr__13) ! rms error in SDSS magnitudes uz
real*4 Rgz_3 (nr__13) ! rms error in SDSS magnitudes gz
real*4 R2M_1 (nr__13) ! rms error in 2MASS magnitudes
integer*4 Lib_10 (nr__13) ! Fitted spectral library number
character*8 Type_10 (nr__13) ! Fitted spectral type
real*4 Ufmag_13 (nr__13) ! (mag) Fitted U magnitude
real*4 Bfmag_9 (nr__13) ! (mag) Fitted B magnitude
real*4 Vfmag_9 (nr__13) ! (mag) Fitted V magnitude
real*4 Rfmag_13 (nr__13) ! (mag) Fitted R magnitude
real*4 Ifmag_13 (nr__13) ! (mag) Fitted I magnitude
real*4 Zvmag_13 (nr__13) ! (mag) Fitted Vista Zv magnitude
real*4 Yvmag_13 (nr__13) ! (mag) Fitted Vista Yv magnitude
real*4 ufmag_14 (nr__13) ! (mag) Fitted SDSS u' magnitude
real*4 gfmag_4 (nr__13) ! (mag) Fitted SDSS g' magnitude
real*4 rfmag_14 (nr__13) ! (mag) Fitted SDSS r' magnitude
real*4 ifmag_14 (nr__13) ! (mag) Fitted SDSS i' magnitude
real*4 zfmag_4 (nr__13) ! (mag) Fitted SDSS z' magnitude
real*4 umag_2 (nr__13) ! (mag) Fitted SDSS u magnitude
real*4 gmag_1 (nr__13) ! (mag) Fitted SDSS g magnitude
real*4 rmag_2 (nr__13) ! (mag) Fitted SDSS r magnitude
real*4 imag_2 (nr__13) ! (mag) Fitted SDSS i magnitude
real*4 zmag_1 (nr__13) ! (mag) Fitted SDSS z magnitude
integer*4 Dist_9 (nr__13) ! (pc) Heliocentric distance
real*4 J2fmag_2 (nr__13) ! (mag) Fitted 2MASS J magnitude
real*4 H2fmag_2 (nr__13) ! (mag) Fitted 2MASS H magnitude
real*4 K2fmag_2 (nr__13) ! (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(i__),Type(i__),scale(i__),Ummag(i__),Bmmag(i__),
+ Vcmag(i__),Rcmag(i__),Icmag(i__),Zvmag(i__),Yvmag(i__),
+ BTmag(i__),VTmag(i__),J2mag(i__),H2mag(i__),K2mag(i__),
+ Jmkomag(i__),Hmkomag(i__),Kmkomag(i__),Emag(i__),Rpmag(i__),
+ usmag(i__),vsmag(i__),bsmag(i__),ysmag(i__),u_mag(i__),
+ g_mag(i__),r_mag(i__),i_mag(i__),z_mag(i__),umag(i__),
+ gmag(i__),rmag(i__),imag(i__),zmag(i__),VMAG(i__)
c ..............Just test output...........
write(6,1)
+ Lib(i__),Type(i__),scale(i__),Ummag(i__),Bmmag(i__),
+ Vcmag(i__),Rcmag(i__),Icmag(i__),Zvmag(i__),Yvmag(i__),
+ BTmag(i__),VTmag(i__),J2mag(i__),H2mag(i__),K2mag(i__),
+ Jmkomag(i__),Hmkomag(i__),Kmkomag(i__),Emag(i__),Rpmag(i__),
+ usmag(i__),vsmag(i__),bsmag(i__),ysmag(i__),u_mag(i__),
+ g_mag(i__),r_mag(i__),i_mag(i__),z_mag(i__),umag(i__),
+ gmag(i__),rmag(i__),imag(i__),zmag(i__),VMAG(i__)
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(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Vmag_1(i__),B_V(i__),U_B(i__),
+ V_R(i__),V_I(i__),Nobs(i__),DLType(i__),rnk(i__),chi2(i__),
+ RUI(i__),RBI(i__),Lib_1(i__),Type_1(i__),BTmag_1(i__),
+ VTmag_1(i__),J2mag_1(i__),H2mag_1(i__),K2mag_1(i__),
+ Ufmag(i__),Bfmag(i__),Vfmag(i__),Rfmag(i__),Ifmag(i__),
+ Zvmag_1(i__),Yvmag_1(i__),u_mag_1(i__),g_mag_1(i__),
+ r_mag_1(i__),i_mag_1(i__),z_mag_1(i__),Dist(i__)
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,2)
+ Seq(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Vmag_1(i__),B_V(i__),U_B(i__),
+ V_R(i__),V_I(i__),Nobs(i__),DLType(i__),rnk(i__),chi2(i__),
+ RUI(i__),RBI(i__),Lib_1(i__),Type_1(i__),BTmag_1(i__),
+ VTmag_1(i__),J2mag_1(i__),H2mag_1(i__),K2mag_1(i__),
+ Ufmag(i__),Bfmag(i__),Vfmag(i__),Rfmag(i__),Ifmag(i__),
+ Zvmag_1(i__),Yvmag_1(i__),u_mag_1(i__),g_mag_1(i__),
+ r_mag_1(i__),i_mag_1(i__),z_mag_1(i__),Dist(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
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(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),Vmag_2(i__),B_V_1(i__),
+ U_B_1(i__),V_R_1(i__),R_I(i__),V_I_1(i__),Nobs_1(i__),
+ Nnig(i__),e_Vmag(i__),e_B_V(i__),e_U_B(i__),e_V_R(i__),
+ e_V_I(i__),pmRA(i__),pmDE(i__),DLType_1(i__),J2mag_2(i__),
+ e_J2mag(i__),H2mag_2(i__),e_H2mag(i__),K2mag_2(i__),
+ e_K2mag(i__),RA2deg(i__),DE2deg(i__),d2m(i__),Zvmag_2(i__),
+ Yvmag_2(i__),Jmkomag_1(i__),Hmkomag_1(i__),Kmkomag_1(i__),
+ Rnmag(i__)
RAdeg_1(i__) = rNULL__
DEdeg_1(i__) = 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(i__) .GT. -180) RAdeg_1(i__)=RAh_1(i__)*15.
if(RAm_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAm_1(i__)/4.
if(RAs_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAs_1(i__)/240.
if(DEd_1(i__) .GE. 0) DEdeg_1(i__)=DEd_1(i__)
if(DEm_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEm_1(i__)/60.
if(DEs_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEs_1(i__)/3600.
if(DE__1(i__).EQ.'-'.AND.DEdeg_1(i__).GE.0) DEdeg_1(i__)=-DEdeg_1(i__)
c ..............Just test output...........
write(6,3)
+ Name_1(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),Vmag_2(i__),B_V_1(i__),
+ U_B_1(i__),V_R_1(i__),R_I(i__),V_I_1(i__),Nobs_1(i__),
+ Nnig(i__),e_Vmag(i__),e_B_V(i__),e_U_B(i__),e_V_R(i__),
+ e_V_I(i__),pmRA(i__),pmDE(i__),DLType_1(i__),J2mag_2(i__),
+ e_J2mag(i__),H2mag_2(i__),e_H2mag(i__),K2mag_2(i__),
+ e_K2mag(i__),RA2deg(i__),DE2deg(i__),d2m(i__),Zvmag_2(i__),
+ Yvmag_2(i__),Jmkomag_1(i__),Hmkomag_1(i__),Kmkomag_1(i__),
+ Rnmag(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_1(i__),DEdeg_1(i__)
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(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),
+ DEd_2(i__),DEm_2(i__),DEs_2(i__),r_mag_2(i__),u__g_(i__),
+ g__r_(i__),r__i_(i__),i__z_(i__),e_r_mag(i__),e_u__g_(i__),
+ e_g__r_(i__),e_r__i_(i__),e_i__z_(i__),Nu_(i__),Ng_(i__),
+ Nr_(i__),Ni_(i__),Nz_(i__),Zvmag_3(i__),Yvmag_3(i__),
+ Jmkomag_2(i__),Hmkomag_2(i__),Kmkomag_2(i__),J2mag_3(i__),
+ e_J2mag_1(i__),H2mag_3(i__),e_H2mag_1(i__),K2mag_3(i__),
+ e_K2mag_1(i__),RA2deg_1(i__),DE2deg_1(i__),d2m_1(i__)
RAdeg_2(i__) = rNULL__
DEdeg_2(i__) = 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(i__) .GT. -180) RAdeg_2(i__)=RAh_2(i__)*15.
if(RAm_2(i__) .GT. -180) RAdeg_2(i__)=RAdeg_2(i__)+RAm_2(i__)/4.
if(RAs_2(i__) .GT. -180) RAdeg_2(i__)=RAdeg_2(i__)+RAs_2(i__)/240.
if(DEd_2(i__) .GE. 0) DEdeg_2(i__)=DEd_2(i__)
if(DEm_2(i__) .GE. 0) DEdeg_2(i__)=DEdeg_2(i__)+DEm_2(i__)/60.
if(DEs_2(i__) .GE. 0) DEdeg_2(i__)=DEdeg_2(i__)+DEs_2(i__)/3600.
if(DE__2(i__).EQ.'-'.AND.DEdeg_2(i__).GE.0) DEdeg_2(i__)=-DEdeg_2(i__)
c ..............Just test output...........
write(6,4)
+ Name_2(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),
+ DEd_2(i__),DEm_2(i__),DEs_2(i__),r_mag_2(i__),u__g_(i__),
+ g__r_(i__),r__i_(i__),i__z_(i__),e_r_mag(i__),e_u__g_(i__),
+ e_g__r_(i__),e_r__i_(i__),e_i__z_(i__),Nu_(i__),Ng_(i__),
+ Nr_(i__),Ni_(i__),Nz_(i__),Zvmag_3(i__),Yvmag_3(i__),
+ Jmkomag_2(i__),Hmkomag_2(i__),Kmkomag_2(i__),J2mag_3(i__),
+ e_J2mag_1(i__),H2mag_3(i__),e_H2mag_1(i__),K2mag_3(i__),
+ e_K2mag_1(i__),RA2deg_1(i__),DE2deg_1(i__),d2m_1(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_2(i__),DEdeg_2(i__)
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(i__),Name_3(i__),RAh_3(i__),RAm_3(i__),RAs_3(i__),
+ DE__3(i__),DEd_3(i__),DEm_3(i__),DEs_3(i__),r_mag_3(i__),
+ u__g__1(i__),g__r__1(i__),r__i__1(i__),i__z__1(i__),
+ rnk_1(i__),chi2_1(i__),Ruz(i__),Rgz(i__),Lib_2(i__),
+ Type_2(i__),BTmag_2(i__),VTmag_2(i__),J2mag_4(i__),
+ H2mag_4(i__),K2mag_4(i__),Ufmag_1(i__),Bfmag_1(i__),
+ Vfmag_1(i__),Rfmag_1(i__),Ifmag_1(i__),Zvmag_4(i__),
+ Yvmag_4(i__),ufmag_2(i__),gfmag(i__),rfmag_2(i__),
+ ifmag_2(i__),zfmag(i__),Dist_1(i__)
RAdeg_3(i__) = rNULL__
DEdeg_3(i__) = 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(i__) .GT. -180) RAdeg_3(i__)=RAh_3(i__)*15.
if(RAm_3(i__) .GT. -180) RAdeg_3(i__)=RAdeg_3(i__)+RAm_3(i__)/4.
if(RAs_3(i__) .GT. -180) RAdeg_3(i__)=RAdeg_3(i__)+RAs_3(i__)/240.
if(DEd_3(i__) .GE. 0) DEdeg_3(i__)=DEd_3(i__)
if(DEm_3(i__) .GE. 0) DEdeg_3(i__)=DEdeg_3(i__)+DEm_3(i__)/60.
if(DEs_3(i__) .GE. 0) DEdeg_3(i__)=DEdeg_3(i__)+DEs_3(i__)/3600.
if(DE__3(i__).EQ.'-'.AND.DEdeg_3(i__).GE.0) DEdeg_3(i__)=-DEdeg_3(i__)
c ..............Just test output...........
write(6,5)
+ Seq_1(i__),Name_3(i__),RAh_3(i__),RAm_3(i__),RAs_3(i__),
+ DE__3(i__),DEd_3(i__),DEm_3(i__),DEs_3(i__),r_mag_3(i__),
+ u__g__1(i__),g__r__1(i__),r__i__1(i__),i__z__1(i__),
+ rnk_1(i__),chi2_1(i__),Ruz(i__),Rgz(i__),Lib_2(i__),
+ Type_2(i__),BTmag_2(i__),VTmag_2(i__),J2mag_4(i__),
+ H2mag_4(i__),K2mag_4(i__),Ufmag_1(i__),Bfmag_1(i__),
+ Vfmag_1(i__),Rfmag_1(i__),Ifmag_1(i__),Zvmag_4(i__),
+ Yvmag_4(i__),ufmag_2(i__),gfmag(i__),rfmag_2(i__),
+ ifmag_2(i__),zfmag(i__),Dist_1(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_3(i__),DEdeg_3(i__)
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(i__),RAh_4(i__),RAm_4(i__),RAs_4(i__),DE__4(i__),
+ DEd_4(i__),DEm_4(i__),DEs_4(i__),Umag_1(i__),Bmag(i__),
+ Vmag_3(i__),Rmag_1(i__),Imag_1(i__),e_Vmag_1(i__),
+ e_B_V_1(i__),e_U_B_1(i__),e_V_R_1(i__),e_V_I_1(i__),
+ u_mag_2(i__),g_mag_2(i__),r_mag_4(i__),i_mag_2(i__),
+ z_mag_2(i__),e_u_mag(i__),e_g_mag(i__),e_r_mag_1(i__),
+ e_i_mag(i__),e_z_mag(i__),Zvmag_5(i__),Yvmag_5(i__),
+ Jmkomag_3(i__),Hmkomag_3(i__),Kmkomag_3(i__),J2mag_5(i__),
+ e_J2mag_2(i__),H2mag_5(i__),e_H2mag_2(i__),K2mag_5(i__),
+ e_K2mag_2(i__),RA2deg_2(i__),DE2deg_2(i__),d2m_2(i__),
+ BTmag_3(i__),e_BTmag(i__),VTmag_3(i__),e_VTmag(i__),
+ RATdeg(i__),DETdeg(i__),dTm(i__),pmRA_1(i__),pmDE_1(i__),
+ Rnmag_1(i__)
RAdeg_4(i__) = rNULL__
DEdeg_4(i__) = 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(i__) .GT. -180) RAdeg_4(i__)=RAh_4(i__)*15.
if(RAm_4(i__) .GT. -180) RAdeg_4(i__)=RAdeg_4(i__)+RAm_4(i__)/4.
if(RAs_4(i__) .GT. -180) RAdeg_4(i__)=RAdeg_4(i__)+RAs_4(i__)/240.
if(DEd_4(i__) .GE. 0) DEdeg_4(i__)=DEd_4(i__)
if(DEm_4(i__) .GE. 0) DEdeg_4(i__)=DEdeg_4(i__)+DEm_4(i__)/60.
if(DEs_4(i__) .GE. 0) DEdeg_4(i__)=DEdeg_4(i__)+DEs_4(i__)/3600.
if(DE__4(i__).EQ.'-'.AND.DEdeg_4(i__).GE.0) DEdeg_4(i__)=-DEdeg_4(i__)
c ..............Just test output...........
write(6,6)
+ Name_4(i__),RAh_4(i__),RAm_4(i__),RAs_4(i__),DE__4(i__),
+ DEd_4(i__),DEm_4(i__),DEs_4(i__),Umag_1(i__),Bmag(i__),
+ Vmag_3(i__),Rmag_1(i__),Imag_1(i__),e_Vmag_1(i__),
+ e_B_V_1(i__),e_U_B_1(i__),e_V_R_1(i__),e_V_I_1(i__),
+ u_mag_2(i__),g_mag_2(i__),r_mag_4(i__),i_mag_2(i__),
+ z_mag_2(i__),e_u_mag(i__),e_g_mag(i__),e_r_mag_1(i__),
+ e_i_mag(i__),e_z_mag(i__),Zvmag_5(i__),Yvmag_5(i__),
+ Jmkomag_3(i__),Hmkomag_3(i__),Kmkomag_3(i__),J2mag_5(i__),
+ e_J2mag_2(i__),H2mag_5(i__),e_H2mag_2(i__),K2mag_5(i__),
+ e_K2mag_2(i__),RA2deg_2(i__),DE2deg_2(i__),d2m_2(i__),
+ BTmag_3(i__),e_BTmag(i__),VTmag_3(i__),e_VTmag(i__),
+ RATdeg(i__),DETdeg(i__),dTm(i__),pmRA_1(i__),pmDE_1(i__),
+ Rnmag_1(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_4(i__),DEdeg_4(i__)
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(i__),Name_5(i__),DLType_2(i__),rnk_2(i__),chi2_2(i__),
+ RUI_1(i__),Ruz_1(i__),RTM(i__),Lib_3(i__),Type_3(i__),
+ BTmag_4(i__),VTmag_4(i__),J2mag_6(i__),H2mag_6(i__),
+ K2mag_6(i__),Ufmag_3(i__),Bfmag_2(i__),Vfmag_2(i__),
+ Rfmag_3(i__),Ifmag_3(i__),Zvmag_6(i__),Yvmag_6(i__),
+ u_mag_3(i__),g_mag_3(i__),r_mag_5(i__),i_mag_3(i__),
+ z_mag_3(i__),Dist_2(i__)
c ..............Just test output...........
write(6,7)
+ Seq_2(i__),Name_5(i__),DLType_2(i__),rnk_2(i__),chi2_2(i__),
+ RUI_1(i__),Ruz_1(i__),RTM(i__),Lib_3(i__),Type_3(i__),
+ BTmag_4(i__),VTmag_4(i__),J2mag_6(i__),H2mag_6(i__),
+ K2mag_6(i__),Ufmag_3(i__),Bfmag_2(i__),Vfmag_2(i__),
+ Rfmag_3(i__),Ifmag_3(i__),Zvmag_6(i__),Yvmag_6(i__),
+ u_mag_3(i__),g_mag_3(i__),r_mag_5(i__),i_mag_3(i__),
+ z_mag_3(i__),Dist_2(i__)
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(i__),Name_6(i__),DLType_3(i__),rnk_3(i__),chi2_3(i__),
+ RUI_2(i__),Ruz_2(i__),RTM_1(i__),Lib_4(i__),Type_4(i__),
+ BTmag_5(i__),VTmag_5(i__),J2mag_7(i__),H2mag_7(i__),
+ K2mag_7(i__),Ufmag_4(i__),Bfmag_3(i__),Vfmag_3(i__),
+ Rfmag_4(i__),Ifmag_4(i__),Zvmag_7(i__),Yvmag_7(i__),
+ u_mag_4(i__),g_mag_4(i__),r_mag_6(i__),i_mag_4(i__),
+ z_mag_4(i__),Dist_3(i__)
c ..............Just test output...........
write(6,8)
+ Seq_3(i__),Name_6(i__),DLType_3(i__),rnk_3(i__),chi2_3(i__),
+ RUI_2(i__),Ruz_2(i__),RTM_1(i__),Lib_4(i__),Type_4(i__),
+ BTmag_5(i__),VTmag_5(i__),J2mag_7(i__),H2mag_7(i__),
+ K2mag_7(i__),Ufmag_4(i__),Bfmag_3(i__),Vfmag_3(i__),
+ Rfmag_4(i__),Ifmag_4(i__),Zvmag_7(i__),Yvmag_7(i__),
+ u_mag_4(i__),g_mag_4(i__),r_mag_6(i__),i_mag_4(i__),
+ z_mag_4(i__),Dist_3(i__)
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(i__),Name_7(i__),DLType_4(i__),rnk_4(i__),chi2_4(i__),
+ RUI_3(i__),Ruz_3(i__),RTM_2(i__),Lib_5(i__),Type_5(i__),
+ BTmag_6(i__),VTmag_6(i__),J2mag_8(i__),H2mag_8(i__),
+ K2mag_8(i__),Ufmag_5(i__),Bfmag_4(i__),Vfmag_4(i__),
+ Rfmag_5(i__),Ifmag_5(i__),Zvmag_8(i__),Yvmag_8(i__),
+ u_mag_5(i__),g_mag_5(i__),r_mag_7(i__),i_mag_5(i__),
+ z_mag_5(i__),Dist_4(i__)
c ..............Just test output...........
write(6,9)
+ Seq_4(i__),Name_7(i__),DLType_4(i__),rnk_4(i__),chi2_4(i__),
+ RUI_3(i__),Ruz_3(i__),RTM_2(i__),Lib_5(i__),Type_5(i__),
+ BTmag_6(i__),VTmag_6(i__),J2mag_8(i__),H2mag_8(i__),
+ K2mag_8(i__),Ufmag_5(i__),Bfmag_4(i__),Vfmag_4(i__),
+ Rfmag_5(i__),Ifmag_5(i__),Zvmag_8(i__),Yvmag_8(i__),
+ u_mag_5(i__),g_mag_5(i__),r_mag_7(i__),i_mag_5(i__),
+ z_mag_5(i__),Dist_4(i__)
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(i__),Name_8(i__),DLType_5(i__),rnk_5(i__),chi2_5(i__),
+ RUI_4(i__),Ruz_4(i__),RTM_3(i__),Lib_6(i__),Type_6(i__),
+ BTmag_7(i__),VTmag_7(i__),J2mag_9(i__),H2mag_9(i__),
+ K2mag_9(i__),Ufmag_6(i__),Bfmag_5(i__),Vfmag_5(i__),
+ Rfmag_6(i__),Ifmag_6(i__),Zvmag_9(i__),Yvmag_9(i__),
+ u_mag_6(i__),g_mag_6(i__),r_mag_8(i__),i_mag_6(i__),
+ z_mag_6(i__),Dist_5(i__)
c ..............Just test output...........
write(6,10)
+ Seq_5(i__),Name_8(i__),DLType_5(i__),rnk_5(i__),chi2_5(i__),
+ RUI_4(i__),Ruz_4(i__),RTM_3(i__),Lib_6(i__),Type_6(i__),
+ BTmag_7(i__),VTmag_7(i__),J2mag_9(i__),H2mag_9(i__),
+ K2mag_9(i__),Ufmag_6(i__),Bfmag_5(i__),Vfmag_5(i__),
+ Rfmag_6(i__),Ifmag_6(i__),Zvmag_9(i__),Yvmag_9(i__),
+ u_mag_6(i__),g_mag_6(i__),r_mag_8(i__),i_mag_6(i__),
+ z_mag_6(i__),Dist_5(i__)
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(i__),DEdeg_5(i__),g_mag_7(i__),r_mag_9(i__),
+ i_mag_7(i__),z_mag_7(i__),e_g_mag_1(i__),e_r_mag_2(i__),
+ e_i_mag_1(i__),e_z_mag_1(i__),Nobs_2(i__),J2mag_10(i__),
+ e_J2mag_3(i__),H2mag_10(i__),e_H2mag_3(i__),K2mag_10(i__),
+ e_K2mag_3(i__),Qual(i__),rnk_6(i__),chi2_6(i__),Rgz_1(i__),
+ R2M(i__),Lib_7(i__),Type_7(i__),Ufmag_7(i__),Bfmag_6(i__),
+ Vfmag_6(i__),Rfmag_7(i__),Ifmag_7(i__),Zvmag_10(i__),
+ Yvmag_10(i__),ufmag_8(i__),gfmag_1(i__),rfmag_8(i__),
+ ifmag_8(i__),zfmag_1(i__),Dist_6(i__),J2fmag(i__),H2fmag(i__),
+ K2fmag(i__)
c ..............Just test output...........
write(6,11)
+ RAdeg_5(i__),DEdeg_5(i__),g_mag_7(i__),r_mag_9(i__),
+ i_mag_7(i__),z_mag_7(i__),e_g_mag_1(i__),e_r_mag_2(i__),
+ e_i_mag_1(i__),e_z_mag_1(i__),Nobs_2(i__),J2mag_10(i__),
+ e_J2mag_3(i__),H2mag_10(i__),e_H2mag_3(i__),K2mag_10(i__),
+ e_K2mag_3(i__),Qual(i__),rnk_6(i__),chi2_6(i__),Rgz_1(i__),
+ R2M(i__),Lib_7(i__),Type_7(i__),Ufmag_7(i__),Bfmag_6(i__),
+ Vfmag_6(i__),Rfmag_7(i__),Ifmag_7(i__),Zvmag_10(i__),
+ Yvmag_10(i__),ufmag_8(i__),gfmag_1(i__),rfmag_8(i__),
+ ifmag_8(i__),zfmag_1(i__),Dist_6(i__),J2fmag(i__),H2fmag(i__),
+ K2fmag(i__)
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(i__),RAdeg_6(i__),DEdeg_6(i__),u_mag_7(i__),
+ g_mag_8(i__),r_mag_10(i__),i_mag_8(i__),z_mag_8(i__),
+ e_u_mag_1(i__),e_g_mag_2(i__),e_r_mag_3(i__),e_i_mag_2(i__),
+ e_z_mag_2(i__),J2mag_11(i__),e_J2mag_4(i__),H2mag_11(i__),
+ e_H2mag_4(i__),K2mag_11(i__),e_K2mag_4(i__),Qual_1(i__),
+ rnk_7(i__),chi2_7(i__),Rgz_2(i__),Lib_8(i__),Type_8(i__),
+ Ufmag_9(i__),Bfmag_7(i__),Vfmag_7(i__),Rfmag_9(i__),
+ Ifmag_9(i__),Zvmag_11(i__),Yvmag_11(i__),ufmag_10(i__),
+ gfmag_2(i__),rfmag_10(i__),ifmag_10(i__),zfmag_2(i__),
+ Dist_7(i__)
c ..............Just test output...........
write(6,12)
+ Name_9(i__),RAdeg_6(i__),DEdeg_6(i__),u_mag_7(i__),
+ g_mag_8(i__),r_mag_10(i__),i_mag_8(i__),z_mag_8(i__),
+ e_u_mag_1(i__),e_g_mag_2(i__),e_r_mag_3(i__),e_i_mag_2(i__),
+ e_z_mag_2(i__),J2mag_11(i__),e_J2mag_4(i__),H2mag_11(i__),
+ e_H2mag_4(i__),K2mag_11(i__),e_K2mag_4(i__),Qual_1(i__),
+ rnk_7(i__),chi2_7(i__),Rgz_2(i__),Lib_8(i__),Type_8(i__),
+ Ufmag_9(i__),Bfmag_7(i__),Vfmag_7(i__),Rfmag_9(i__),
+ Ifmag_9(i__),Zvmag_11(i__),Yvmag_11(i__),ufmag_10(i__),
+ gfmag_2(i__),rfmag_10(i__),ifmag_10(i__),zfmag_2(i__),
+ Dist_7(i__)
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(i__),DEdeg_7(i__),pmRA_2(i__),pmDE_2(i__),
+ BTmag_8(i__),e_BTmag_1(i__),VTmag_8(i__),e_VTmag_1(i__),
+ Rnmag_2(i__),J2mag_12(i__),e_J2mag_5(i__),H2mag_12(i__),
+ e_H2mag_5(i__),K2mag_12(i__),e_K2mag_5(i__),Qual_2(i__),
+ rnk_8(i__),chi2_8(i__),RTM_4(i__),Lib_9(i__),Type_9(i__),
+ BTfmag(i__),VTfmag(i__),Ufmag_11(i__),Bfmag_8(i__),
+ Vfmag_8(i__),Rfmag_11(i__),Ifmag_11(i__),Zvmag_12(i__),
+ Yvmag_12(i__),ufmag_12(i__),gfmag_3(i__),rfmag_12(i__),
+ ifmag_12(i__),zfmag_3(i__),Dist_8(i__),J2fmag_1(i__),
+ H2fmag_1(i__),K2fmag_1(i__)
c ..............Just test output...........
write(6,13)
+ RAdeg_7(i__),DEdeg_7(i__),pmRA_2(i__),pmDE_2(i__),
+ BTmag_8(i__),e_BTmag_1(i__),VTmag_8(i__),e_VTmag_1(i__),
+ Rnmag_2(i__),J2mag_12(i__),e_J2mag_5(i__),H2mag_12(i__),
+ e_H2mag_5(i__),K2mag_12(i__),e_K2mag_5(i__),Qual_2(i__),
+ rnk_8(i__),chi2_8(i__),RTM_4(i__),Lib_9(i__),Type_9(i__),
+ BTfmag(i__),VTfmag(i__),Ufmag_11(i__),Bfmag_8(i__),
+ Vfmag_8(i__),Rfmag_11(i__),Ifmag_11(i__),Zvmag_12(i__),
+ Yvmag_12(i__),ufmag_12(i__),gfmag_3(i__),rfmag_12(i__),
+ ifmag_12(i__),zfmag_3(i__),Dist_8(i__),J2fmag_1(i__),
+ H2fmag_1(i__),K2fmag_1(i__)
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(i__),DEdeg_8(i__),psfu(i__),psfg(i__),psfr(i__),
+ psfi(i__),psfz(i__),e_psfu(i__),e_psfg(i__),e_psfr(i__),
+ e_psfi(i__),e_psfz(i__),J2mag_13(i__),e_J2mag_6(i__),
+ H2mag_13(i__),e_H2mag_6(i__),K2mag_13(i__),e_K2mag_6(i__),
+ Qual_3(i__),rnk_9(i__),chi2_9(i__),Ruz_5(i__),Rgz_3(i__),
+ R2M_1(i__),Lib_10(i__),Type_10(i__),Ufmag_13(i__),
+ Bfmag_9(i__),Vfmag_9(i__),Rfmag_13(i__),Ifmag_13(i__),
+ Zvmag_13(i__),Yvmag_13(i__),ufmag_14(i__),gfmag_4(i__),
+ rfmag_14(i__),ifmag_14(i__),zfmag_4(i__),umag_2(i__),
+ gmag_1(i__),rmag_2(i__),imag_2(i__),zmag_1(i__),Dist_9(i__),
+ J2fmag_2(i__),H2fmag_2(i__),K2fmag_2(i__)
c ..............Just test output...........
write(6,14)
+ RAdeg_8(i__),DEdeg_8(i__),psfu(i__),psfg(i__),psfr(i__),
+ psfi(i__),psfz(i__),e_psfu(i__),e_psfg(i__),e_psfr(i__),
+ e_psfi(i__),e_psfz(i__),J2mag_13(i__),e_J2mag_6(i__),
+ H2mag_13(i__),e_H2mag_6(i__),K2mag_13(i__),e_K2mag_6(i__),
+ Qual_3(i__),rnk_9(i__),chi2_9(i__),Ruz_5(i__),Rgz_3(i__),
+ R2M_1(i__),Lib_10(i__),Type_10(i__),Ufmag_13(i__),
+ Bfmag_9(i__),Vfmag_9(i__),Rfmag_13(i__),Ifmag_13(i__),
+ Zvmag_13(i__),Yvmag_13(i__),ufmag_14(i__),gfmag_4(i__),
+ rfmag_14(i__),ifmag_14(i__),zfmag_4(i__),umag_2(i__),
+ gmag_1(i__),rmag_2(i__),imag_2(i__),zmag_1(i__),Dist_9(i__),
+ J2fmag_2(i__),H2fmag_2(i__),K2fmag_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end