Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/506/999 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. 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 (nr__) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination, in decimal degrees (J2000)
real*4 gmag (nr__) ! (mag) ?=-1 g-band magnitude (Vega-like system)
real*4 e_gmag (nr__) ! (mag) ?=-1 Uncertainty on the g-band magnitude
integer*4 o_gmag (nr__) ! [1,40]?=-1 Number of observations
real*4 dkg (nr__) ! ?=-1 Grid g-band dk color term for this object
real*4 rmag (nr__) ! (mag) ?=-1 r-band magnitude(Vega-like system)
real*4 e_rmag (nr__) ! (mag) ?=-1 Uncertainty on the r-band magnitude
integer*4 o_rmag (nr__) ! [1,40]?=-1 Number of observations
real*4 dkr (nr__) ! ?=-1 Grid r-band dk color term for this object
real*4 imag (nr__) ! (mag) ?=-1 i-band magnitude(Vega-like system)
real*4 e_imag (nr__) ! (mag) ?=-1 Uncertainty on the i-band magnitude
integer*4 o_imag (nr__) ! [1,40]?=-1 Number of observations
real*4 dki (nr__) ! ?=-1 Grid i-band dk color term for this object
real*4 zmag (nr__) ! (mag) ?=-1 z-band magnitude(Vega-like system)
real*4 e_zmag (nr__) ! (mag) ?=-1 Uncertainty on the z-band magnitude
integer*4 o_zmag (nr__) ! [1,40]?=-1 Number of observations
real*4 dkz (nr__) ! ?=-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 (nr__1) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) Declination, in decimal degrees (J2000)
real*4 gmag_1 (nr__1) ! (mag) ?=-1 g-band magnitude (Vega-like system)
real*4 e_gmag_1 (nr__1) ! (mag) ?=-1 Uncertainty on the g-band magnitude
integer*4 o_gmag_1 (nr__1) ! [1,40]?=-1 Number of observations
real*4 dkg_1 (nr__1) ! ?=-1 Grid g-band dk color term for this object
real*4 rmag_1 (nr__1) ! (mag) ?=-1 r-band magnitude(Vega-like system)
real*4 e_rmag_1 (nr__1) ! (mag) ?=-1 Uncertainty on the r-band magnitude
integer*4 o_rmag_1 (nr__1) ! [1,40]?=-1 Number of observations
real*4 dkr_1 (nr__1) ! ?=-1 Grid r-band dk color term for this object
real*4 imag_1 (nr__1) ! (mag) ?=-1 i-band magnitude(Vega-like system)
real*4 e_imag_1 (nr__1) ! (mag) ?=-1 Uncertainty on the i-band magnitude
integer*4 o_imag_1 (nr__1) ! [1,40]?=-1 Number of observations
real*4 dki_1 (nr__1) ! ?=-1 Grid i-band dk color term for this object
real*4 zmag_1 (nr__1) ! (mag) ?=-1 z-band magnitude(Vega-like system)
real*4 e_zmag_1 (nr__1) ! (mag) ?=-1 Uncertainty on the z-band magnitude
integer*4 o_zmag_1 (nr__1) ! [1,40]?=-1 Number of observations
real*4 dkz_1 (nr__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 (nr__2) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_2 (nr__2) ! (deg) Declination, in decimal degrees (J2000)
real*4 gmag_2 (nr__2) ! (mag) ?=-1 g-band magnitude (Vega-like system)
real*4 e_gmag_2 (nr__2) ! (mag) ?=-1 Uncertainty on the g-band magnitude
integer*4 o_gmag_2 (nr__2) ! [1,40]?=-1 Number of observations
real*4 dkg_2 (nr__2) ! ?=-1 Grid g-band dk color term for this object
real*4 rmag_2 (nr__2) ! (mag) ?=-1 r-band magnitude(Vega-like system)
real*4 e_rmag_2 (nr__2) ! (mag) ?=-1 Uncertainty on the r-band magnitude
integer*4 o_rmag_2 (nr__2) ! [1,40]?=-1 Number of observations
real*4 dkr_2 (nr__2) ! ?=-1 Grid r-band dk color term for this object
real*4 imag_2 (nr__2) ! (mag) ?=-1 i-band magnitude(Vega-like system)
real*4 e_imag_2 (nr__2) ! (mag) ?=-1 Uncertainty on the i-band magnitude
integer*4 o_imag_2 (nr__2) ! [1,40]?=-1 Number of observations
real*4 dki_2 (nr__2) ! ?=-1 Grid i-band dk color term for this object
real*4 zmag_2 (nr__2) ! (mag) ?=-1 z-band magnitude(Vega-like system)
real*4 e_zmag_2 (nr__2) ! (mag) ?=-1 Uncertainty on the z-band magnitude
integer*4 o_zmag_2 (nr__2) ! [1,40]?=-1 Number of observations
real*4 dkz_2 (nr__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 (nr__3) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_3 (nr__3) ! (deg) Declination, in decimal degrees (J2000)
real*4 gmag_3 (nr__3) ! (mag) ?=-1 g-band magnitude (Vega-like system)
real*4 e_gmag_3 (nr__3) ! (mag) ?=-1 Uncertainty on the g-band magnitude
integer*4 o_gmag_3 (nr__3) ! [1,40]?=-1 Number of observations
real*4 dkg_3 (nr__3) ! ?=-1 Grid g-band dk color term for this object
real*4 rmag_3 (nr__3) ! (mag) ?=-1 r-band magnitude(Vega-like system)
real*4 e_rmag_3 (nr__3) ! (mag) ?=-1 Uncertainty on the r-band magnitude
integer*4 o_rmag_3 (nr__3) ! [1,40]?=-1 Number of observations
real*4 dkr_3 (nr__3) ! ?=-1 Grid r-band dk color term for this object
real*4 imag_3 (nr__3) ! (mag) ?=-1 i-band magnitude(Vega-like system)
real*4 e_imag_3 (nr__3) ! (mag) ?=-1 Uncertainty on the i-band magnitude
integer*4 o_imag_3 (nr__3) ! [1,40]?=-1 Number of observations
real*4 dki_3 (nr__3) ! ?=-1 Grid i-band dk color term for this object
real*4 zmag_3 (nr__3) ! (mag) ?=-1 z-band magnitude(Vega-like system)
real*4 e_zmag_3 (nr__3) ! (mag) ?=-1 Uncertainty on the z-band magnitude
integer*4 o_zmag_3 (nr__3) ! [1,40]?=-1 Number of observations
real*4 dkz_3 (nr__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 (nr__4) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_4 (nr__4) ! (deg) Declination, in decimal degrees (J2000)
real*4 umag (nr__4) ! (mag) u-band magnitude
real*4 e_umag (nr__4) ! (mag) uncertainty on the u-band magnitude
integer*4 o_umag (nr__4) ! number of observations
real*4 dku (nr__4) ! 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 (nr__5) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_5 (nr__5) ! (deg) Declination, in decimal degrees (J2000)
real*4 umag_1 (nr__5) ! (mag) u-band magnitude
real*4 e_umag_1 (nr__5) ! (mag) uncertainty on the u-band magnitude
integer*4 o_umag_1 (nr__5) ! number of observations
real*4 dku_1 (nr__5) ! 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 (nr__6) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_6 (nr__6) ! (deg) Declination, in decimal degrees (J2000)
real*4 umag_2 (nr__6) ! (mag) u-band magnitude
real*4 e_umag_2 (nr__6) ! (mag) uncertainty on the u-band magnitude
integer*4 o_umag_2 (nr__6) ! number of observations
real*4 dku_2 (nr__6) ! 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 (nr__7) ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_7 (nr__7) ! (deg) Declination, in decimal degrees (J2000)
real*4 umag_3 (nr__7) ! (mag) u-band magnitude
real*4 e_umag_3 (nr__7) ! (mag) uncertainty on the u-band magnitude
integer*4 o_umag_3 (nr__7) ! number of observations
real*4 dku_3 (nr__7) ! 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 (nr__8) ! Covariance matrix coefficient ({Delta}g)
real*4 C2 (nr__8) ! Covariance matrix coefficient ({Delta}r)
real*4 C3 (nr__8) ! Covariance matrix coefficient ({Delta}i)
real*4 C4 (nr__8) ! Covariance matrix coefficient ({Delta}z)
real*4 C5 (nr__8) ! Covariance matrix coefficient (U_ref_)
real*4 C6 (nr__8) ! Covariance matrix coefficient (B_ref_)
real*4 C7 (nr__8) ! Covariance matrix coefficient (V_ref_)
real*4 C8 (nr__8) ! Covariance matrix coefficient (R_ref_)
real*4 C9 (nr__8) ! 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 (nr__9) ! Covariance matrix coefficient ({Delta}g)
real*4 C2_1 (nr__9) ! Covariance matrix coefficient ({Delta}r)
real*4 C3_1 (nr__9) ! Covariance matrix coefficient ({Delta}i)
real*4 C4_1 (nr__9) ! Covariance matrix coefficient ({Delta}z)
real*4 C5_1 (nr__9) ! Covariance matrix coefficient (U_ref_)
real*4 C6_1 (nr__9) ! Covariance matrix coefficient (B_ref_)
real*4 C7_1 (nr__9) ! Covariance matrix coefficient (V_ref_)
real*4 C8_1 (nr__9) ! Covariance matrix coefficient (R_ref_)
real*4 C9_1 (nr__9) ! 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 (nr__10) ! Covariance matrix coefficient ({Delta}g)
real*4 C2_2 (nr__10) ! Covariance matrix coefficient ({Delta}r)
real*4 C3_2 (nr__10) ! Covariance matrix coefficient ({Delta}i)
real*4 C4_2 (nr__10) ! Covariance matrix coefficient ({Delta}z)
real*4 C5_2 (nr__10) ! Covariance matrix coefficient (U_ref_)
real*4 C6_2 (nr__10) ! Covariance matrix coefficient (B_ref_)
real*4 C7_2 (nr__10) ! Covariance matrix coefficient (V_ref_)
real*4 C8_2 (nr__10) ! Covariance matrix coefficient (R_ref_)
real*4 C9_2 (nr__10) ! 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 (nr__11) ! (0.1nm) Wavelength
real*8 OT (nr__11) ! [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 (nr__12) ! (0.1nm) Wavelength
real*4 T000 (nr__12) ! [0,1] Transmission at the center of the filter
real*4 T023 (nr__12) ! [0,1] Transmission at 23mm from the center
real*4 T047 (nr__12) ! [0,1] Transmission at 47mm from the center
real*4 T070 (nr__12) ! [0,1] Transmission at 70mm from the center
real*4 T093 (nr__12) ! [0,1] Transmission at 93mm from the center
real*4 T117 (nr__12) ! [0,1] Transmission at 117mm from the center
real*4 T140 (nr__12) ! [0,1] Transmission at 140mm from the center
real*4 T163 (nr__12) ! [0,1] Transmission at 163mm from the center
real*4 T186 (nr__12) ! [0,1] Transmission at 186mm from the center
real*4 T210 (nr__12) ! [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 (nr__13) ! (0.1nm) Wavelength
real*4 T000_1 (nr__13) ! [0,1] Transmission at the center of the filter
real*4 T023_1 (nr__13) ! [0,1] Transmission at 23mm from the center
real*4 T047_1 (nr__13) ! [0,1] Transmission at 47mm from the center
real*4 T070_1 (nr__13) ! [0,1] Transmission at 70mm from the center
real*4 T093_1 (nr__13) ! [0,1] Transmission at 93mm from the center
real*4 T117_1 (nr__13) ! [0,1] Transmission at 117mm from the center
real*4 T140_1 (nr__13) ! [0,1] Transmission at 140mm from the center
real*4 T163_1 (nr__13) ! [0,1] Transmission at 163mm from the center
real*4 T186_1 (nr__13) ! [0,1] Transmission at 186mm from the center
real*4 T210_1 (nr__13) ! [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 (nr__14) ! (0.1nm) Wavelength
real*4 T000_2 (nr__14) ! [0,1] Transmission at the center of the filter
real*4 T023_2 (nr__14) ! [0,1] Transmission at 23mm from the center
real*4 T047_2 (nr__14) ! [0,1] Transmission at 47mm from the center
real*4 T070_2 (nr__14) ! [0,1] Transmission at 70mm from the center
real*4 T093_2 (nr__14) ! [0,1] Transmission at 93mm from the center
real*4 T117_2 (nr__14) ! [0,1] Transmission at 117mm from the center
real*4 T140_2 (nr__14) ! [0,1] Transmission at 140mm from the center
real*4 T163_2 (nr__14) ! [0,1] Transmission at 163mm from the center
real*4 T186_2 (nr__14) ! [0,1] Transmission at 186mm from the center
real*4 T210_2 (nr__14) ! [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 (nr__15) ! (0.1nm) Wavelength
real*4 T000_3 (nr__15) ! [0,1] Transmission at the center of the filter
real*4 T023_3 (nr__15) ! [0,1] Transmission at 23mm from the center
real*4 T047_3 (nr__15) ! [0,1] Transmission at 47mm from the center
real*4 T070_3 (nr__15) ! [0,1] Transmission at 70mm from the center
real*4 T093_3 (nr__15) ! [0,1] Transmission at 93mm from the center
real*4 T117_3 (nr__15) ! [0,1] Transmission at 117mm from the center
real*4 T140_3 (nr__15) ! [0,1] Transmission at 140mm from the center
real*4 T163_3 (nr__15) ! [0,1] Transmission at 163mm from the center
real*4 T186_3 (nr__15) ! [0,1] Transmission at 186mm from the center
real*4 T210_3 (nr__15) ! [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 (nr__16) ! (0.1nm) Wavelength
real*4 T000_4 (nr__16) ! [0,1] Transmission at the center of the filter
real*4 T023_4 (nr__16) ! [0,1] Transmission at 23mm from the center
real*4 T047_4 (nr__16) ! [0,1] Transmission at 47mm from the center
real*4 T070_4 (nr__16) ! [0,1] Transmission at 70mm from the center
real*4 T093_4 (nr__16) ! [0,1] Transmission at 93mm from the center
real*4 T117_4 (nr__16) ! [0,1] Transmission at 117mm from the center
real*4 T140_4 (nr__16) ! [0,1] Transmission at 140mm from the center
real*4 T163_4 (nr__16) ! [0,1] Transmission at 163mm from the center
real*4 T186_4 (nr__16) ! [0,1] Transmission at 186mm from the center
real*4 T210_4 (nr__16) ! [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(i__),DEdeg(i__),gmag(i__),e_gmag(i__),o_gmag(i__),
+ dkg(i__),rmag(i__),e_rmag(i__),o_rmag(i__),dkr(i__),imag(i__),
+ e_imag(i__),o_imag(i__),dki(i__),zmag(i__),e_zmag(i__),
+ o_zmag(i__),dkz(i__)
c ..............Just test output...........
write(6,1)
+ RAdeg(i__),DEdeg(i__),gmag(i__),e_gmag(i__),o_gmag(i__),
+ dkg(i__),rmag(i__),e_rmag(i__),o_rmag(i__),dkr(i__),imag(i__),
+ e_imag(i__),o_imag(i__),dki(i__),zmag(i__),e_zmag(i__),
+ o_zmag(i__),dkz(i__)
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(i__),DEdeg_1(i__),gmag_1(i__),e_gmag_1(i__),
+ o_gmag_1(i__),dkg_1(i__),rmag_1(i__),e_rmag_1(i__),
+ o_rmag_1(i__),dkr_1(i__),imag_1(i__),e_imag_1(i__),
+ o_imag_1(i__),dki_1(i__),zmag_1(i__),e_zmag_1(i__),
+ o_zmag_1(i__),dkz_1(i__)
c ..............Just test output...........
write(6,2)
+ RAdeg_1(i__),DEdeg_1(i__),gmag_1(i__),e_gmag_1(i__),
+ o_gmag_1(i__),dkg_1(i__),rmag_1(i__),e_rmag_1(i__),
+ o_rmag_1(i__),dkr_1(i__),imag_1(i__),e_imag_1(i__),
+ o_imag_1(i__),dki_1(i__),zmag_1(i__),e_zmag_1(i__),
+ o_zmag_1(i__),dkz_1(i__)
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(i__),DEdeg_2(i__),gmag_2(i__),e_gmag_2(i__),
+ o_gmag_2(i__),dkg_2(i__),rmag_2(i__),e_rmag_2(i__),
+ o_rmag_2(i__),dkr_2(i__),imag_2(i__),e_imag_2(i__),
+ o_imag_2(i__),dki_2(i__),zmag_2(i__),e_zmag_2(i__),
+ o_zmag_2(i__),dkz_2(i__)
c ..............Just test output...........
write(6,3)
+ RAdeg_2(i__),DEdeg_2(i__),gmag_2(i__),e_gmag_2(i__),
+ o_gmag_2(i__),dkg_2(i__),rmag_2(i__),e_rmag_2(i__),
+ o_rmag_2(i__),dkr_2(i__),imag_2(i__),e_imag_2(i__),
+ o_imag_2(i__),dki_2(i__),zmag_2(i__),e_zmag_2(i__),
+ o_zmag_2(i__),dkz_2(i__)
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(i__),DEdeg_3(i__),gmag_3(i__),e_gmag_3(i__),
+ o_gmag_3(i__),dkg_3(i__),rmag_3(i__),e_rmag_3(i__),
+ o_rmag_3(i__),dkr_3(i__),imag_3(i__),e_imag_3(i__),
+ o_imag_3(i__),dki_3(i__),zmag_3(i__),e_zmag_3(i__),
+ o_zmag_3(i__),dkz_3(i__)
c ..............Just test output...........
write(6,4)
+ RAdeg_3(i__),DEdeg_3(i__),gmag_3(i__),e_gmag_3(i__),
+ o_gmag_3(i__),dkg_3(i__),rmag_3(i__),e_rmag_3(i__),
+ o_rmag_3(i__),dkr_3(i__),imag_3(i__),e_imag_3(i__),
+ o_imag_3(i__),dki_3(i__),zmag_3(i__),e_zmag_3(i__),
+ o_zmag_3(i__),dkz_3(i__)
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(i__),DEdeg_4(i__),umag(i__),e_umag(i__),o_umag(i__),
+ dku(i__)
c ..............Just test output...........
write(6,5)
+ RAdeg_4(i__),DEdeg_4(i__),umag(i__),e_umag(i__),o_umag(i__),
+ dku(i__)
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(i__),DEdeg_5(i__),umag_1(i__),e_umag_1(i__),
+ o_umag_1(i__),dku_1(i__)
c ..............Just test output...........
write(6,6)
+ RAdeg_5(i__),DEdeg_5(i__),umag_1(i__),e_umag_1(i__),
+ o_umag_1(i__),dku_1(i__)
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(i__),DEdeg_6(i__),umag_2(i__),e_umag_2(i__),
+ o_umag_2(i__),dku_2(i__)
c ..............Just test output...........
write(6,7)
+ RAdeg_6(i__),DEdeg_6(i__),umag_2(i__),e_umag_2(i__),
+ o_umag_2(i__),dku_2(i__)
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(i__),DEdeg_7(i__),umag_3(i__),e_umag_3(i__),
+ o_umag_3(i__),dku_3(i__)
c ..............Just test output...........
write(6,8)
+ RAdeg_7(i__),DEdeg_7(i__),umag_3(i__),e_umag_3(i__),
+ o_umag_3(i__),dku_3(i__)
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(i__),C2(i__),C3(i__),C4(i__),C5(i__),C6(i__),C7(i__),
+ C8(i__),C9(i__)
c ..............Just test output...........
write(6,9)
+ C1(i__),C2(i__),C3(i__),C4(i__),C5(i__),C6(i__),C7(i__),
+ C8(i__),C9(i__)
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(i__),C2_1(i__),C3_1(i__),C4_1(i__),C5_1(i__),C6_1(i__),
+ C7_1(i__),C8_1(i__),C9_1(i__)
c ..............Just test output...........
write(6,10)
+ C1_1(i__),C2_1(i__),C3_1(i__),C4_1(i__),C5_1(i__),C6_1(i__),
+ C7_1(i__),C8_1(i__),C9_1(i__)
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(i__),C2_2(i__),C3_2(i__),C4_2(i__),C5_2(i__),C6_2(i__),
+ C7_2(i__),C8_2(i__),C9_2(i__)
c ..............Just test output...........
write(6,11)
+ C1_2(i__),C2_2(i__),C3_2(i__),C4_2(i__),C5_2(i__),C6_2(i__),
+ C7_2(i__),C8_2(i__),C9_2(i__)
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(i__),OT(i__)
c ..............Just test output...........
write(6,12)WL(i__),OT(i__)
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(i__),T000(i__),T023(i__),T047(i__),T070(i__),T093(i__),
+ T117(i__),T140(i__),T163(i__),T186(i__),T210(i__)
c ..............Just test output...........
write(6,13)
+ WL_1(i__),T000(i__),T023(i__),T047(i__),T070(i__),T093(i__),
+ T117(i__),T140(i__),T163(i__),T186(i__),T210(i__)
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(i__),T000_1(i__),T023_1(i__),T047_1(i__),T070_1(i__),
+ T093_1(i__),T117_1(i__),T140_1(i__),T163_1(i__),T186_1(i__),
+ T210_1(i__)
c ..............Just test output...........
write(6,14)
+ WL_2(i__),T000_1(i__),T023_1(i__),T047_1(i__),T070_1(i__),
+ T093_1(i__),T117_1(i__),T140_1(i__),T163_1(i__),T186_1(i__),
+ T210_1(i__)
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(i__),T000_2(i__),T023_2(i__),T047_2(i__),T070_2(i__),
+ T093_2(i__),T117_2(i__),T140_2(i__),T163_2(i__),T186_2(i__),
+ T210_2(i__)
c ..............Just test output...........
write(6,15)
+ WL_3(i__),T000_2(i__),T023_2(i__),T047_2(i__),T070_2(i__),
+ T093_2(i__),T117_2(i__),T140_2(i__),T163_2(i__),T186_2(i__),
+ T210_2(i__)
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(i__),T000_3(i__),T023_3(i__),T047_3(i__),T070_3(i__),
+ T093_3(i__),T117_3(i__),T140_3(i__),T163_3(i__),T186_3(i__),
+ T210_3(i__)
c ..............Just test output...........
write(6,16)
+ WL_4(i__),T000_3(i__),T023_3(i__),T047_3(i__),T070_3(i__),
+ T093_3(i__),T117_3(i__),T140_3(i__),T163_3(i__),T186_3(i__),
+ T210_3(i__)
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(i__),T000_4(i__),T023_4(i__),T047_4(i__),T070_4(i__),
+ T093_4(i__),T117_4(i__),T140_4(i__),T163_4(i__),T186_4(i__),
+ T210_4(i__)
c ..............Just test output...........
write(6,17)
+ WL_5(i__),T000_4(i__),T023_4(i__),T047_4(i__),T070_4(i__),
+ T093_4(i__),T117_4(i__),T140_4(i__),T163_4(i__),T186_4(i__),
+ T210_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end