FORTRAN Generation
(/./ftp/cats/J/A_A/611/A68)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/611/A68 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-Mar-29
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/611/A68       3D correction in 5 photometric systems    (Bonifacio+, 2018)
*================================================================================
*Using the CIFIST grid of CO5BOLD 3D model atmospheres to study
*the effects of stellar granulation on photometric colours.
*I. Grids of 3D corrections in the UBVRI, 2MASS, Hipparcos, Gaia, and SDDS
*systems.
*    Bonifacio P., Caffau E., Ludwig H.-G., Steffen M.,Castelli F.,
*    Gallagher A.J., Kucinskas A., Prakapavicius D., Cayrel R., Freytag B.,
*    Plez B., Homeier D.
*   <Astron. Astrophys. 611, A68 (2018)>
*   =2018A&A...611A..68B
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea1.dat'	! Colours and corrections for the Johnson-Cousins
                              system for metallicity [M/H]=0.0

      integer*4 nr__
      parameter (nr__=27)	! Number of records
      character*93 ar__   	! Full-size record

      integer*4     Teff        ! (K) Effective temperature
      real*4        logg        ! ([cm/s2]) Surface gravity
      real*4        U_BA        ! (mag) ATLAS U-B colour correction
      real*4        U_BAc       ! (mag) ATLAS U-B colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dU_B        ! (mag) U-B correction difference, U-BA - U-BAc
      real*4        B_VA        ! (mag) ATLAS B-V colour correction
      real*4        B_VAc       ! (mag) ATLAS B-V colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dB_V        ! (mag) B-V correction difference, B-VA - B-VAc
      real*4        V_RA        ! (mag) ATLAS V-R colour correction
      real*4        V_RAc       ! (mag) ATLAS V-R colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_R        ! (mag) V-R correction difference, V-RA - V-RAc
      real*4        V_IA        ! (mag) ATLAS V-I colour correction
      real*4        V_IAc       ! (mag) ATLAS V-I colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_I        ! (mag) V-I correction difference, V-IA - V-IAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea2.dat'	! Colours and corrections for the Johnson-Cousins
                              system for metallicity [M/H]=-1.0

      integer*4 nr__1
      parameter (nr__1=26)	! Number of records
      character*93 ar__1  	! Full-size record

      integer*4     Teff_1      ! (K) Effective temperature
      real*4        logg_1      ! ([cm/s2]) Surface gravity
      real*4        U_BA_1      ! (mag) ATLAS U-B colour correction
      real*4        U_BAc_1     ! (mag) ATLAS U-B colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dU_B_1      ! (mag) U-B correction difference, U-BA - U-BAc
      real*4        B_VA_1      ! (mag) ATLAS B-V colour correction
      real*4        B_VAc_1     ! (mag) ATLAS B-V colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dB_V_1      ! (mag) B-V correction difference, B-VA - B-VAc
      real*4        V_RA_1      ! (mag) ATLAS V-R colour correction
      real*4        V_RAc_1     ! (mag) ATLAS V-R colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_R_1      ! (mag) V-R correction difference, V-RA - V-RAc
      real*4        V_IA_1      ! (mag) ATLAS V-I colour correction
      real*4        V_IAc_1     ! (mag) ATLAS V-I colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_I_1      ! (mag) V-I correction difference, V-IA - V-IAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea3.dat'	! Colours and corrections for the Johnson-Cousins
                              system for metallicity [M/H]=-2.0

      integer*4 nr__2
      parameter (nr__2=27)	! Number of records
      character*93 ar__2  	! Full-size record

      integer*4     Teff_2      ! (K) Effective temperature
      real*4        logg_2      ! ([cm/s2]) Surface gravity
      real*4        U_BA_2      ! (mag) ATLAS U-B colour correction
      real*4        U_BAc_2     ! (mag) ATLAS U-B colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dU_B_2      ! (mag) U-B correction difference, U-BA - U-BAc
      real*4        B_VA_2      ! (mag) ATLAS B-V colour correction
      real*4        B_VAc_2     ! (mag) ATLAS B-V colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dB_V_2      ! (mag) B-V correction difference, B-VA - B-VAc
      real*4        V_RA_2      ! (mag) ATLAS V-R colour correction
      real*4        V_RAc_2     ! (mag) ATLAS V-R colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_R_2      ! (mag) V-R correction difference, V-RA - V-RAc
      real*4        V_IA_2      ! (mag) ATLAS V-I colour correction
      real*4        V_IAc_2     ! (mag) ATLAS V-I colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_I_2      ! (mag) V-I correction difference, V-IA - V-IAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea4.dat'	! Colours and corrections for the Johnson-Cousins
                              system for metallicity [M/H]=-3.0

      integer*4 nr__3
      parameter (nr__3=27)	! Number of records
      character*93 ar__3  	! Full-size record

      integer*4     Teff_3      ! (K) Effective temperature
      real*4        logg_3      ! ([cm/s2]) Surface gravity
      real*4        U_BA_3      ! (mag) ATLAS U-B colour correction
      real*4        U_BAc_3     ! (mag) ATLAS U-B colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dU_B_3      ! (mag) U-B correction difference, U-BA - U-BAc
      real*4        B_VA_3      ! (mag) ATLAS B-V colour correction
      real*4        B_VAc_3     ! (mag) ATLAS B-V colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dB_V_3      ! (mag) B-V correction difference, B-VA - B-VAc
      real*4        V_RA_3      ! (mag) ATLAS V-R colour correction
      real*4        V_RAc_3     ! (mag) ATLAS V-R colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_R_3      ! (mag) V-R correction difference, V-RA - V-RAc
      real*4        V_IA_3      ! (mag) ATLAS V-I colour correction
      real*4        V_IAc_3     ! (mag) ATLAS V-I colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dV_I_3      ! (mag) V-I correction difference, V-IA - V-IAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea5.dat'	! Colours and corrections for the 2MASS and
                              Hipparcos-Tycho systems for metallicity [M/H]=0.0

      integer*4 nr__4
      parameter (nr__4=27)	! Number of records
      character*93 ar__4  	! Full-size record

      integer*4     Teff_4      ! (K) Effective temperature
      real*4        logg_4      ! ([cm/s2]) Surface gravity
      real*4        J_KA        ! (mag) ATLAS J-K colour correction
      real*4        J_KAc       ! (mag) ATLAS J-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dJ_K        ! (mag) J-K correction difference, J-KA - J-KAc
      real*4        V_KA        ! (mag) ATLAS V-K colour correction
      real*4        V_KAc       ! (mag) ATLAS V-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_K        ! (mag) B-K correction difference, V-KA - V-KAc
      real*4        V_HpA       ! (mag) ATLAS V-Hp colour correction
      real*4        V_HpAc      ! (mag) ATLAS V-Hp colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_Hp       ! (mag) V-Hp correction colour difference,
