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