Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/506/999 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-18 C============================================================================= * This code was generated from the ReadMe file documenting a catalogue * according to the "Standard for Documentation of Astronomical Catalogues" * currently in use by the Astronomical Data Centers (CDS, ADC, A&A) * (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx) * Please report problems or questions to C============================================================================= implicit none * Unspecified or NULL values, generally corresponding to blank columns, * are assigned one of the following special values: * rNULL__ for unknown or NULL floating-point values * iNULL__ for unknown or NULL integer values real*4 rNULL__ integer*4 iNULL__ parameter (rNULL__=--2147483648.) ! NULL real number parameter (iNULL__=(-2147483647-1)) ! NULL int number integer idig ! testing NULL number C============================================================================= Cat. J/A+A/506/999 Photometric Calibration of SNLS (Regnault+, 2009) *================================================================================ *Photometric Calibration of the SuperNova Legacy Survey Fields. * Regnault N., Conley A., Guy J., Sullivan M., Cuillandre J.-C., Astier P., * Balland C., Basa S., Carlberg R.G., Fouchez D., Hardin D., Hook I.M., * Howell D.A., Pain R., Perrett K., Pritchet C.J. * <Astron. Astrophys. 506, 999 (2009)> * =2009A&A...506..999R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table19.dat' ! Tertiary rgiz catalog for the SNLS field D1 integer*4 nr__ parameter (nr__=2546) ! Number of records character*153 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination, in decimal degrees (J2000) real*4 gmag ! (mag) ?=-1 g-band magnitude (Vega-like system) real*4 e_gmag ! (mag) ?=-1 Uncertainty on the g-band magnitude integer*4 o_gmag ! [1,40]?=-1 Number of observations real*4 dkg ! ?=-1 Grid g-band dk color term for this object real*4 rmag ! (mag) ?=-1 r-band magnitude(Vega-like system) real*4 e_rmag ! (mag) ?=-1 Uncertainty on the r-band magnitude integer*4 o_rmag ! [1,40]?=-1 Number of observations real*4 dkr ! ?=-1 Grid r-band dk color term for this object real*4 imag ! (mag) ?=-1 i-band magnitude(Vega-like system) real*4 e_imag ! (mag) ?=-1 Uncertainty on the i-band magnitude integer*4 o_imag ! [1,40]?=-1 Number of observations real*4 dki ! ?=-1 Grid i-band dk color term for this object real*4 zmag ! (mag) ?=-1 z-band magnitude(Vega-like system) real*4 e_zmag ! (mag) ?=-1 Uncertainty on the z-band magnitude integer*4 o_zmag ! [1,40]?=-1 Number of observations real*4 dkz ! ?=-1 Grid z-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table20.dat' ! Tertiary rgiz catalog for the SNLS field D2 integer*4 nr__1 parameter (nr__1=3878) ! Number of records character*153 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_1 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_1 ! (deg) Declination, in decimal degrees (J2000) real*4 gmag_1 ! (mag) ?=-1 g-band magnitude (Vega-like system) real*4 e_gmag_1 ! (mag) ?=-1 Uncertainty on the g-band magnitude integer*4 o_gmag_1 ! [1,40]?=-1 Number of observations real*4 dkg_1 ! ?=-1 Grid g-band dk color term for this object real*4 rmag_1 ! (mag) ?=-1 r-band magnitude(Vega-like system) real*4 e_rmag_1 ! (mag) ?=-1 Uncertainty on the r-band magnitude integer*4 o_rmag_1 ! [1,40]?=-1 Number of observations real*4 dkr_1 ! ?=-1 Grid r-band dk color term for this object real*4 imag_1 ! (mag) ?=-1 i-band magnitude(Vega-like system) real*4 e_imag_1 ! (mag) ?=-1 Uncertainty on the i-band magnitude integer*4 o_imag_1 ! [1,40]?=-1 Number of observations real*4 dki_1 ! ?=-1 Grid i-band dk color term for this object real*4 zmag_1 ! (mag) ?=-1 z-band magnitude(Vega-like system) real*4 e_zmag_1 ! (mag) ?=-1 Uncertainty on the z-band magnitude integer*4 o_zmag_1 ! [1,40]?=-1 Number of observations real*4 dkz_1 ! ?=-1 Grid z-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table21.dat' ! Tertiary rgiz catalog for the SNLS field D3 integer*4 nr__2 parameter (nr__2=2827) ! Number of records character*153 ar__2 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_2 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_2 ! (deg) Declination, in decimal degrees (J2000) real*4 gmag_2 ! (mag) ?=-1 g-band magnitude (Vega-like system) real*4 e_gmag_2 ! (mag) ?=-1 Uncertainty on the g-band magnitude integer*4 o_gmag_2 ! [1,40]?=-1 Number of observations real*4 dkg_2 ! ?=-1 Grid g-band dk color term for this object real*4 rmag_2 ! (mag) ?=-1 r-band magnitude(Vega-like system) real*4 e_rmag_2 ! (mag) ?=-1 Uncertainty on the r-band magnitude integer*4 o_rmag_2 ! [1,40]?=-1 Number of observations real*4 dkr_2 ! ?=-1 Grid r-band dk color term for this object real*4 imag_2 ! (mag) ?=-1 i-band magnitude(Vega-like system) real*4 e_imag_2 ! (mag) ?=-1 Uncertainty on the i-band magnitude integer*4 o_imag_2 ! [1,40]?=-1 Number of observations real*4 dki_2 ! ?=-1 Grid i-band dk color term for this object real*4 zmag_2 ! (mag) ?=-1 z-band magnitude(Vega-like system) real*4 e_zmag_2 ! (mag) ?=-1 Uncertainty on the z-band magnitude integer*4 o_zmag_2 ! [1,40]?=-1 Number of observations real*4 dkz_2 ! ?=-1 Grid z-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table22.dat' ! Tertiary rgiz catalog for the SNLS field D4 integer*4 nr__3 parameter (nr__3=5294) ! Number of records character*153 ar__3 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_3 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_3 ! (deg) Declination, in decimal degrees (J2000) real*4 gmag_3 ! (mag) ?=-1 g-band magnitude (Vega-like system) real*4 e_gmag_3 ! (mag) ?=-1 Uncertainty on the g-band magnitude integer*4 o_gmag_3 ! [1,40]?=-1 Number of observations real*4 dkg_3 ! ?=-1 Grid g-band dk color term for this object real*4 rmag_3 ! (mag) ?=-1 r-band magnitude(Vega-like system) real*4 e_rmag_3 ! (mag) ?=-1 Uncertainty on the r-band magnitude integer*4 o_rmag_3 ! [1,40]?=-1 Number of observations real*4 dkr_3 ! ?=-1 Grid r-band dk color term for this object real*4 imag_3 ! (mag) ?=-1 i-band magnitude(Vega-like system) real*4 e_imag_3 ! (mag) ?=-1 Uncertainty on the i-band magnitude integer*4 o_imag_3 ! [1,40]?=-1 Number of observations real*4 dki_3 ! ?=-1 Grid i-band dk color term for this object real*4 zmag_3 ! (mag) ?=-1 z-band magnitude(Vega-like system) real*4 e_zmag_3 ! (mag) ?=-1 Uncertainty on the z-band magnitude integer*4 o_zmag_3 ! [1,40]?=-1 Number of observations real*4 dkz_3 ! ?=-1 Grid z-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'd1u.dat' ! D1 tertiary stars u-band magnitudes integer*4 nr__4 parameter (nr__4=1394) ! Number of records character*54 ar__4 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_4 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_4 ! (deg) Declination, in decimal degrees (J2000) real*4 umag ! (mag) u-band magnitude real*4 e_umag ! (mag) uncertainty on the u-band magnitude integer*4 o_umag ! number of observations real*4 dku ! grid u-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'd2u.dat' ! D2 tertiary stars u-band magnitudes integer*4 nr__5 parameter (nr__5=2349) ! Number of records character*54 ar__5 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_5 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_5 ! (deg) Declination, in decimal degrees (J2000) real*4 umag_1 ! (mag) u-band magnitude real*4 e_umag_1 ! (mag) uncertainty on the u-band magnitude integer*4 o_umag_1 ! number of observations real*4 dku_1 ! grid u-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'd3u.dat' ! D3 tertiary stars u-band magnitudes integer*4 nr__6 parameter (nr__6=714) ! Number of records character*54 ar__6 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_6 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_6 ! (deg) Declination, in decimal degrees (J2000) real*4 umag_2 ! (mag) u-band magnitude real*4 e_umag_2 ! (mag) uncertainty on the u-band magnitude integer*4 o_umag_2 ! number of observations real*4 dku_2 ! grid u-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'd4u.dat' ! D4 tertiary stars u-band magnitudes integer*4 nr__7 parameter (nr__7=3051) ! Number of records character*54 ar__7 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_7 ! (deg) Right ascension, in decimal degrees (J2000) real*8 DEdeg_7 ! (deg) Declination, in decimal degrees (J2000) real*4 umag_3 ! (mag) u-band magnitude real*4 e_umag_3 ! (mag) uncertainty on the u-band magnitude integer*4 o_umag_3 ! number of observations real*4 dku_3 ! grid u-band dk color term for this object c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tabled1.dat' ! Full covariance matrix of the BD+17 4708 MegaCam and Landolt magnitude uncertainties integer*4 nr__8 parameter (nr__8=9) ! Number of records character*123 ar__8 ! Full-size record real*4 C1 ! Covariance matrix coefficient ({Delta}g) real*4 C2 ! Covariance matrix coefficient ({Delta}r) real*4 C3 ! Covariance matrix coefficient ({Delta}i) real*4 C4 ! Covariance matrix coefficient ({Delta}z) real*4 C5 ! Covariance matrix coefficient (U_ref_) real*4 C6 ! Covariance matrix coefficient (B_ref_) real*4 C7 ! Covariance matrix coefficient (V_ref_) real*4 C8 ! Covariance matrix coefficient (R_ref_) real*4 C9 ! Covariance matrix coefficient (I_ref_) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tabled2.dat' ! Covariance matrix of the uncertainties affecting (1) the differences between the tertiary MegaCam magnitudes and the MegaCam magnitudes of BD+17 4708 and (2) the Landolt magnitudes of BD+17 4708 integer*4 nr__9 parameter (nr__9=9) ! Number of records character*123 ar__9 ! Full-size record real*4 C1_1 ! Covariance matrix coefficient ({Delta}g) real*4 C2_1 ! Covariance matrix coefficient ({Delta}r) real*4 C3_1 ! Covariance matrix coefficient ({Delta}i) real*4 C4_1 ! Covariance matrix coefficient ({Delta}z) real*4 C5_1 ! Covariance matrix coefficient (U_ref_) real*4 C6_1 ! Covariance matrix coefficient (B_ref_) real*4 C7_1 ! Covariance matrix coefficient (V_ref_) real*4 C8_1 ! Covariance matrix coefficient (R_ref_) real*4 C9_1 ! Covariance matrix coefficient (I_ref_) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tabled3.dat' ! Covariance matrix of the uncertainties affecting the synthetic instrumental magnitudes of BD+17 4708 integer*4 nr__10 parameter (nr__10=9) ! Number of records character*123 ar__10 ! Full-size record real*4 C1_2 ! Covariance matrix coefficient ({Delta}g) real*4 C2_2 ! Covariance matrix coefficient ({Delta}r) real*4 C3_2 ! Covariance matrix coefficient ({Delta}i) real*4 C4_2 ! Covariance matrix coefficient ({Delta}z) real*4 C5_2 ! Covariance matrix coefficient (U_ref_) real*4 C6_2 ! Covariance matrix coefficient (B_ref_) real*4 C7_2 ! Covariance matrix coefficient (V_ref_) real*4 C8_2 ! Covariance matrix coefficient (R_ref_) real*4 C9_2 ! Covariance matrix coefficient (I_ref_) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table13.dat' ! Open transmission of the MegaCam imager (no filters) integer*4 nr__11 parameter (nr__11=7190) ! Number of records character*15 ar__11 ! Full-size record real*8 WL ! (0.1nm) Wavelength real*8 OT ! [0,1] Open Transmission (no filters) (1) *Note (1): product of (a) the transmission of the optical system, including * the camera window, (b) the mirror reflectivity (c) the average * transmission of the atmosphere above Mauna Kea and (c) the average * quantum efficiency of the MegaCam CCDs. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table14.dat' ! u_M filter scan (Sagem/REOSC) integer*4 nr__12 parameter (nr__12=1545) ! Number of records character*95 ar__12 ! Full-size record integer*4 WL_1 ! (0.1nm) Wavelength real*4 T000 ! [0,1] Transmission at the center of the filter real*4 T023 ! [0,1] Transmission at 23mm from the center real*4 T047 ! [0,1] Transmission at 47mm from the center real*4 T070 ! [0,1] Transmission at 70mm from the center real*4 T093 ! [0,1] Transmission at 93mm from the center real*4 T117 ! [0,1] Transmission at 117mm from the center real*4 T140 ! [0,1] Transmission at 140mm from the center real*4 T163 ! [0,1] Transmission at 163mm from the center real*4 T186 ! [0,1] Transmission at 186mm from the center real*4 T210 ! [0,1] Transmission at 210mm from the center c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table15.dat' ! g_M filter scan (Sagem/REOSC) integer*4 nr__13 parameter (nr__13=371) ! Number of records character*95 ar__13 ! Full-size record integer*4 WL_2 ! (0.1nm) Wavelength real*4 T000_1 ! [0,1] Transmission at the center of the filter real*4 T023_1 ! [0,1] Transmission at 23mm from the center real*4 T047_1 ! [0,1] Transmission at 47mm from the center real*4 T070_1 ! [0,1] Transmission at 70mm from the center real*4 T093_1 ! [0,1] Transmission at 93mm from the center real*4 T117_1 ! [0,1] Transmission at 117mm from the center real*4 T140_1 ! [0,1] Transmission at 140mm from the center real*4 T163_1 ! [0,1] Transmission at 163mm from the center real*4 T186_1 ! [0,1] Transmission at 186mm from the center real*4 T210_1 ! [0,1] Transmission at 210mm from the center c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table16.dat' ! r_M filter scan (Sagem/REOSC) integer*4 nr__14 parameter (nr__14=357) ! Number of records character*95 ar__14 ! Full-size record integer*4 WL_3 ! (0.1nm) Wavelength real*4 T000_2 ! [0,1] Transmission at the center of the filter real*4 T023_2 ! [0,1] Transmission at 23mm from the center real*4 T047_2 ! [0,1] Transmission at 47mm from the center real*4 T070_2 ! [0,1] Transmission at 70mm from the center real*4 T093_2 ! [0,1] Transmission at 93mm from the center real*4 T117_2 ! [0,1] Transmission at 117mm from the center real*4 T140_2 ! [0,1] Transmission at 140mm from the center real*4 T163_2 ! [0,1] Transmission at 163mm from the center real*4 T186_2 ! [0,1] Transmission at 186mm from the center real*4 T210_2 ! [0,1] Transmission at 210mm from the center c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table17.dat' ! i_M filter scan (Sagem/REOSC) integer*4 nr__15 parameter (nr__15=446) ! Number of records character*95 ar__15 ! Full-size record integer*4 WL_4 ! (0.1nm) Wavelength real*4 T000_3 ! [0,1] Transmission at the center of the filter real*4 T023_3 ! [0,1] Transmission at 23mm from the center real*4 T047_3 ! [0,1] Transmission at 47mm from the center real*4 T070_3 ! [0,1] Transmission at 70mm from the center real*4 T093_3 ! [0,1] Transmission at 93mm from the center real*4 T117_3 ! [0,1] Transmission at 117mm from the center real*4 T140_3 ! [0,1] Transmission at 140mm from the center real*4 T163_3 ! [0,1] Transmission at 163mm from the center real*4 T186_3 ! [0,1] Transmission at 186mm from the center real*4 T210_3 ! [0,1] Transmission at 210mm from the center c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table18.dat' ! z_M filter scan (Sagem/REOSC) integer*4 nr__16 parameter (nr__16=632) ! Number of records character*95 ar__16 ! Full-size record integer*4 WL_5 ! (0.1nm) Wavelength real*4 T000_4 ! [0,1] Transmission at the center of the filter real*4 T023_4 ! [0,1] Transmission at 23mm from the center real*4 T047_4 ! [0,1] Transmission at 47mm from the center real*4 T070_4 ! [0,1] Transmission at 70mm from the center real*4 T093_4 ! [0,1] Transmission at 93mm from the center real*4 T117_4 ! [0,1] Transmission at 117mm from the center real*4 T140_4 ! [0,1] Transmission at 140mm from the center real*4 T163_4 ! [0,1] Transmission at 163mm from the center real*4 T186_4 ! [0,1] Transmission at 186mm from the center real*4 T210_4 ! [0,1] Transmission at 210mm from the center C============================================================================= C Loading file 'table19.dat' ! Tertiary rgiz catalog for the SNLS field D1 C Format for file interpretation 1 format( + F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table19.dat') write(6,*) '....Loading file: table19.dat' do i__=1,2546 read(1,'(A153)')ar__ read(ar__,1) + RAdeg,DEdeg,gmag,e_gmag,o_gmag,dkg,rmag,e_rmag,o_rmag,dkr, + imag,e_imag,o_imag,dki,zmag,e_zmag,o_zmag,dkz c ..............Just test output........... write(6,1) + RAdeg,DEdeg,gmag,e_gmag,o_gmag,dkg,rmag,e_rmag,o_rmag,dkr, + imag,e_imag,o_imag,dki,zmag,e_zmag,o_zmag,dkz c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table20.dat' ! Tertiary rgiz catalog for the SNLS field D2 C Format for file interpretation 2 format( + F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table20.dat') write(6,*) '....Loading file: table20.dat' do i__=1,3878 read(1,'(A153)')ar__1 read(ar__1,2) + RAdeg_1,DEdeg_1,gmag_1,e_gmag_1,o_gmag_1,dkg_1,rmag_1, + e_rmag_1,o_rmag_1,dkr_1,imag_1,e_imag_1,o_imag_1,dki_1,zmag_1, + e_zmag_1,o_zmag_1,dkz_1 c ..............Just test output........... write(6,2) + RAdeg_1,DEdeg_1,gmag_1,e_gmag_1,o_gmag_1,dkg_1,rmag_1, + e_rmag_1,o_rmag_1,dkr_1,imag_1,e_imag_1,o_imag_1,dki_1,zmag_1, + e_zmag_1,o_zmag_1,dkz_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table21.dat' ! Tertiary rgiz catalog for the SNLS field D3 C Format for file interpretation 3 format( + F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table21.dat') write(6,*) '....Loading file: table21.dat' do i__=1,2827 read(1,'(A153)')ar__2 read(ar__2,3) + RAdeg_2,DEdeg_2,gmag_2,e_gmag_2,o_gmag_2,dkg_2,rmag_2, + e_rmag_2,o_rmag_2,dkr_2,imag_2,e_imag_2,o_imag_2,dki_2,zmag_2, + e_zmag_2,o_zmag_2,dkz_2 c ..............Just test output........... write(6,3) + RAdeg_2,DEdeg_2,gmag_2,e_gmag_2,o_gmag_2,dkg_2,rmag_2, + e_rmag_2,o_rmag_2,dkr_2,imag_2,e_imag_2,o_imag_2,dki_2,zmag_2, + e_zmag_2,o_zmag_2,dkz_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table22.dat' ! Tertiary rgiz catalog for the SNLS field D4 C Format for file interpretation 4 format( + F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3,3X,F6.3,3X,F6.3,3X, + I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table22.dat') write(6,*) '....Loading file: table22.dat' do i__=1,5294 read(1,'(A153)')ar__3 read(ar__3,4) + RAdeg_3,DEdeg_3,gmag_3,e_gmag_3,o_gmag_3,dkg_3,rmag_3, + e_rmag_3,o_rmag_3,dkr_3,imag_3,e_imag_3,o_imag_3,dki_3,zmag_3, + e_zmag_3,o_zmag_3,dkz_3 c ..............Just test output........... write(6,4) + RAdeg_3,DEdeg_3,gmag_3,e_gmag_3,o_gmag_3,dkg_3,rmag_3, + e_rmag_3,o_rmag_3,dkr_3,imag_3,e_imag_3,o_imag_3,dki_3,zmag_3, + e_zmag_3,o_zmag_3,dkz_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'd1u.dat' ! D1 tertiary stars u-band magnitudes C Format for file interpretation 5 format(F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'d1u.dat') write(6,*) '....Loading file: d1u.dat' do i__=1,1394 read(1,'(A54)')ar__4 read(ar__4,5)RAdeg_4,DEdeg_4,umag,e_umag,o_umag,dku c ..............Just test output........... write(6,5)RAdeg_4,DEdeg_4,umag,e_umag,o_umag,dku c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'd2u.dat' ! D2 tertiary stars u-band magnitudes C Format for file interpretation 6 format(F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'d2u.dat') write(6,*) '....Loading file: d2u.dat' do i__=1,2349 read(1,'(A54)')ar__5 read(ar__5,6)RAdeg_5,DEdeg_5,umag_1,e_umag_1,o_umag_1,dku_1 c ..............Just test output........... write(6,6)RAdeg_5,DEdeg_5,umag_1,e_umag_1,o_umag_1,dku_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'd3u.dat' ! D3 tertiary stars u-band magnitudes C Format for file interpretation 7 format(F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'d3u.dat') write(6,*) '....Loading file: d3u.dat' do i__=1,714 read(1,'(A54)')ar__6 read(ar__6,7)RAdeg_6,DEdeg_6,umag_2,e_umag_2,o_umag_2,dku_2 c ..............Just test output........... write(6,7)RAdeg_6,DEdeg_6,umag_2,e_umag_2,o_umag_2,dku_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'd4u.dat' ! D4 tertiary stars u-band magnitudes C Format for file interpretation 8 format(F9.5,3X,F9.5,3X,F6.3,3X,F6.3,3X,I3,3X,F6.3) C Effective file loading open(unit=1,status='old',file= +'d4u.dat') write(6,*) '....Loading file: d4u.dat' do i__=1,3051 read(1,'(A54)')ar__7 read(ar__7,8)RAdeg_7,DEdeg_7,umag_3,e_umag_3,o_umag_3,dku_3 c ..............Just test output........... write(6,8)RAdeg_7,DEdeg_7,umag_3,e_umag_3,o_umag_3,dku_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tabled1.dat' ! Full covariance matrix of the BD+17 4708 MegaCam * and Landolt magnitude uncertainties C Format for file interpretation 9 format( + E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5, + 3X,E11.5,3X,E11.5) C Effective file loading open(unit=1,status='old',file= +'tabled1.dat') write(6,*) '....Loading file: tabled1.dat' do i__=1,9 read(1,'(A123)')ar__8 read(ar__8,9)C1,C2,C3,C4,C5,C6,C7,C8,C9 c ..............Just test output........... write(6,9)C1,C2,C3,C4,C5,C6,C7,C8,C9 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tabled2.dat' ! Covariance matrix of the uncertainties affecting (1) * the differences between the tertiary MegaCam * magnitudes and the MegaCam magnitudes of BD+17 4708 * and (2) the Landolt magnitudes of BD+17 4708 C Format for file interpretation 10 format( + E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5, + 3X,E11.5,3X,E11.5) C Effective file loading open(unit=1,status='old',file= +'tabled2.dat') write(6,*) '....Loading file: tabled2.dat' do i__=1,9 read(1,'(A123)')ar__9 read(ar__9,10)C1_1,C2_1,C3_1,C4_1,C5_1,C6_1,C7_1,C8_1,C9_1 c ..............Just test output........... write(6,10)C1_1,C2_1,C3_1,C4_1,C5_1,C6_1,C7_1,C8_1,C9_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tabled3.dat' ! Covariance matrix of the uncertainties affecting the * synthetic instrumental magnitudes of BD+17 4708 C Format for file interpretation 11 format( + E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5,3X,E11.5, + 3X,E11.5,3X,E11.5) C Effective file loading open(unit=1,status='old',file= +'tabled3.dat') write(6,*) '....Loading file: tabled3.dat' do i__=1,9 read(1,'(A123)')ar__10 read(ar__10,11)C1_2,C2_2,C3_2,C4_2,C5_2,C6_2,C7_2,C8_2,C9_2 c ..............Just test output........... write(6,11)C1_2,C2_2,C3_2,C4_2,C5_2,C6_2,C7_2,C8_2,C9_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table13.dat' ! Open transmission of the MegaCam imager (no filters) C Format for file interpretation 12 format(F7.1,1X,F7.4) C Effective file loading open(unit=1,status='old',file= +'table13.dat') write(6,*) '....Loading file: table13.dat' do i__=1,7190 read(1,'(A15)')ar__11 read(ar__11,12)WL,OT c ..............Just test output........... write(6,12)WL,OT c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table14.dat' ! u_M filter scan (Sagem/REOSC) C Format for file interpretation 13 format( + I5,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X, + F6.4,3X,F6.4,3X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table14.dat') write(6,*) '....Loading file: table14.dat' do i__=1,1545 read(1,'(A95)')ar__12 read(ar__12,13) + WL_1,T000,T023,T047,T070,T093,T117,T140,T163,T186,T210 c ..............Just test output........... write(6,13) + WL_1,T000,T023,T047,T070,T093,T117,T140,T163,T186,T210 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table15.dat' ! g_M filter scan (Sagem/REOSC) C Format for file interpretation 14 format( + I5,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X, + F6.4,3X,F6.4,3X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table15.dat') write(6,*) '....Loading file: table15.dat' do i__=1,371 read(1,'(A95)')ar__13 read(ar__13,14) + WL_2,T000_1,T023_1,T047_1,T070_1,T093_1,T117_1,T140_1,T163_1, + T186_1,T210_1 c ..............Just test output........... write(6,14) + WL_2,T000_1,T023_1,T047_1,T070_1,T093_1,T117_1,T140_1,T163_1, + T186_1,T210_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table16.dat' ! r_M filter scan (Sagem/REOSC) C Format for file interpretation 15 format( + I5,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X, + F6.4,3X,F6.4,3X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table16.dat') write(6,*) '....Loading file: table16.dat' do i__=1,357 read(1,'(A95)')ar__14 read(ar__14,15) + WL_3,T000_2,T023_2,T047_2,T070_2,T093_2,T117_2,T140_2,T163_2, + T186_2,T210_2 c ..............Just test output........... write(6,15) + WL_3,T000_2,T023_2,T047_2,T070_2,T093_2,T117_2,T140_2,T163_2, + T186_2,T210_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table17.dat' ! i_M filter scan (Sagem/REOSC) C Format for file interpretation 16 format( + I5,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X, + F6.4,3X,F6.4,3X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table17.dat') write(6,*) '....Loading file: table17.dat' do i__=1,446 read(1,'(A95)')ar__15 read(ar__15,16) + WL_4,T000_3,T023_3,T047_3,T070_3,T093_3,T117_3,T140_3,T163_3, + T186_3,T210_3 c ..............Just test output........... write(6,16) + WL_4,T000_3,T023_3,T047_3,T070_3,T093_3,T117_3,T140_3,T163_3, + T186_3,T210_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table18.dat' ! z_M filter scan (Sagem/REOSC) C Format for file interpretation 17 format( + I5,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X,F6.4,3X, + F6.4,3X,F6.4,3X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table18.dat') write(6,*) '....Loading file: table18.dat' do i__=1,632 read(1,'(A95)')ar__16 read(ar__16,17) + WL_5,T000_4,T023_4,T047_4,T070_4,T093_4,T117_4,T140_4,T163_4, + T186_4,T210_4 c ..............Just test output........... write(6,17) + WL_5,T000_4,T023_4,T047_4,T070_4,T093_4,T117_4,T140_4,T163_4, + T186_4,T210_4 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end