*                                 V-HpA - V-HpAc
      real*4        BT_VTA      ! (mag) ATLAS BT-VT colour correction
      real*4        BT_VTAc     ! (mag) ATLAS BT-VT colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dBT_VT      ! (mag) BT-VT correction difference,
*                                 BT-VTA - BT-VTAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea6.dat'	! Colours and corrections for the 2MASS and
                              Hipparcos-Tycho systems for metallicity [M/H]=-1.0

      integer*4 nr__5
      parameter (nr__5=26)	! Number of records
      character*93 ar__5  	! Full-size record

      integer*4     Teff_5      ! (K) Effective temperature
      real*4        logg_5      ! ([cm/s2]) Surface gravity
      real*4        J_KA_1      ! (mag) ATLAS J-K colour correction
      real*4        J_KAc_1     ! (mag) ATLAS J-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dJ_K_1      ! (mag) J-K correction difference, J-KA - J-KAc
      real*4        V_KA_1      ! (mag) ATLAS V-K colour correction
      real*4        V_KAc_1     ! (mag) ATLAS V-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_K_1      ! (mag) B-K correction difference, V-KA - V-KAc
      real*4        V_HpA_1     ! (mag) ATLAS V-Hp colour correction
      real*4        V_HpAc_1    ! (mag) ATLAS V-Hp colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_Hp_1     ! (mag) V-Hp correction colour difference,
*                                 V-HpA - V-HpAc
      real*4        BT_VTA_1    ! (mag) ATLAS BT-VT colour correction
      real*4        BT_VTAc_1   ! (mag) ATLAS BT-VT colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dBT_VT_1    ! (mag) BT-VT correction difference,
*                                 BT-VTA - BT-VTAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea7.dat'	! Colours and corrections for the 2MASS and
                              Hipparcos-Tycho systems for metallicity [M/H]=-2.0

      integer*4 nr__6
      parameter (nr__6=27)	! Number of records
      character*93 ar__6  	! Full-size record

      integer*4     Teff_6      ! (K) Effective temperature
      real*4        logg_6      ! ([cm/s2]) Surface gravity
      real*4        J_KA_2      ! (mag) ATLAS J-K colour correction
      real*4        J_KAc_2     ! (mag) ATLAS J-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dJ_K_2      ! (mag) J-K correction difference, J-KA - J-KAc
      real*4        V_KA_2      ! (mag) ATLAS V-K colour correction
      real*4        V_KAc_2     ! (mag) ATLAS V-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_K_2      ! (mag) B-K correction difference, V-KA - V-KAc
      real*4        V_HpA_2     ! (mag) ATLAS V-Hp colour correction
      real*4        V_HpAc_2    ! (mag) ATLAS V-Hp colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_Hp_2     ! (mag) V-Hp correction colour difference,
*                                 V-HpA - V-HpAc
      real*4        BT_VTA_2    ! (mag) ATLAS BT-VT colour correction
      real*4        BT_VTAc_2   ! (mag) ATLAS BT-VT colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dBT_VT_2    ! (mag) BT-VT correction difference,
*                                 BT-VTA - BT-VTAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea8.dat'	! Colours and corrections for the 2MASS and
                              Hipparcos-Tycho systems for metallicity [M/H]=-3.0

      integer*4 nr__7
      parameter (nr__7=26)	! Number of records
      character*93 ar__7  	! Full-size record

      integer*4     Teff_7      ! (K) Effective temperature
      real*4        logg_7      ! ([cm/s2]) Surface gravity
      real*4        J_KA_3      ! (mag) ATLAS J-K colour correction
      real*4        J_KAc_3     ! (mag) ATLAS J-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dJ_K_3      ! (mag) J-K correction difference, J-KA - J-KAc
      real*4        V_KA_3      ! (mag) ATLAS V-K colour correction
      real*4        V_KAc_3     ! (mag) ATLAS V-K colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_K_3      ! (mag) B-K correction difference, V-KA - V-KAc
      real*4        V_HpA_3     ! (mag) ATLAS V-Hp colour correction
      real*4        V_HpAc_3    ! (mag) ATLAS V-Hp colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dV_Hp_3     ! (mag) V-Hp correction colour difference,
*                                 V-HpA - V-HpAc
      real*4        BT_VTA_3    ! (mag) ATLAS BT-VT colour correction
      real*4        BT_VTAc_3   ! (mag) ATLAS BT-VT colour correction with 3D correction
*                                 added to the ATLAS colour
      real*4        dBT_VT_3    ! (mag) BT-VT correction difference,
