Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/611/A68 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-19
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 (nr__) ! (K) Effective temperature
real*4 logg (nr__) ! ([cm/s2]) Surface gravity
real*4 U_BA (nr__) ! (mag) ATLAS U-B colour correction
real*4 U_BAc (nr__) ! (mag) ATLAS U-B colour correction with 3D correction
* added to the ATLAS colour
real*4 dU_B (nr__) ! (mag) U-B correction difference, U-BA - U-BAc
real*4 B_VA (nr__) ! (mag) ATLAS B-V colour correction
real*4 B_VAc (nr__) ! (mag) ATLAS B-V colour correction with 3D correction
* added to the ATLAS colour
real*4 dB_V (nr__) ! (mag) B-V correction difference, B-VA - B-VAc
real*4 V_RA (nr__) ! (mag) ATLAS V-R colour correction
real*4 V_RAc (nr__) ! (mag) ATLAS V-R colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_R (nr__) ! (mag) V-R correction difference, V-RA - V-RAc
real*4 V_IA (nr__) ! (mag) ATLAS V-I colour correction
real*4 V_IAc (nr__) ! (mag) ATLAS V-I colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_I (nr__) ! (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 (nr__1) ! (K) Effective temperature
real*4 logg_1 (nr__1) ! ([cm/s2]) Surface gravity
real*4 U_BA_1 (nr__1) ! (mag) ATLAS U-B colour correction
real*4 U_BAc_1 (nr__1) ! (mag) ATLAS U-B colour correction with 3D correction
* added to the ATLAS colour
real*4 dU_B_1 (nr__1) ! (mag) U-B correction difference, U-BA - U-BAc
real*4 B_VA_1 (nr__1) ! (mag) ATLAS B-V colour correction
real*4 B_VAc_1 (nr__1) ! (mag) ATLAS B-V colour correction with 3D correction
* added to the ATLAS colour
real*4 dB_V_1 (nr__1) ! (mag) B-V correction difference, B-VA - B-VAc
real*4 V_RA_1 (nr__1) ! (mag) ATLAS V-R colour correction
real*4 V_RAc_1 (nr__1) ! (mag) ATLAS V-R colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_R_1 (nr__1) ! (mag) V-R correction difference, V-RA - V-RAc
real*4 V_IA_1 (nr__1) ! (mag) ATLAS V-I colour correction
real*4 V_IAc_1 (nr__1) ! (mag) ATLAS V-I colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_I_1 (nr__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 (nr__2) ! (K) Effective temperature
real*4 logg_2 (nr__2) ! ([cm/s2]) Surface gravity
real*4 U_BA_2 (nr__2) ! (mag) ATLAS U-B colour correction
real*4 U_BAc_2 (nr__2) ! (mag) ATLAS U-B colour correction with 3D correction
* added to the ATLAS colour
real*4 dU_B_2 (nr__2) ! (mag) U-B correction difference, U-BA - U-BAc
real*4 B_VA_2 (nr__2) ! (mag) ATLAS B-V colour correction
real*4 B_VAc_2 (nr__2) ! (mag) ATLAS B-V colour correction with 3D correction
* added to the ATLAS colour
real*4 dB_V_2 (nr__2) ! (mag) B-V correction difference, B-VA - B-VAc
real*4 V_RA_2 (nr__2) ! (mag) ATLAS V-R colour correction
real*4 V_RAc_2 (nr__2) ! (mag) ATLAS V-R colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_R_2 (nr__2) ! (mag) V-R correction difference, V-RA - V-RAc
real*4 V_IA_2 (nr__2) ! (mag) ATLAS V-I colour correction
real*4 V_IAc_2 (nr__2) ! (mag) ATLAS V-I colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_I_2 (nr__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 (nr__3) ! (K) Effective temperature
real*4 logg_3 (nr__3) ! ([cm/s2]) Surface gravity
real*4 U_BA_3 (nr__3) ! (mag) ATLAS U-B colour correction
real*4 U_BAc_3 (nr__3) ! (mag) ATLAS U-B colour correction with 3D correction
* added to the ATLAS colour
real*4 dU_B_3 (nr__3) ! (mag) U-B correction difference, U-BA - U-BAc
real*4 B_VA_3 (nr__3) ! (mag) ATLAS B-V colour correction
real*4 B_VAc_3 (nr__3) ! (mag) ATLAS B-V colour correction with 3D correction
* added to the ATLAS colour
real*4 dB_V_3 (nr__3) ! (mag) B-V correction difference, B-VA - B-VAc
real*4 V_RA_3 (nr__3) ! (mag) ATLAS V-R colour correction
real*4 V_RAc_3 (nr__3) ! (mag) ATLAS V-R colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_R_3 (nr__3) ! (mag) V-R correction difference, V-RA - V-RAc
real*4 V_IA_3 (nr__3) ! (mag) ATLAS V-I colour correction
real*4 V_IAc_3 (nr__3) ! (mag) ATLAS V-I colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_I_3 (nr__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 (nr__4) ! (K) Effective temperature
real*4 logg_4 (nr__4) ! ([cm/s2]) Surface gravity
real*4 J_KA (nr__4) ! (mag) ATLAS J-K colour correction
real*4 J_KAc (nr__4) ! (mag) ATLAS J-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dJ_K (nr__4) ! (mag) J-K correction difference, J-KA - J-KAc
real*4 V_KA (nr__4) ! (mag) ATLAS V-K colour correction
real*4 V_KAc (nr__4) ! (mag) ATLAS V-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_K (nr__4) ! (mag) B-K correction difference, V-KA - V-KAc
real*4 V_HpA (nr__4) ! (mag) ATLAS V-Hp colour correction
real*4 V_HpAc (nr__4) ! (mag) ATLAS V-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_Hp (nr__4) ! (mag) V-Hp correction colour difference,
* V-HpA - V-HpAc
real*4 BT_VTA (nr__4) ! (mag) ATLAS BT-VT colour correction
real*4 BT_VTAc (nr__4) ! (mag) ATLAS BT-VT colour correction with 3D correction
* added to the ATLAS colour
real*4 dBT_VT (nr__4) ! (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 (nr__5) ! (K) Effective temperature
real*4 logg_5 (nr__5) ! ([cm/s2]) Surface gravity
real*4 J_KA_1 (nr__5) ! (mag) ATLAS J-K colour correction
real*4 J_KAc_1 (nr__5) ! (mag) ATLAS J-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dJ_K_1 (nr__5) ! (mag) J-K correction difference, J-KA - J-KAc
real*4 V_KA_1 (nr__5) ! (mag) ATLAS V-K colour correction
real*4 V_KAc_1 (nr__5) ! (mag) ATLAS V-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_K_1 (nr__5) ! (mag) B-K correction difference, V-KA - V-KAc
real*4 V_HpA_1 (nr__5) ! (mag) ATLAS V-Hp colour correction
real*4 V_HpAc_1 (nr__5) ! (mag) ATLAS V-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_Hp_1 (nr__5) ! (mag) V-Hp correction colour difference,
* V-HpA - V-HpAc
real*4 BT_VTA_1 (nr__5) ! (mag) ATLAS BT-VT colour correction
real*4 BT_VTAc_1 (nr__5) ! (mag) ATLAS BT-VT colour correction with 3D correction
* added to the ATLAS colour
real*4 dBT_VT_1 (nr__5) ! (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 (nr__6) ! (K) Effective temperature
real*4 logg_6 (nr__6) ! ([cm/s2]) Surface gravity
real*4 J_KA_2 (nr__6) ! (mag) ATLAS J-K colour correction
real*4 J_KAc_2 (nr__6) ! (mag) ATLAS J-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dJ_K_2 (nr__6) ! (mag) J-K correction difference, J-KA - J-KAc
real*4 V_KA_2 (nr__6) ! (mag) ATLAS V-K colour correction
real*4 V_KAc_2 (nr__6) ! (mag) ATLAS V-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_K_2 (nr__6) ! (mag) B-K correction difference, V-KA - V-KAc
real*4 V_HpA_2 (nr__6) ! (mag) ATLAS V-Hp colour correction
real*4 V_HpAc_2 (nr__6) ! (mag) ATLAS V-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_Hp_2 (nr__6) ! (mag) V-Hp correction colour difference,
* V-HpA - V-HpAc
real*4 BT_VTA_2 (nr__6) ! (mag) ATLAS BT-VT colour correction
real*4 BT_VTAc_2 (nr__6) ! (mag) ATLAS BT-VT colour correction with 3D correction
* added to the ATLAS colour
real*4 dBT_VT_2 (nr__6) ! (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 (nr__7) ! (K) Effective temperature
real*4 logg_7 (nr__7) ! ([cm/s2]) Surface gravity
real*4 J_KA_3 (nr__7) ! (mag) ATLAS J-K colour correction
real*4 J_KAc_3 (nr__7) ! (mag) ATLAS J-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dJ_K_3 (nr__7) ! (mag) J-K correction difference, J-KA - J-KAc
real*4 V_KA_3 (nr__7) ! (mag) ATLAS V-K colour correction
real*4 V_KAc_3 (nr__7) ! (mag) ATLAS V-K colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_K_3 (nr__7) ! (mag) B-K correction difference, V-KA - V-KAc
real*4 V_HpA_3 (nr__7) ! (mag) ATLAS V-Hp colour correction
real*4 V_HpAc_3 (nr__7) ! (mag) ATLAS V-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dV_Hp_3 (nr__7) ! (mag) V-Hp correction colour difference,
* V-HpA - V-HpAc
real*4 BT_VTA_3 (nr__7) ! (mag) ATLAS BT-VT colour correction
real*4 BT_VTAc_3 (nr__7) ! (mag) ATLAS BT-VT colour correction with 3D correction
* added to the ATLAS colour
real*4 dBT_VT_3 (nr__7) ! (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 (nr__8) ! (K) Effective temperature
real*4 logg_8 (nr__8) ! ([cm/s2]) Surface gravity
real*4 G_HpA (nr__8) ! (mag) ATLAS G-Hp colour correction
real*4 G_HpAc (nr__8) ! (mag) ATLAS G-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dG_Hp (nr__8) ! (mag) G-Hp correction difference,
* G-HpA - G-HpAc
real*4 BP_RPA (nr__8) ! (mag) ATLAS BT-RP colour correction
real*4 BP_RPAc (nr__8) ! (mag) ATLAS BT-RP colour correction with 3D
* correction added to the ATLAS colour
real*4 dBP_RP (nr__8) ! (mag) BP-RP correction difference,
* BP-RPA - BP-RPAc
real*4 CaTA (nr__8) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
real*4 CaTAc (nr__8) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
* with 3D correction added to the ATLAS colour
real*4 dCaT (nr__8) ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
* CaTA - CaTAc
real*4 BolGA (nr__8) ! (mag) ATLAS bolometric correction
real*4 BolGAc (nr__8) ! (mag) ATLAS bolometric correction with 3D correction
* added to the ATLAS colour
real*4 dBolG (nr__8) ! (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 (nr__9) ! (K) Effective temperature
real*4 logg_9 (nr__9) ! ([cm/s2]) Surface gravity
real*4 G_HpA_1 (nr__9) ! (mag) ATLAS G-Hp colour correction
real*4 G_HpAc_1 (nr__9) ! (mag) ATLAS G-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dG_Hp_1 (nr__9) ! (mag) G-Hp correction difference,
* G-HpA - G-HpAc
real*4 BP_RPA_1 (nr__9) ! (mag) ATLAS BT-RP colour correction
real*4 BP_RPAc_1 (nr__9) ! (mag) ATLAS BT-RP colour correction with 3D
* correction added to the ATLAS colour
real*4 dBP_RP_1 (nr__9) ! (mag) BP-RP correction difference,
* BP-RPA - BP-RPAc
real*4 CaTA_1 (nr__9) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
real*4 CaTAc_1 (nr__9) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
* with 3D correction added to the ATLAS colour
real*4 dCaT_1 (nr__9) ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
* CaTA - CaTAc
real*4 BolGA_1 (nr__9) ! (mag) ATLAS bolometric correction
real*4 BolGAc_1 (nr__9) ! (mag) ATLAS bolometric correction with 3D correction
* added to the ATLAS colour
real*4 dBolG_1 (nr__9) ! (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 (nr__10) ! (K) Effective temperature
real*4 logg_10 (nr__10) ! ([cm/s2]) Surface gravity
real*4 G_HpA_2 (nr__10) ! (mag) ATLAS G-Hp colour correction
real*4 G_HpAc_2 (nr__10) ! (mag) ATLAS G-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dG_Hp_2 (nr__10) ! (mag) G-Hp correction difference,
* G-HpA - G-HpAc
real*4 BP_RPA_2 (nr__10) ! (mag) ATLAS BT-RP colour correction
real*4 BP_RPAc_2 (nr__10) ! (mag) ATLAS BT-RP colour correction with 3D
* correction added to the ATLAS colour
real*4 dBP_RP_2 (nr__10) ! (mag) BP-RP correction difference,
* BP-RPA - BP-RPAc
real*4 CaTA_2 (nr__10) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
real*4 CaTAc_2 (nr__10) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
* with 3D correction added to the ATLAS colour
real*4 dCaT_2 (nr__10) ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
* CaTA - CaTAc
real*4 BolGA_2 (nr__10) ! (mag) ATLAS bolometric correction
real*4 BolGAc_2 (nr__10) ! (mag) ATLAS bolometric correction with 3D correction
* added to the ATLAS colour
real*4 dBolG_2 (nr__10) ! (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 (nr__11) ! (K) Effective temperature
real*4 logg_11 (nr__11) ! ([cm/s2]) Surface gravity
real*4 G_HpA_3 (nr__11) ! (mag) ATLAS G-Hp colour correction
real*4 G_HpAc_3 (nr__11) ! (mag) ATLAS G-Hp colour correction with 3D correction
* added to the ATLAS colour
real*4 dG_Hp_3 (nr__11) ! (mag) G-Hp correction difference,
* G-HpA - G-HpAc
real*4 BP_RPA_3 (nr__11) ! (mag) ATLAS BT-RP colour correction
real*4 BP_RPAc_3 (nr__11) ! (mag) ATLAS BT-RP colour correction with 3D
* correction added to the ATLAS colour
real*4 dBP_RP_3 (nr__11) ! (mag) BP-RP correction difference,
* BP-RPA - BP-RPAc
real*4 CaTA_3 (nr__11) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
real*4 CaTAc_3 (nr__11) ! (mag) ATLAS CaT (=(G-RVS)-(BP-RP)) colour correction
* with 3D correction added to the ATLAS colour
real*4 dCaT_3 (nr__11) ! (mag) CaT (=(G-RVS)-(BP-RP)) correction difference,
* CaTA - CaTAc
real*4 BolGA_3 (nr__11) ! (mag) ATLAS bolometric correction
real*4 BolGAc_3 (nr__11) ! (mag) ATLAS bolometric correction with 3D correction
* added to the ATLAS colour
real*4 dBolG_3 (nr__11) ! (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 (nr__12) ! (K) Effective temperature
real*4 logg_12 (nr__12) ! ([cm/s2]) Surface gravity
real*4 u_gA (nr__12) ! (mag) ATLAS u-g colour correction
real*4 u_gAc (nr__12) ! (mag) ATLAS u-g colour correction with 3D correction
* added to the ATLAS colour
real*4 du_g (nr__12) ! (mag) u-g correction difference, u-gA - u-gAc
real*4 g_zA (nr__12) ! (mag) ATLAS g-z colour correction
real*4 g_zAc (nr__12) ! (mag) ATLAS g-z colour correction with 3D
* correction added to the ATLAS colour
real*4 dg_z (nr__12) ! (mag) g-z correction difference, g-zA - g-zAc
real*4 g_rA (nr__12) ! (mag) ATLAS g-r colour correction
real*4 g_rAc (nr__12) ! (mag) ATLAS g-r colour correction
* with 3D correction added to the ATLAS colour
real*4 dg_r (nr__12) ! (mag) g-r correction difference, g-rA - g-rAc
real*4 g_iA (nr__12) ! (mag) ATLAS g-i colour correction
real*4 g_iAc (nr__12) ! (mag) ATLAS g-i colour correction with 3D correction
* been added to the ATLAS colour
real*4 dg_i (nr__12) ! (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 (nr__13) ! (K) Effective temperature
real*4 logg_13 (nr__13) ! ([cm/s2]) Surface gravity
real*4 u_gA_1 (nr__13) ! (mag) ATLAS u-g colour correction
real*4 u_gAc_1 (nr__13) ! (mag) ATLAS u-g colour correction with 3D correction
* added to the ATLAS colour
real*4 du_g_1 (nr__13) ! (mag) u-g correction difference, u-gA - u-gAc
real*4 g_zA_1 (nr__13) ! (mag) ATLAS g-z colour correction
real*4 g_zAc_1 (nr__13) ! (mag) ATLAS g-z colour correction with 3D
* correction added to the ATLAS colour
real*4 dg_z_1 (nr__13) ! (mag) g-z correction difference, g-zA - g-zAc
real*4 g_rA_1 (nr__13) ! (mag) ATLAS g-r colour correction
real*4 g_rAc_1 (nr__13) ! (mag) ATLAS g-r colour correction
* with 3D correction added to the ATLAS colour
real*4 dg_r_1 (nr__13) ! (mag) g-r correction difference, g-rA - g-rAc
real*4 g_iA_1 (nr__13) ! (mag) ATLAS g-i colour correction
real*4 g_iAc_1 (nr__13) ! (mag) ATLAS g-i colour correction with 3D correction
* been added to the ATLAS colour
real*4 dg_i_1 (nr__13) ! (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 (nr__14) ! (K) Effective temperature
real*4 logg_14 (nr__14) ! ([cm/s2]) Surface gravity
real*4 u_gA_2 (nr__14) ! (mag) ATLAS u-g colour correction
real*4 u_gAc_2 (nr__14) ! (mag) ATLAS u-g colour correction with 3D correction
* added to the ATLAS colour
real*4 du_g_2 (nr__14) ! (mag) u-g correction difference, u-gA - u-gAc
real*4 g_zA_2 (nr__14) ! (mag) ATLAS g-z colour correction
real*4 g_zAc_2 (nr__14) ! (mag) ATLAS g-z colour correction with 3D
* correction added to the ATLAS colour
real*4 dg_z_2 (nr__14) ! (mag) g-z correction difference, g-zA - g-zAc
real*4 g_rA_2 (nr__14) ! (mag) ATLAS g-r colour correction
real*4 g_rAc_2 (nr__14) ! (mag) ATLAS g-r colour correction
* with 3D correction added to the ATLAS colour
real*4 dg_r_2 (nr__14) ! (mag) g-r correction difference, g-rA - g-rAc
real*4 g_iA_2 (nr__14) ! (mag) ATLAS g-i colour correction
real*4 g_iAc_2 (nr__14) ! (mag) ATLAS g-i colour correction with 3D correction
* been added to the ATLAS colour
real*4 dg_i_2 (nr__14) ! (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 (nr__15) ! (K) Effective temperature
real*4 logg_15 (nr__15) ! ([cm/s2]) Surface gravity
real*4 u_gA_3 (nr__15) ! (mag) ATLAS u-g colour correction
real*4 u_gAc_3 (nr__15) ! (mag) ATLAS u-g colour correction with 3D correction
* added to the ATLAS colour
real*4 du_g_3 (nr__15) ! (mag) u-g correction difference, u-gA - u-gAc
real*4 g_zA_3 (nr__15) ! (mag) ATLAS g-z colour correction
real*4 g_zAc_3 (nr__15) ! (mag) ATLAS g-z colour correction with 3D
* correction added to the ATLAS colour
real*4 dg_z_3 (nr__15) ! (mag) g-z correction difference, g-zA - g-zAc
real*4 g_rA_3 (nr__15) ! (mag) ATLAS g-r colour correction
real*4 g_rAc_3 (nr__15) ! (mag) ATLAS g-r colour correction
* with 3D correction added to the ATLAS colour
real*4 dg_r_3 (nr__15) ! (mag) g-r correction difference, g-rA - g-rAc
real*4 g_iA_3 (nr__15) ! (mag) ATLAS g-i colour correction
real*4 g_iAc_3 (nr__15) ! (mag) ATLAS g-i colour correction with 3D correction
* been added to the ATLAS colour
real*4 dg_i_3 (nr__15) ! (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 (nr__16) ! (K) Effective temperature
real*4 logg_16 (nr__16) ! ([cm/s2]) Surface gravity
real*4 r_iA (nr__16) ! (mag) ATLAS r-i colour correction
real*4 r_iAc (nr__16) ! (mag) ATLAS r-i colour correction with 3D correction
* added to the ATLAS colour
real*4 dr_i (nr__16) ! (mag) r-i correction colour difference, r-iA - r-iAc
real*4 i_zA (nr__16) ! (mag) ATLAS i-z colour correction
real*4 i_zAc (nr__16) ! (mag) ATLAS i-z colour correction with 3D correction
* added to the ATLAS colour
real*4 di_z (nr__16) ! (mag) i-z correction colour difference, i-zA - i-zAc
real*4 u_iA (nr__16) ! (mag) ATLAS u-i colour correction
real*4 u_iAc (nr__16) ! (mag) ATLAS u-i colour correction with 3D correction
* added to the ATLAS colour
real*4 du_i (nr__16) ! (mag) u-i correction colour difference, u-iA - u-iAc
real*4 u_zA (nr__16) ! (mag) ATLAS u-z colour correction
real*4 u_zAc (nr__16) ! (mag) ATLAS u-z colour correction with 3D correction
* added to the ATLAS colour
real*4 du_z (nr__16) ! (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 (nr__17) ! (K) Effective temperature
real*4 logg_17 (nr__17) ! ([cm/s2]) Surface gravity
real*4 r_iA_1 (nr__17) ! (mag) ATLAS r-i colour correction
real*4 r_iAc_1 (nr__17) ! (mag) ATLAS r-i colour correction with 3D correction
* added to the ATLAS colour
real*4 dr_i_1 (nr__17) ! (mag) r-i correction colour difference, r-iA - r-iAc
real*4 i_zA_1 (nr__17) ! (mag) ATLAS i-z colour correction
real*4 i_zAc_1 (nr__17) ! (mag) ATLAS i-z colour correction with 3D correction
* added to the ATLAS colour
real*4 di_z_1 (nr__17) ! (mag) i-z correction colour difference, i-zA - i-zAc
real*4 u_iA_1 (nr__17) ! (mag) ATLAS u-i colour correction
real*4 u_iAc_1 (nr__17) ! (mag) ATLAS u-i colour correction with 3D correction
* added to the ATLAS colour
real*4 du_i_1 (nr__17) ! (mag) u-i correction colour difference, u-iA - u-iAc
real*4 u_zA_1 (nr__17) ! (mag) ATLAS u-z colour correction
real*4 u_zAc_1 (nr__17) ! (mag) ATLAS u-z colour correction with 3D correction
* added to the ATLAS colour
real*4 du_z_1 (nr__17) ! (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 (nr__18) ! (K) Effective temperature
real*4 logg_18 (nr__18) ! ([cm/s2]) Surface gravity
real*4 r_iA_2 (nr__18) ! (mag) ATLAS r-i colour correction
real*4 r_iAc_2 (nr__18) ! (mag) ATLAS r-i colour correction with 3D correction
* added to the ATLAS colour
real*4 dr_i_2 (nr__18) ! (mag) r-i correction colour difference, r-iA - r-iAc
real*4 i_zA_2 (nr__18) ! (mag) ATLAS i-z colour correction
real*4 i_zAc_2 (nr__18) ! (mag) ATLAS i-z colour correction with 3D correction
* added to the ATLAS colour
real*4 di_z_2 (nr__18) ! (mag) i-z correction colour difference, i-zA - i-zAc
real*4 u_iA_2 (nr__18) ! (mag) ATLAS u-i colour correction
real*4 u_iAc_2 (nr__18) ! (mag) ATLAS u-i colour correction with 3D correction
* added to the ATLAS colour
real*4 du_i_2 (nr__18) ! (mag) u-i correction colour difference, u-iA - u-iAc
real*4 u_zA_2 (nr__18) ! (mag) ATLAS u-z colour correction
real*4 u_zAc_2 (nr__18) ! (mag) ATLAS u-z colour correction with 3D correction
* added to the ATLAS colour
real*4 du_z_2 (nr__18) ! (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 (nr__19) ! (K) Effective temperature
real*4 logg_19 (nr__19) ! ([cm/s2]) Surface gravity
real*4 r_iA_3 (nr__19) ! (mag) ATLAS r-i colour correction
real*4 r_iAc_3 (nr__19) ! (mag) ATLAS r-i colour correction with 3D correction
* added to the ATLAS colour
real*4 dr_i_3 (nr__19) ! (mag) r-i correction colour difference, r-iA - r-iAc
real*4 i_zA_3 (nr__19) ! (mag) ATLAS i-z colour correction
real*4 i_zAc_3 (nr__19) ! (mag) ATLAS i-z colour correction with 3D correction
* added to the ATLAS colour
real*4 di_z_3 (nr__19) ! (mag) i-z correction colour difference, i-zA - i-zAc
real*4 u_iA_3 (nr__19) ! (mag) ATLAS u-i colour correction
real*4 u_iAc_3 (nr__19) ! (mag) ATLAS u-i colour correction with 3D correction
* added to the ATLAS colour
real*4 du_i_3 (nr__19) ! (mag) u-i correction colour difference, u-iA - u-iAc
real*4 u_zA_3 (nr__19) ! (mag) ATLAS u-z colour correction
real*4 u_zAc_3 (nr__19) ! (mag) ATLAS u-z colour correction with 3D correction
* added to the ATLAS colour
real*4 du_z_3 (nr__19) ! (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(i__),logg(i__),U_BA(i__),U_BAc(i__),dU_B(i__),B_VA(i__),
+ B_VAc(i__),dB_V(i__),V_RA(i__),V_RAc(i__),dV_R(i__),V_IA(i__),
+ V_IAc(i__),dV_I(i__)
c ..............Just test output...........
write(6,1)
+ Teff(i__),logg(i__),U_BA(i__),U_BAc(i__),dU_B(i__),B_VA(i__),
+ B_VAc(i__),dB_V(i__),V_RA(i__),V_RAc(i__),dV_R(i__),V_IA(i__),
+ V_IAc(i__),dV_I(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(i__),logg_1(i__),U_BA_1(i__),U_BAc_1(i__),dU_B_1(i__),
+ B_VA_1(i__),B_VAc_1(i__),dB_V_1(i__),V_RA_1(i__),V_RAc_1(i__),
+ dV_R_1(i__),V_IA_1(i__),V_IAc_1(i__),dV_I_1(i__)
c ..............Just test output...........
write(6,2)
+ Teff_1(i__),logg_1(i__),U_BA_1(i__),U_BAc_1(i__),dU_B_1(i__),
+ B_VA_1(i__),B_VAc_1(i__),dB_V_1(i__),V_RA_1(i__),V_RAc_1(i__),
+ dV_R_1(i__),V_IA_1(i__),V_IAc_1(i__),dV_I_1(i__)
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(i__),logg_2(i__),U_BA_2(i__),U_BAc_2(i__),dU_B_2(i__),
+ B_VA_2(i__),B_VAc_2(i__),dB_V_2(i__),V_RA_2(i__),V_RAc_2(i__),
+ dV_R_2(i__),V_IA_2(i__),V_IAc_2(i__),dV_I_2(i__)
c ..............Just test output...........
write(6,3)
+ Teff_2(i__),logg_2(i__),U_BA_2(i__),U_BAc_2(i__),dU_B_2(i__),
+ B_VA_2(i__),B_VAc_2(i__),dB_V_2(i__),V_RA_2(i__),V_RAc_2(i__),
+ dV_R_2(i__),V_IA_2(i__),V_IAc_2(i__),dV_I_2(i__)
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(i__),logg_3(i__),U_BA_3(i__),U_BAc_3(i__),dU_B_3(i__),
+ B_VA_3(i__),B_VAc_3(i__),dB_V_3(i__),V_RA_3(i__),V_RAc_3(i__),
+ dV_R_3(i__),V_IA_3(i__),V_IAc_3(i__),dV_I_3(i__)
c ..............Just test output...........
write(6,4)
+ Teff_3(i__),logg_3(i__),U_BA_3(i__),U_BAc_3(i__),dU_B_3(i__),
+ B_VA_3(i__),B_VAc_3(i__),dB_V_3(i__),V_RA_3(i__),V_RAc_3(i__),
+ dV_R_3(i__),V_IA_3(i__),V_IAc_3(i__),dV_I_3(i__)
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(i__),logg_4(i__),J_KA(i__),J_KAc(i__),dJ_K(i__),
+ V_KA(i__),V_KAc(i__),dV_K(i__),V_HpA(i__),V_HpAc(i__),
+ dV_Hp(i__),BT_VTA(i__),BT_VTAc(i__),dBT_VT(i__)
c ..............Just test output...........
write(6,5)
+ Teff_4(i__),logg_4(i__),J_KA(i__),J_KAc(i__),dJ_K(i__),
+ V_KA(i__),V_KAc(i__),dV_K(i__),V_HpA(i__),V_HpAc(i__),
+ dV_Hp(i__),BT_VTA(i__),BT_VTAc(i__),dBT_VT(i__)
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(i__),logg_5(i__),J_KA_1(i__),J_KAc_1(i__),dJ_K_1(i__),
+ V_KA_1(i__),V_KAc_1(i__),dV_K_1(i__),V_HpA_1(i__),
+ V_HpAc_1(i__),dV_Hp_1(i__),BT_VTA_1(i__),BT_VTAc_1(i__),
+ dBT_VT_1(i__)
c ..............Just test output...........
write(6,6)
+ Teff_5(i__),logg_5(i__),J_KA_1(i__),J_KAc_1(i__),dJ_K_1(i__),
+ V_KA_1(i__),V_KAc_1(i__),dV_K_1(i__),V_HpA_1(i__),
+ V_HpAc_1(i__),dV_Hp_1(i__),BT_VTA_1(i__),BT_VTAc_1(i__),
+ dBT_VT_1(i__)
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(i__),logg_6(i__),J_KA_2(i__),J_KAc_2(i__),dJ_K_2(i__),
+ V_KA_2(i__),V_KAc_2(i__),dV_K_2(i__),V_HpA_2(i__),
+ V_HpAc_2(i__),dV_Hp_2(i__),BT_VTA_2(i__),BT_VTAc_2(i__),
+ dBT_VT_2(i__)
c ..............Just test output...........
write(6,7)
+ Teff_6(i__),logg_6(i__),J_KA_2(i__),J_KAc_2(i__),dJ_K_2(i__),
+ V_KA_2(i__),V_KAc_2(i__),dV_K_2(i__),V_HpA_2(i__),
+ V_HpAc_2(i__),dV_Hp_2(i__),BT_VTA_2(i__),BT_VTAc_2(i__),
+ dBT_VT_2(i__)
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(i__),logg_7(i__),J_KA_3(i__),J_KAc_3(i__),dJ_K_3(i__),
+ V_KA_3(i__),V_KAc_3(i__),dV_K_3(i__),V_HpA_3(i__),
+ V_HpAc_3(i__),dV_Hp_3(i__),BT_VTA_3(i__),BT_VTAc_3(i__),
+ dBT_VT_3(i__)
c ..............Just test output...........
write(6,8)
+ Teff_7(i__),logg_7(i__),J_KA_3(i__),J_KAc_3(i__),dJ_K_3(i__),
+ V_KA_3(i__),V_KAc_3(i__),dV_K_3(i__),V_HpA_3(i__),
+ V_HpAc_3(i__),dV_Hp_3(i__),BT_VTA_3(i__),BT_VTAc_3(i__),
+ dBT_VT_3(i__)
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(i__),logg_8(i__),G_HpA(i__),G_HpAc(i__),dG_Hp(i__),
+ BP_RPA(i__),BP_RPAc(i__),dBP_RP(i__),CaTA(i__),CaTAc(i__),
+ dCaT(i__),BolGA(i__),BolGAc(i__),dBolG(i__)
c ..............Just test output...........
write(6,9)
+ Teff_8(i__),logg_8(i__),G_HpA(i__),G_HpAc(i__),dG_Hp(i__),
+ BP_RPA(i__),BP_RPAc(i__),dBP_RP(i__),CaTA(i__),CaTAc(i__),
+ dCaT(i__),BolGA(i__),BolGAc(i__),dBolG(i__)
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(i__),logg_9(i__),G_HpA_1(i__),G_HpAc_1(i__),
+ dG_Hp_1(i__),BP_RPA_1(i__),BP_RPAc_1(i__),dBP_RP_1(i__),
+ CaTA_1(i__),CaTAc_1(i__),dCaT_1(i__),BolGA_1(i__),
+ BolGAc_1(i__),dBolG_1(i__)
c ..............Just test output...........
write(6,10)
+ Teff_9(i__),logg_9(i__),G_HpA_1(i__),G_HpAc_1(i__),
+ dG_Hp_1(i__),BP_RPA_1(i__),BP_RPAc_1(i__),dBP_RP_1(i__),
+ CaTA_1(i__),CaTAc_1(i__),dCaT_1(i__),BolGA_1(i__),
+ BolGAc_1(i__),dBolG_1(i__)
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(i__),logg_10(i__),G_HpA_2(i__),G_HpAc_2(i__),
+ dG_Hp_2(i__),BP_RPA_2(i__),BP_RPAc_2(i__),dBP_RP_2(i__),
+ CaTA_2(i__),CaTAc_2(i__),dCaT_2(i__),BolGA_2(i__),
+ BolGAc_2(i__),dBolG_2(i__)
c ..............Just test output...........
write(6,11)
+ Teff_10(i__),logg_10(i__),G_HpA_2(i__),G_HpAc_2(i__),
+ dG_Hp_2(i__),BP_RPA_2(i__),BP_RPAc_2(i__),dBP_RP_2(i__),
+ CaTA_2(i__),CaTAc_2(i__),dCaT_2(i__),BolGA_2(i__),
+ BolGAc_2(i__),dBolG_2(i__)
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(i__),logg_11(i__),G_HpA_3(i__),G_HpAc_3(i__),
+ dG_Hp_3(i__),BP_RPA_3(i__),BP_RPAc_3(i__),dBP_RP_3(i__),
+ CaTA_3(i__),CaTAc_3(i__),dCaT_3(i__),BolGA_3(i__),
+ BolGAc_3(i__),dBolG_3(i__)
c ..............Just test output...........
write(6,12)
+ Teff_11(i__),logg_11(i__),G_HpA_3(i__),G_HpAc_3(i__),
+ dG_Hp_3(i__),BP_RPA_3(i__),BP_RPAc_3(i__),dBP_RP_3(i__),
+ CaTA_3(i__),CaTAc_3(i__),dCaT_3(i__),BolGA_3(i__),
+ BolGAc_3(i__),dBolG_3(i__)
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(i__),logg_12(i__),u_gA(i__),u_gAc(i__),du_g(i__),
+ g_zA(i__),g_zAc(i__),dg_z(i__),g_rA(i__),g_rAc(i__),dg_r(i__),
+ g_iA(i__),g_iAc(i__),dg_i(i__)
c ..............Just test output...........
write(6,13)
+ Teff_12(i__),logg_12(i__),u_gA(i__),u_gAc(i__),du_g(i__),
+ g_zA(i__),g_zAc(i__),dg_z(i__),g_rA(i__),g_rAc(i__),dg_r(i__),
+ g_iA(i__),g_iAc(i__),dg_i(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(i__),logg_13(i__),u_gA_1(i__),u_gAc_1(i__),
+ du_g_1(i__),g_zA_1(i__),g_zAc_1(i__),dg_z_1(i__),g_rA_1(i__),
+ g_rAc_1(i__),dg_r_1(i__),g_iA_1(i__),g_iAc_1(i__),dg_i_1(i__)
c ..............Just test output...........
write(6,14)
+ Teff_13(i__),logg_13(i__),u_gA_1(i__),u_gAc_1(i__),
+ du_g_1(i__),g_zA_1(i__),g_zAc_1(i__),dg_z_1(i__),g_rA_1(i__),
+ g_rAc_1(i__),dg_r_1(i__),g_iA_1(i__),g_iAc_1(i__),dg_i_1(i__)
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(i__),logg_14(i__),u_gA_2(i__),u_gAc_2(i__),
+ du_g_2(i__),g_zA_2(i__),g_zAc_2(i__),dg_z_2(i__),g_rA_2(i__),
+ g_rAc_2(i__),dg_r_2(i__),g_iA_2(i__),g_iAc_2(i__),dg_i_2(i__)
c ..............Just test output...........
write(6,15)
+ Teff_14(i__),logg_14(i__),u_gA_2(i__),u_gAc_2(i__),
+ du_g_2(i__),g_zA_2(i__),g_zAc_2(i__),dg_z_2(i__),g_rA_2(i__),
+ g_rAc_2(i__),dg_r_2(i__),g_iA_2(i__),g_iAc_2(i__),dg_i_2(i__)
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(i__),logg_15(i__),u_gA_3(i__),u_gAc_3(i__),
+ du_g_3(i__),g_zA_3(i__),g_zAc_3(i__),dg_z_3(i__),g_rA_3(i__),
+ g_rAc_3(i__),dg_r_3(i__),g_iA_3(i__),g_iAc_3(i__),dg_i_3(i__)
c ..............Just test output...........
write(6,16)
+ Teff_15(i__),logg_15(i__),u_gA_3(i__),u_gAc_3(i__),
+ du_g_3(i__),g_zA_3(i__),g_zAc_3(i__),dg_z_3(i__),g_rA_3(i__),
+ g_rAc_3(i__),dg_r_3(i__),g_iA_3(i__),g_iAc_3(i__),dg_i_3(i__)
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(i__),logg_16(i__),r_iA(i__),r_iAc(i__),dr_i(i__),
+ i_zA(i__),i_zAc(i__),di_z(i__),u_iA(i__),u_iAc(i__),du_i(i__),
+ u_zA(i__),u_zAc(i__),du_z(i__)
c ..............Just test output...........
write(6,17)
+ Teff_16(i__),logg_16(i__),r_iA(i__),r_iAc(i__),dr_i(i__),
+ i_zA(i__),i_zAc(i__),di_z(i__),u_iA(i__),u_iAc(i__),du_i(i__),
+ u_zA(i__),u_zAc(i__),du_z(i__)
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(i__),logg_17(i__),r_iA_1(i__),r_iAc_1(i__),
+ dr_i_1(i__),i_zA_1(i__),i_zAc_1(i__),di_z_1(i__),u_iA_1(i__),
+ u_iAc_1(i__),du_i_1(i__),u_zA_1(i__),u_zAc_1(i__),du_z_1(i__)
c ..............Just test output...........
write(6,18)
+ Teff_17(i__),logg_17(i__),r_iA_1(i__),r_iAc_1(i__),
+ dr_i_1(i__),i_zA_1(i__),i_zAc_1(i__),di_z_1(i__),u_iA_1(i__),
+ u_iAc_1(i__),du_i_1(i__),u_zA_1(i__),u_zAc_1(i__),du_z_1(i__)
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(i__),logg_18(i__),r_iA_2(i__),r_iAc_2(i__),
+ dr_i_2(i__),i_zA_2(i__),i_zAc_2(i__),di_z_2(i__),u_iA_2(i__),
+ u_iAc_2(i__),du_i_2(i__),u_zA_2(i__),u_zAc_2(i__),du_z_2(i__)
c ..............Just test output...........
write(6,19)
+ Teff_18(i__),logg_18(i__),r_iA_2(i__),r_iAc_2(i__),
+ dr_i_2(i__),i_zA_2(i__),i_zAc_2(i__),di_z_2(i__),u_iA_2(i__),
+ u_iAc_2(i__),du_i_2(i__),u_zA_2(i__),u_zAc_2(i__),du_z_2(i__)
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(i__),logg_19(i__),r_iA_3(i__),r_iAc_3(i__),
+ dr_i_3(i__),i_zA_3(i__),i_zAc_3(i__),di_z_3(i__),u_iA_3(i__),
+ u_iAc_3(i__),du_i_3(i__),u_zA_3(i__),u_zAc_3(i__),du_z_3(i__)
c ..............Just test output...........
write(6,20)
+ Teff_19(i__),logg_19(i__),r_iA_3(i__),r_iAc_3(i__),
+ dr_i_3(i__),i_zA_3(i__),i_zAc_3(i__),di_z_3(i__),u_iA_3(i__),
+ u_iAc_3(i__),du_i_3(i__),u_zA_3(i__),u_zAc_3(i__),du_z_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end