*                                 BT-VTA - BT-VTAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea9.dat'	! Colours and corrections for the Gaia system
                              for metallicity [M/H]=0.0

      integer*4 nr__8
      parameter (nr__8=27)	! Number of records
      character*93 ar__8  	! Full-size record

      integer*4     Teff_8      ! (K) Effective temperature
      real*4        logg_8      ! ([cm/s2]) Surface gravity
      real*4        G_HpA       ! (mag) ATLAS G-Hp colour correction
      real*4        G_HpAc      ! (mag) ATLAS G-Hp colour correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dG_Hp       ! (mag) G-Hp correction difference,
*                                  G-HpA - G-HpAc
      real*4        BP_RPA      ! (mag) ATLAS BT-RP colour correction
      real*4        BP_RPAc     ! (mag) ATLAS BT-RP colour correction with 3D
*                                  correction added to the ATLAS colour
      real*4        dBP_RP      ! (mag) BP-RP correction difference,
*                                  BP-RPA - BP-RPAc
      real*4        CaTA        ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
      real*4        CaTAc       ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
*                                  with 3D correction added to the ATLAS colour
      real*4        dCaT        ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
*                                  CaTA - CaTAc
      real*4        BolGA       ! (mag) ATLAS bolometric correction
      real*4        BolGAc      ! (mag) ATLAS bolometric correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dBolG       ! (mag) Bolometric correction difference,
*                                  BolGA - BolGAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea10.dat'	! Colours and corrections for the Gaia system
                              for metallicity [M/H]=-1.0

      integer*4 nr__9
      parameter (nr__9=26)	! Number of records
      character*93 ar__9  	! Full-size record

      integer*4     Teff_9      ! (K) Effective temperature
      real*4        logg_9      ! ([cm/s2]) Surface gravity
      real*4        G_HpA_1     ! (mag) ATLAS G-Hp colour correction
      real*4        G_HpAc_1    ! (mag) ATLAS G-Hp colour correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dG_Hp_1     ! (mag) G-Hp correction difference,
*                                  G-HpA - G-HpAc
      real*4        BP_RPA_1    ! (mag) ATLAS BT-RP colour correction
      real*4        BP_RPAc_1   ! (mag) ATLAS BT-RP colour correction with 3D
*                                  correction added to the ATLAS colour
      real*4        dBP_RP_1    ! (mag) BP-RP correction difference,
*                                  BP-RPA - BP-RPAc
      real*4        CaTA_1      ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
      real*4        CaTAc_1     ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
*                                  with 3D correction added to the ATLAS colour
      real*4        dCaT_1      ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
*                                  CaTA - CaTAc
      real*4        BolGA_1     ! (mag) ATLAS bolometric correction
      real*4        BolGAc_1    ! (mag) ATLAS bolometric correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dBolG_1     ! (mag) Bolometric correction difference,
*                                  BolGA - BolGAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea11.dat'	! Colours and corrections for the Gaia system
                              for metallicity [M/H]=-2.0

      integer*4 nr__10
      parameter (nr__10=27)	! Number of records
      character*93 ar__10 	! Full-size record

      integer*4     Teff_10     ! (K) Effective temperature
      real*4        logg_10     ! ([cm/s2]) Surface gravity
      real*4        G_HpA_2     ! (mag) ATLAS G-Hp colour correction
      real*4        G_HpAc_2    ! (mag) ATLAS G-Hp colour correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dG_Hp_2     ! (mag) G-Hp correction difference,
*                                  G-HpA - G-HpAc
      real*4        BP_RPA_2    ! (mag) ATLAS BT-RP colour correction
      real*4        BP_RPAc_2   ! (mag) ATLAS BT-RP colour correction with 3D
*                                  correction added to the ATLAS colour
      real*4        dBP_RP_2    ! (mag) BP-RP correction difference,
*                                  BP-RPA - BP-RPAc
      real*4        CaTA_2      ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
      real*4        CaTAc_2     ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
*                                  with 3D correction added to the ATLAS colour
      real*4        dCaT_2      ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
*                                  CaTA - CaTAc
      real*4        BolGA_2     ! (mag) ATLAS bolometric correction
      real*4        BolGAc_2    ! (mag) ATLAS bolometric correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dBolG_2     ! (mag) Bolometric correction difference,
*                                  BolGA - BolGAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea12.dat'	! Colours and corrections for the Gaia system
                              for metallicity [M/H]=-3.0

      integer*4 nr__11
      parameter (nr__11=27)	! Number of records
      character*93 ar__11 	! Full-size record

      integer*4     Teff_11     ! (K) Effective temperature
      real*4        logg_11     ! ([cm/s2]) Surface gravity
      real*4        G_HpA_3     ! (mag) ATLAS G-Hp colour correction
      real*4        G_HpAc_3    ! (mag) ATLAS G-Hp colour correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dG_Hp_3     ! (mag) G-Hp correction difference,
*                                  G-HpA - G-HpAc
      real*4        BP_RPA_3    ! (mag) ATLAS BT-RP colour correction
      real*4        BP_RPAc_3   ! (mag) ATLAS BT-RP colour correction with 3D
*                                  correction added to the ATLAS colour
      real*4        dBP_RP_3    ! (mag) BP-RP correction difference,
*                                  BP-RPA - BP-RPAc
      real*4        CaTA_3      ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
      real*4        CaTAc_3     ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
*                                  with 3D correction added to the ATLAS colour
      real*4        dCaT_3      ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
*                                  CaTA - CaTAc
      real*4        BolGA_3     ! (mag) ATLAS bolometric correction
      real*4        BolGAc_3    ! (mag) ATLAS bolometric correction with 3D correction
*                                  added to the ATLAS colour
      real*4        dBolG_3     ! (mag) Bolometric correction difference,
*                                  BolGA - BolGAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea13.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
                              and g-i for metallicity [M/H]=0.0

      integer*4 nr__12
      parameter (nr__12=27)	! Number of records
      character*93 ar__12 	! Full-size record

      integer*4     Teff_12     ! (K) Effective temperature
      real*4        logg_12     ! ([cm/s2]) Surface gravity
      real*4        u_gA        ! (mag) ATLAS u-g colour correction
      real*4        u_gAc       ! (mag) ATLAS u-g colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_g        ! (mag) u-g correction difference, u-gA - u-gAc
      real*4        g_zA        ! (mag) ATLAS g-z colour correction
      real*4        g_zAc       ! (mag) ATLAS g-z colour correction with 3D
*                                   correction added to the ATLAS colour
      real*4        dg_z        ! (mag) g-z correction difference, g-zA - g-zAc
      real*4        g_rA        ! (mag) ATLAS g-r colour correction
      real*4        g_rAc       ! (mag) ATLAS g-r colour correction
*                                   with 3D correction added to the ATLAS colour
      real*4        dg_r        ! (mag) g-r correction difference, g-rA - g-rAc
      real*4        g_iA        ! (mag) ATLAS g-i colour correction
      real*4        g_iAc       ! (mag) ATLAS g-i colour correction with 3D correction
*                                   been added to the ATLAS colour
      real*4        dg_i        ! (mag) g-i correction difference, g-iA - g-iAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea14.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
                              and g-i for metallicity [M/H]=-1.0

      integer*4 nr__13
      parameter (nr__13=26)	! Number of records
      character*93 ar__13 	! Full-size record

      integer*4     Teff_13     ! (K) Effective temperature
      real*4        logg_13     ! ([cm/s2]) Surface gravity
      real*4        u_gA_1      ! (mag) ATLAS u-g colour correction
      real*4        u_gAc_1     ! (mag) ATLAS u-g colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_g_1      ! (mag) u-g correction difference, u-gA - u-gAc
      real*4        g_zA_1      ! (mag) ATLAS g-z colour correction
      real*4        g_zAc_1     ! (mag) ATLAS g-z colour correction with 3D
*                                   correction added to the ATLAS colour
      real*4        dg_z_1      ! (mag) g-z correction difference, g-zA - g-zAc
      real*4        g_rA_1      ! (mag) ATLAS g-r colour correction
      real*4        g_rAc_1     ! (mag) ATLAS g-r colour correction
*                                   with 3D correction added to the ATLAS colour
      real*4        dg_r_1      ! (mag) g-r correction difference, g-rA - g-rAc
      real*4        g_iA_1      ! (mag) ATLAS g-i colour correction
      real*4        g_iAc_1     ! (mag) ATLAS g-i colour correction with 3D correction
*                                   been added to the ATLAS colour
      real*4        dg_i_1      ! (mag) g-i correction difference, g-iA - g-iAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea15.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
                              and g-i for metallicity [M/H]=-2.0

      integer*4 nr__14
      parameter (nr__14=27)	! Number of records
      character*93 ar__14 	! Full-size record

      integer*4     Teff_14     ! (K) Effective temperature
      real*4        logg_14     ! ([cm/s2]) Surface gravity
      real*4        u_gA_2      ! (mag) ATLAS u-g colour correction
      real*4        u_gAc_2     ! (mag) ATLAS u-g colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_g_2      ! (mag) u-g correction difference, u-gA - u-gAc
      real*4        g_zA_2      ! (mag) ATLAS g-z colour correction
      real*4        g_zAc_2     ! (mag) ATLAS g-z colour correction with 3D
*                                   correction added to the ATLAS colour
      real*4        dg_z_2      ! (mag) g-z correction difference, g-zA - g-zAc
      real*4        g_rA_2      ! (mag) ATLAS g-r colour correction
      real*4        g_rAc_2     ! (mag) ATLAS g-r colour correction
*                                   with 3D correction added to the ATLAS colour
      real*4        dg_r_2      ! (mag) g-r correction difference, g-rA - g-rAc
      real*4        g_iA_2      ! (mag) ATLAS g-i colour correction
      real*4        g_iAc_2     ! (mag) ATLAS g-i colour correction with 3D correction
*                                   been added to the ATLAS colour
      real*4        dg_i_2      ! (mag) g-i correction difference, g-iA - g-iAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea16.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
                              and g-i for metallicity [M/H]=-3.0

      integer*4 nr__15
      parameter (nr__15=27)	! Number of records
      character*93 ar__15 	! Full-size record

      integer*4     Teff_15     ! (K) Effective temperature
      real*4        logg_15     ! ([cm/s2]) Surface gravity
      real*4        u_gA_3      ! (mag) ATLAS u-g colour correction
      real*4        u_gAc_3     ! (mag) ATLAS u-g colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_g_3      ! (mag) u-g correction difference, u-gA - u-gAc
      real*4        g_zA_3      ! (mag) ATLAS g-z colour correction
      real*4        g_zAc_3     ! (mag) ATLAS g-z colour correction with 3D
*                                   correction added to the ATLAS colour
      real*4        dg_z_3      ! (mag) g-z correction difference, g-zA - g-zAc
      real*4        g_rA_3      ! (mag) ATLAS g-r colour correction
      real*4        g_rAc_3     ! (mag) ATLAS g-r colour correction
*                                   with 3D correction added to the ATLAS colour
      real*4        dg_r_3      ! (mag) g-r correction difference, g-rA - g-rAc
      real*4        g_iA_3      ! (mag) ATLAS g-i colour correction
      real*4        g_iAc_3     ! (mag) ATLAS g-i colour correction with 3D correction
*                                   been added to the ATLAS colour
      real*4        dg_i_3      ! (mag) g-i correction difference, g-iA - g-iAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea17.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
                              and u-z for metallicity [M/H]=0.0

      integer*4 nr__16
      parameter (nr__16=27)	! Number of records
      character*93 ar__16 	! Full-size record

      integer*4     Teff_16     ! (K) Effective temperature
      real*4        logg_16     ! ([cm/s2]) Surface gravity
      real*4        r_iA        ! (mag) ATLAS r-i colour correction
      real*4        r_iAc       ! (mag) ATLAS r-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dr_i        ! (mag) r-i correction colour difference, r-iA - r-iAc
      real*4        i_zA        ! (mag) ATLAS i-z colour correction
      real*4        i_zAc       ! (mag) ATLAS i-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        di_z        ! (mag) i-z correction colour difference, i-zA - i-zAc
      real*4        u_iA        ! (mag) ATLAS u-i colour correction
      real*4        u_iAc       ! (mag) ATLAS u-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_i        ! (mag) u-i correction colour difference, u-iA - u-iAc
      real*4        u_zA        ! (mag) ATLAS u-z colour correction
      real*4        u_zAc       ! (mag) ATLAS u-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_z        ! (mag) u-z correction difference, u-zA - u-zAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea18.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
                              and u-z for metallicity [M/H]=-1.0

      integer*4 nr__17
      parameter (nr__17=26)	! Number of records
      character*93 ar__17 	! Full-size record

      integer*4     Teff_17     ! (K) Effective temperature
      real*4        logg_17     ! ([cm/s2]) Surface gravity
      real*4        r_iA_1      ! (mag) ATLAS r-i colour correction
      real*4        r_iAc_1     ! (mag) ATLAS r-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dr_i_1      ! (mag) r-i correction colour difference, r-iA - r-iAc
      real*4        i_zA_1      ! (mag) ATLAS i-z colour correction
      real*4        i_zAc_1     ! (mag) ATLAS i-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        di_z_1      ! (mag) i-z correction colour difference, i-zA - i-zAc
      real*4        u_iA_1      ! (mag) ATLAS u-i colour correction
      real*4        u_iAc_1     ! (mag) ATLAS u-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_i_1      ! (mag) u-i correction colour difference, u-iA - u-iAc
      real*4        u_zA_1      ! (mag) ATLAS u-z colour correction
      real*4        u_zAc_1     ! (mag) ATLAS u-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_z_1      ! (mag) u-z correction difference, u-zA - u-zAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea19.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
                              and u-z for metallicity [M/H]=-2.0

      integer*4 nr__18
      parameter (nr__18=27)	! Number of records
      character*93 ar__18 	! Full-size record

      integer*4     Teff_18     ! (K) Effective temperature
      real*4        logg_18     ! ([cm/s2]) Surface gravity
      real*4        r_iA_2      ! (mag) ATLAS r-i colour correction
      real*4        r_iAc_2     ! (mag) ATLAS r-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dr_i_2      ! (mag) r-i correction colour difference, r-iA - r-iAc
      real*4        i_zA_2      ! (mag) ATLAS i-z colour correction
      real*4        i_zAc_2     ! (mag) ATLAS i-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        di_z_2      ! (mag) i-z correction colour difference, i-zA - i-zAc
      real*4        u_iA_2      ! (mag) ATLAS u-i colour correction
      real*4        u_iAc_2     ! (mag) ATLAS u-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_i_2      ! (mag) u-i correction colour difference, u-iA - u-iAc
      real*4        u_zA_2      ! (mag) ATLAS u-z colour correction
      real*4        u_zAc_2     ! (mag) ATLAS u-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_z_2      ! (mag) u-z correction difference, u-zA - u-zAc

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea20.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
                              and u-z for metallicity [M/H]=-3.0

      integer*4 nr__19
      parameter (nr__19=27)	! Number of records
      character*93 ar__19 	! Full-size record

      integer*4     Teff_19     ! (K) Effective temperature
      real*4        logg_19     ! ([cm/s2]) Surface gravity
      real*4        r_iA_3      ! (mag) ATLAS r-i colour correction
      real*4        r_iAc_3     ! (mag) ATLAS r-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        dr_i_3      ! (mag) r-i correction colour difference, r-iA - r-iAc
      real*4        i_zA_3      ! (mag) ATLAS i-z colour correction
      real*4        i_zAc_3     ! (mag) ATLAS i-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        di_z_3      ! (mag) i-z correction colour difference, i-zA - i-zAc
      real*4        u_iA_3      ! (mag) ATLAS u-i colour correction
      real*4        u_iAc_3     ! (mag) ATLAS u-i colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_i_3      ! (mag) u-i correction colour difference, u-iA - u-iAc
      real*4        u_zA_3      ! (mag) ATLAS u-z colour correction
      real*4        u_zAc_3     ! (mag) ATLAS u-z colour correction with 3D correction
*                                   added to the ATLAS colour
      real*4        du_z_3      ! (mag) u-z correction difference, u-zA - u-zAc

C=============================================================================

C  Loading file 'tablea1.dat'	! Colours and corrections for the Johnson-Cousins
*                              system for metallicity [M/H]=0.0

C  Format for file interpretation

    1 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea1.dat')
      write(6,*) '....Loading file: tablea1.dat'
      do i__=1,27
        read(1,'(A93)')ar__
        read(ar__,1)
     +  Teff,logg,U_BA,U_BAc,dU_B,B_VA,B_VAc,dB_V,V_RA,V_RAc,dV_R,
     +  V_IA,V_IAc,dV_I
c    ..............Just test output...........
        write(6,1)
     +  Teff,logg,U_BA,U_BAc,dU_B,B_VA,B_VAc,dB_V,V_RA,V_RAc,dV_R,
     +  V_IA,V_IAc,dV_I
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea2.dat'	! Colours and corrections for the Johnson-Cousins
*                              system for metallicity [M/H]=-1.0

C  Format for file interpretation

    2 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea2.dat')
      write(6,*) '....Loading file: tablea2.dat'
      do i__=1,26
        read(1,'(A93)')ar__1
        read(ar__1,2)
     +  Teff_1,logg_1,U_BA_1,U_BAc_1,dU_B_1,B_VA_1,B_VAc_1,dB_V_1,
     +  V_RA_1,V_RAc_1,dV_R_1,V_IA_1,V_IAc_1,dV_I_1
c    ..............Just test output...........
        write(6,2)
     +  Teff_1,logg_1,U_BA_1,U_BAc_1,dU_B_1,B_VA_1,B_VAc_1,dB_V_1,
     +  V_RA_1,V_RAc_1,dV_R_1,V_IA_1,V_IAc_1,dV_I_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea3.dat'	! Colours and corrections for the Johnson-Cousins
*                              system for metallicity [M/H]=-2.0

C  Format for file interpretation

    3 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea3.dat')
      write(6,*) '....Loading file: tablea3.dat'
      do i__=1,27
        read(1,'(A93)')ar__2
        read(ar__2,3)
     +  Teff_2,logg_2,U_BA_2,U_BAc_2,dU_B_2,B_VA_2,B_VAc_2,dB_V_2,
     +  V_RA_2,V_RAc_2,dV_R_2,V_IA_2,V_IAc_2,dV_I_2
c    ..............Just test output...........
        write(6,3)
     +  Teff_2,logg_2,U_BA_2,U_BAc_2,dU_B_2,B_VA_2,B_VAc_2,dB_V_2,
     +  V_RA_2,V_RAc_2,dV_R_2,V_IA_2,V_IAc_2,dV_I_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea4.dat'	! Colours and corrections for the Johnson-Cousins
*                              system for metallicity [M/H]=-3.0

C  Format for file interpretation

    4 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea4.dat')
      write(6,*) '....Loading file: tablea4.dat'
      do i__=1,27
        read(1,'(A93)')ar__3
        read(ar__3,4)
     +  Teff_3,logg_3,U_BA_3,U_BAc_3,dU_B_3,B_VA_3,B_VAc_3,dB_V_3,
     +  V_RA_3,V_RAc_3,dV_R_3,V_IA_3,V_IAc_3,dV_I_3
c    ..............Just test output...........
        write(6,4)
     +  Teff_3,logg_3,U_BA_3,U_BAc_3,dU_B_3,B_VA_3,B_VAc_3,dB_V_3,
     +  V_RA_3,V_RAc_3,dV_R_3,V_IA_3,V_IAc_3,dV_I_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea5.dat'	! Colours and corrections for the 2MASS and
*                              Hipparcos-Tycho systems for metallicity [M/H]=0.0

C  Format for file interpretation

    5 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea5.dat')
      write(6,*) '....Loading file: tablea5.dat'
      do i__=1,27
        read(1,'(A93)')ar__4
        read(ar__4,5)
     +  Teff_4,logg_4,J_KA,J_KAc,dJ_K,V_KA,V_KAc,dV_K,V_HpA,V_HpAc,
     +  dV_Hp,BT_VTA,BT_VTAc,dBT_VT
c    ..............Just test output...........
        write(6,5)
     +  Teff_4,logg_4,J_KA,J_KAc,dJ_K,V_KA,V_KAc,dV_K,V_HpA,V_HpAc,
     +  dV_Hp,BT_VTA,BT_VTAc,dBT_VT
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea6.dat'	! Colours and corrections for the 2MASS and
*                              Hipparcos-Tycho systems for metallicity [M/H]=-1.0

C  Format for file interpretation

    6 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea6.dat')
      write(6,*) '....Loading file: tablea6.dat'
      do i__=1,26
        read(1,'(A93)')ar__5
        read(ar__5,6)
     +  Teff_5,logg_5,J_KA_1,J_KAc_1,dJ_K_1,V_KA_1,V_KAc_1,dV_K_1,
     +  V_HpA_1,V_HpAc_1,dV_Hp_1,BT_VTA_1,BT_VTAc_1,dBT_VT_1
c    ..............Just test output...........
        write(6,6)
     +  Teff_5,logg_5,J_KA_1,J_KAc_1,dJ_K_1,V_KA_1,V_KAc_1,dV_K_1,
     +  V_HpA_1,V_HpAc_1,dV_Hp_1,BT_VTA_1,BT_VTAc_1,dBT_VT_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea7.dat'	! Colours and corrections for the 2MASS and
*                              Hipparcos-Tycho systems for metallicity [M/H]=-2.0

C  Format for file interpretation

    7 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea7.dat')
      write(6,*) '....Loading file: tablea7.dat'
      do i__=1,27
        read(1,'(A93)')ar__6
        read(ar__6,7)
     +  Teff_6,logg_6,J_KA_2,J_KAc_2,dJ_K_2,V_KA_2,V_KAc_2,dV_K_2,
     +  V_HpA_2,V_HpAc_2,dV_Hp_2,BT_VTA_2,BT_VTAc_2,dBT_VT_2
c    ..............Just test output...........
        write(6,7)
     +  Teff_6,logg_6,J_KA_2,J_KAc_2,dJ_K_2,V_KA_2,V_KAc_2,dV_K_2,
     +  V_HpA_2,V_HpAc_2,dV_Hp_2,BT_VTA_2,BT_VTAc_2,dBT_VT_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea8.dat'	! Colours and corrections for the 2MASS and
*                              Hipparcos-Tycho systems for metallicity [M/H]=-3.0

C  Format for file interpretation

    8 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea8.dat')
      write(6,*) '....Loading file: tablea8.dat'
      do i__=1,26
        read(1,'(A93)')ar__7
        read(ar__7,8)
     +  Teff_7,logg_7,J_KA_3,J_KAc_3,dJ_K_3,V_KA_3,V_KAc_3,dV_K_3,
     +  V_HpA_3,V_HpAc_3,dV_Hp_3,BT_VTA_3,BT_VTAc_3,dBT_VT_3
c    ..............Just test output...........
        write(6,8)
     +  Teff_7,logg_7,J_KA_3,J_KAc_3,dJ_K_3,V_KA_3,V_KAc_3,dV_K_3,
     +  V_HpA_3,V_HpAc_3,dV_Hp_3,BT_VTA_3,BT_VTAc_3,dBT_VT_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea9.dat'	! Colours and corrections for the Gaia system
*                              for metallicity [M/H]=0.0

C  Format for file interpretation

    9 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea9.dat')
      write(6,*) '....Loading file: tablea9.dat'
      do i__=1,27
        read(1,'(A93)')ar__8
        read(ar__8,9)
     +  Teff_8,logg_8,G_HpA,G_HpAc,dG_Hp,BP_RPA,BP_RPAc,dBP_RP,CaTA,
     +  CaTAc,dCaT,BolGA,BolGAc,dBolG
c    ..............Just test output...........
        write(6,9)
     +  Teff_8,logg_8,G_HpA,G_HpAc,dG_Hp,BP_RPA,BP_RPAc,dBP_RP,CaTA,
     +  CaTAc,dCaT,BolGA,BolGAc,dBolG
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea10.dat'	! Colours and corrections for the Gaia system
*                              for metallicity [M/H]=-1.0

C  Format for file interpretation

   10 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea10.dat')
      write(6,*) '....Loading file: tablea10.dat'
      do i__=1,26
        read(1,'(A93)')ar__9
        read(ar__9,10)
     +  Teff_9,logg_9,G_HpA_1,G_HpAc_1,dG_Hp_1,BP_RPA_1,BP_RPAc_1,
     +  dBP_RP_1,CaTA_1,CaTAc_1,dCaT_1,BolGA_1,BolGAc_1,dBolG_1
c    ..............Just test output...........
        write(6,10)
     +  Teff_9,logg_9,G_HpA_1,G_HpAc_1,dG_Hp_1,BP_RPA_1,BP_RPAc_1,
     +  dBP_RP_1,CaTA_1,CaTAc_1,dCaT_1,BolGA_1,BolGAc_1,dBolG_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea11.dat'	! Colours and corrections for the Gaia system
*                              for metallicity [M/H]=-2.0

C  Format for file interpretation

   11 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea11.dat')
      write(6,*) '....Loading file: tablea11.dat'
      do i__=1,27
        read(1,'(A93)')ar__10
        read(ar__10,11)
     +  Teff_10,logg_10,G_HpA_2,G_HpAc_2,dG_Hp_2,BP_RPA_2,BP_RPAc_2,
     +  dBP_RP_2,CaTA_2,CaTAc_2,dCaT_2,BolGA_2,BolGAc_2,dBolG_2
c    ..............Just test output...........
        write(6,11)
     +  Teff_10,logg_10,G_HpA_2,G_HpAc_2,dG_Hp_2,BP_RPA_2,BP_RPAc_2,
     +  dBP_RP_2,CaTA_2,CaTAc_2,dCaT_2,BolGA_2,BolGAc_2,dBolG_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea12.dat'	! Colours and corrections for the Gaia system
*                              for metallicity [M/H]=-3.0

C  Format for file interpretation

   12 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea12.dat')
      write(6,*) '....Loading file: tablea12.dat'
      do i__=1,27
        read(1,'(A93)')ar__11
        read(ar__11,12)
     +  Teff_11,logg_11,G_HpA_3,G_HpAc_3,dG_Hp_3,BP_RPA_3,BP_RPAc_3,
     +  dBP_RP_3,CaTA_3,CaTAc_3,dCaT_3,BolGA_3,BolGAc_3,dBolG_3
c    ..............Just test output...........
        write(6,12)
     +  Teff_11,logg_11,G_HpA_3,G_HpAc_3,dG_Hp_3,BP_RPA_3,BP_RPAc_3,
     +  dBP_RP_3,CaTA_3,CaTAc_3,dCaT_3,BolGA_3,BolGAc_3,dBolG_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea13.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
*                              and g-i for metallicity [M/H]=0.0

C  Format for file interpretation

   13 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea13.dat')
      write(6,*) '....Loading file: tablea13.dat'
      do i__=1,27
        read(1,'(A93)')ar__12
        read(ar__12,13)
     +  Teff_12,logg_12,u_gA,u_gAc,du_g,g_zA,g_zAc,dg_z,g_rA,g_rAc,
     +  dg_r,g_iA,g_iAc,dg_i
c    ..............Just test output...........
        write(6,13)
     +  Teff_12,logg_12,u_gA,u_gAc,du_g,g_zA,g_zAc,dg_z,g_rA,g_rAc,
     +  dg_r,g_iA,g_iAc,dg_i
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea14.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
*                              and g-i for metallicity [M/H]=-1.0

C  Format for file interpretation

   14 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea14.dat')
      write(6,*) '....Loading file: tablea14.dat'
      do i__=1,26
        read(1,'(A93)')ar__13
        read(ar__13,14)
     +  Teff_13,logg_13,u_gA_1,u_gAc_1,du_g_1,g_zA_1,g_zAc_1,dg_z_1,
     +  g_rA_1,g_rAc_1,dg_r_1,g_iA_1,g_iAc_1,dg_i_1
c    ..............Just test output...........
        write(6,14)
     +  Teff_13,logg_13,u_gA_1,u_gAc_1,du_g_1,g_zA_1,g_zAc_1,dg_z_1,
     +  g_rA_1,g_rAc_1,dg_r_1,g_iA_1,g_iAc_1,dg_i_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea15.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
*                              and g-i for metallicity [M/H]=-2.0

C  Format for file interpretation

   15 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea15.dat')
      write(6,*) '....Loading file: tablea15.dat'
      do i__=1,27
        read(1,'(A93)')ar__14
        read(ar__14,15)
     +  Teff_14,logg_14,u_gA_2,u_gAc_2,du_g_2,g_zA_2,g_zAc_2,dg_z_2,
     +  g_rA_2,g_rAc_2,dg_r_2,g_iA_2,g_iAc_2,dg_i_2
c    ..............Just test output...........
        write(6,15)
     +  Teff_14,logg_14,u_gA_2,u_gAc_2,du_g_2,g_zA_2,g_zAc_2,dg_z_2,
     +  g_rA_2,g_rAc_2,dg_r_2,g_iA_2,g_iAc_2,dg_i_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea16.dat'	! Colours and corrections for SDSS u-g, g-z, g-r
*                              and g-i for metallicity [M/H]=-3.0

C  Format for file interpretation

   16 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea16.dat')
      write(6,*) '....Loading file: tablea16.dat'
      do i__=1,27
        read(1,'(A93)')ar__15
        read(ar__15,16)
     +  Teff_15,logg_15,u_gA_3,u_gAc_3,du_g_3,g_zA_3,g_zAc_3,dg_z_3,
     +  g_rA_3,g_rAc_3,dg_r_3,g_iA_3,g_iAc_3,dg_i_3
c    ..............Just test output...........
        write(6,16)
     +  Teff_15,logg_15,u_gA_3,u_gAc_3,du_g_3,g_zA_3,g_zAc_3,dg_z_3,
     +  g_rA_3,g_rAc_3,dg_r_3,g_iA_3,g_iAc_3,dg_i_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea17.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
*                              and u-z for metallicity [M/H]=0.0

C  Format for file interpretation

   17 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea17.dat')
      write(6,*) '....Loading file: tablea17.dat'
      do i__=1,27
        read(1,'(A93)')ar__16
        read(ar__16,17)
     +  Teff_16,logg_16,r_iA,r_iAc,dr_i,i_zA,i_zAc,di_z,u_iA,u_iAc,
     +  du_i,u_zA,u_zAc,du_z
c    ..............Just test output...........
        write(6,17)
     +  Teff_16,logg_16,r_iA,r_iAc,dr_i,i_zA,i_zAc,di_z,u_iA,u_iAc,
     +  du_i,u_zA,u_zAc,du_z
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea18.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
*                              and u-z for metallicity [M/H]=-1.0

C  Format for file interpretation

   18 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea18.dat')
      write(6,*) '....Loading file: tablea18.dat'
      do i__=1,26
        read(1,'(A93)')ar__17
        read(ar__17,18)
     +  Teff_17,logg_17,r_iA_1,r_iAc_1,dr_i_1,i_zA_1,i_zAc_1,di_z_1,
     +  u_iA_1,u_iAc_1,du_i_1,u_zA_1,u_zAc_1,du_z_1
c    ..............Just test output...........
        write(6,18)
     +  Teff_17,logg_17,r_iA_1,r_iAc_1,dr_i_1,i_zA_1,i_zAc_1,di_z_1,
     +  u_iA_1,u_iAc_1,du_i_1,u_zA_1,u_zAc_1,du_z_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea19.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
*                              and u-z for metallicity [M/H]=-2.0

C  Format for file interpretation

   19 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea19.dat')
      write(6,*) '....Loading file: tablea19.dat'
      do i__=1,27
        read(1,'(A93)')ar__18
        read(ar__18,19)
     +  Teff_18,logg_18,r_iA_2,r_iAc_2,dr_i_2,i_zA_2,i_zAc_2,di_z_2,
     +  u_iA_2,u_iAc_2,du_i_2,u_zA_2,u_zAc_2,du_z_2
c    ..............Just test output...........
        write(6,19)
     +  Teff_18,logg_18,r_iA_2,r_iAc_2,dr_i_2,i_zA_2,i_zAc_2,di_z_2,
     +  u_iA_2,u_iAc_2,du_i_2,u_zA_2,u_zAc_2,du_z_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tablea20.dat'	! Colours and corrections for SDSS r-i, i-z, u-i
*                              and u-z for metallicity [M/H]=-3.0

C  Format for file interpretation

   20 format(
     +  I4,1X,F4.2,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)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea20.dat')
      write(6,*) '....Loading file: tablea20.dat'
      do i__=1,27
        read(1,'(A93)')ar__19
        read(ar__19,20)
     +  Teff_19,logg_19,r_iA_3,r_iAc_3,dr_i_3,i_zA_3,i_zAc_3,di_z_3,
     +  u_iA_3,u_iAc_3,du_i_3,u_zA_3,u_zAc_3,du_z_3
c    ..............Just test output...........
        write(6,20)
     +  Teff_19,logg_19,r_iA_3,r_iAc_3,dr_i_3,i_zA_3,i_zAc_3,di_z_3,
     +  u_iA_3,u_iAc_3,du_i_3,u_zA_3,u_zAc_3,du_z_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end