Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/600/A30 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe C============================================================================= C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-17 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/600/A30 Limb-darkening for TESS satellite (Claret, 2017) *================================================================================ *Limb and gravity-darkening coefficients for the TESS satellite at several *metallicities, surface gravities and microturbulent velocities. * Claret A. * <Astron. Astrophys. 600, A30 (2017)> * =2017A&A...600A..30C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! u linear LDCs, quasi-spherical, PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__ parameter (nr__=112) ! Number of records character*54 ar__ ! Full-size record real*4 logg ! ([cm/s2]) [0.0/6.0] Surface gravity real*4 Teff ! (K) [1500/50000] Effective temperature real*4 Z ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP ! [2] Mixing-length parameter real*8 uLSM ! Linear limb darkening coefficient u * (TESS LSM) (G2) real*8 uPCM ! Linear limb darkening coefficient u * (TESS PCM) (G2) real*4 chi2 ! SQRT(CHI2Q) (TESS LSM) character*1 Type ! [qsr] PHOENIX type of model (G1) character*2 Mod ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! u linear LDCs, r method PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__1 parameter (nr__1=112) ! Number of records character*54 ar__1 ! Full-size record real*4 logg_1 ! ([cm/s2]) [0.0/6.0] Surface gravity real*4 Teff_1 ! (K) [1500/50000] Effective temperature real*4 Z_1 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_1 ! [2] Mixing-length parameter real*8 uLSM_1 ! Linear limb darkening coefficient u * (TESS LSM) (G2) real*8 uPCM_1 ! Linear limb darkening coefficient u * (TESS PCM) (G2) real*4 chi2_1 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_1 ! [qsr] PHOENIX type of model (G1) character*2 Mod_1 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! a,b quadratic LDCs, quasi-spherical PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__2 parameter (nr__2=112) ! Number of records character*77 ar__2 ! Full-size record real*4 logg_2 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_2 ! (K) [1500/12000] Effective temperature real*4 Z_2 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_2 ! [2] Mixing-length parameter real*8 aLSM ! Quadratic limb darkening coefficient a * (TESS LSM) (G2) real*8 bLSM ! Quadratic limb darkening coefficient b * (TESS LSM) (G2) real*8 aPCM ! Quadratic limb darkening coefficient a * (TESS FCM) (G2) real*8 bPCM ! Quadratic limb darkening coefficient b * (TESS FCM) (G2) real*4 chi2_2 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_2 ! [qsr] PHOENIX type of model (G1) character*2 Mod_2 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! a,b quadratic LDCs, r method PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__3 parameter (nr__3=112) ! Number of records character*77 ar__3 ! Full-size record real*4 logg_3 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_3 ! (K) [1500/12000] Effective temperature real*4 Z_3 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_3 ! [2] Mixing-length parameter real*8 aLSM_1 ! Quadratic limb darkening coefficient a * (TESS LSM) (G2) real*8 bLSM_1 ! Quadratic limb darkening coefficient b * (TESS LSM) (G2) real*8 aPCM_1 ! Quadratic limb darkening coefficient a * (TESS FCM) (G2) real*8 bPCM_1 ! Quadratic limb darkening coefficient b * (TESS FCM) (G2) real*4 chi2_3 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_3 ! [qsr] PHOENIX type of model (G1) character*2 Mod_3 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! c,d square-root LDCs, quasi-spherical PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__4 parameter (nr__4=112) ! Number of records character*77 ar__4 ! Full-size record real*4 logg_4 ! ([cm/s2]) [2.5/60.] Surface gravity real*4 Teff_4 ! (K) [1500/12000] Effective temperature real*4 Z_4 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_4 ! [2] Mixing-length parameter real*8 cLSM ! root-square limb darkening coefficient c * (TESS LSM) (G2) real*8 dLSM ! root-square limb darkening coefficient d * (TESS LSM) (G2) real*8 cPCM ! root-square limb darkening coefficient c * (TESS FCM) (G2) real*8 dPCM ! root-square limb darkening coefficient d * (TESS FCM) (G2) real*4 chi2_4 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_4 ! [qsr] PHOENIX type of model (G1) character*2 Mod_4 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! c,d square-root LDCs, r method PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__5 parameter (nr__5=112) ! Number of records character*77 ar__5 ! Full-size record real*4 logg_5 ! ([cm/s2]) [2.5/60.] Surface gravity real*4 Teff_5 ! (K) [1500/12000] Effective temperature real*4 Z_5 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_5 ! [2] Mixing-length parameter real*8 cLSM_1 ! root-square limb darkening coefficient c * (TESS LSM) (G2) real*8 dLSM_1 ! root-square limb darkening coefficient d * (TESS LSM) (G2) real*8 cPCM_1 ! root-square limb darkening coefficient c * (TESS FCM) (G2) real*8 dPCM_1 ! root-square limb darkening coefficient d * (TESS FCM) (G2) real*4 chi2_5 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_5 ! [qsr] PHOENIX type of model (G1) character*2 Mod_5 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! e,f logarithmic LDCs, quasi-spherical PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__6 parameter (nr__6=112) ! Number of records character*77 ar__6 ! Full-size record real*4 logg_6 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_6 ! (K) [1500/12000] Effective temperature real*4 Z_6 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_6 ! [2] Mixing-length parameter real*8 eLSM ! logarithmic limb darkening coefficient e * (TESS LSM) (G2) real*8 fLSM ! logarithmic limb darkening coefficient f * (TESS LSM) (G2) real*8 ePCM ! logarithmic limb darkening coefficient e * (TESS FCM) (G2) real*8 fPCM ! logarithmic limb darkening coefficient f * (TESS FCM) (G2) real*4 chi2_6 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_6 ! [qsr] PHOENIX type of model (G1) character*2 Mod_6 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table9.dat' ! e,f logarithmic LDCs, r method PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__7 parameter (nr__7=112) ! Number of records character*77 ar__7 ! Full-size record real*4 logg_7 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_7 ! (K) [1500/12000] Effective temperature real*4 Z_7 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_7 ! [2] Mixing-length parameter real*8 eLSM_1 ! logarithmic limb darkening coefficient e * (TESS LSM) (G2) real*8 fLSM_1 ! logarithmic limb darkening coefficient f * (TESS LSM) (G2) real*8 ePCM_1 ! logarithmic limb darkening coefficient e * (TESS FCM) (G2) real*8 fPCM_1 ! logarithmic limb darkening coefficient f * (TESS FCM) (G2) real*4 chi2_7 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_7 ! [qsr] PHOENIX type of model (G1) character*2 Mod_7 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table10.dat' ! a_1,a_2,a_3,a_4 LDCs, quasi-spherical PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__8 parameter (nr__8=112) ! Number of records character*77 ar__8 ! Full-size record real*4 logg_8 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_8 ! (K) [1500/12000] Effective temperature real*4 Z_8 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_8 ! [2] Mixing-length parameter real*8 a1LSM ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_8 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_8 ! [qsr] PHOENIX type of model (G1) character*2 Mod_8 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table11.dat' ! a_1,a_2,a_3,a_4 LDCs, r method PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__9 parameter (nr__9=112) ! Number of records character*77 ar__9 ! Full-size record real*4 logg_9 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_9 ! (K) [1500/12000] Effective temperature real*4 Z_9 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_9 ! [2] Mixing-length parameter real*8 a1LSM_1 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_1 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_1 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_1 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_9 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_9 ! [qsr] PHOENIX type of model (G1) character*2 Mod_9 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table12.dat' ! a_1,a_2,a_3,a_4 LDCs, spherical PHOENIX-DRIFT models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__10 parameter (nr__10=112) ! Number of records character*77 ar__10 ! Full-size record real*4 logg_10 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_10 ! (K) [1500/12000] Effective temperature real*4 Z_10 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_10 ! [2] Mixing-length parameter real*8 a1LSM_2 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_2 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_2 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_2 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_10 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_10 ! [qsr] PHOENIX type of model (G1) character*2 Mod_10 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table13.dat' ! u linear LDCs, quasi-spherical, PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__11 parameter (nr__11=574) ! Number of records character*54 ar__11 ! Full-size record real*4 logg_11 ! ([cm/s2]) [0.0/6.0] Surface gravity real*4 Teff_11 ! (K) [1500/50000] Effective temperature real*4 Z_11 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_11 ! [2] Mixing-length parameter real*8 uLSM_2 ! Linear limb darkening coefficient u * (TESS LSM) (G2) real*8 uPCM_2 ! Linear limb darkening coefficient u * (TESS PCM) (G2) real*4 chi2_11 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_11 ! [qsr] PHOENIX type of model (G1) character*2 Mod_11 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table14.dat' ! u linear LDCs, r method, PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__12 parameter (nr__12=574) ! Number of records character*54 ar__12 ! Full-size record real*4 logg_12 ! ([cm/s2]) [0.0/6.0] Surface gravity real*4 Teff_12 ! (K) [1500/50000] Effective temperature real*4 Z_12 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_12 ! [2] Mixing-length parameter real*8 uLSM_3 ! Linear limb darkening coefficient u * (TESS LSM) (G2) real*8 uPCM_3 ! Linear limb darkening coefficient u * (TESS PCM) (G2) real*4 chi2_12 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_12 ! [qsr] PHOENIX type of model (G1) character*2 Mod_12 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table15.dat' ! a,b quadratic LDCs, quasi-spherical PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__13 parameter (nr__13=574) ! Number of records character*77 ar__13 ! Full-size record real*4 logg_13 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_13 ! (K) [1500/12000] Effective temperature real*4 Z_13 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_13 ! [2] Mixing-length parameter real*8 aLSM_2 ! Quadratic limb darkening coefficient a * (TESS LSM) (G2) real*8 bLSM_2 ! Quadratic limb darkening coefficient b * (TESS LSM) (G2) real*8 aPCM_2 ! Quadratic limb darkening coefficient a * (TESS FCM) (G2) real*8 bPCM_2 ! Quadratic limb darkening coefficient b * (TESS FCM) (G2) real*4 chi2_13 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_13 ! [qsr] PHOENIX type of model (G1) character*2 Mod_13 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table16.dat' ! a,b quadratic LDCs, r method PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__14 parameter (nr__14=574) ! Number of records character*77 ar__14 ! Full-size record real*4 logg_14 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_14 ! (K) [1500/12000] Effective temperature real*4 Z_14 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_14 ! [2] Mixing-length parameter real*8 aLSM_3 ! Quadratic limb darkening coefficient a * (TESS LSM) (G2) real*8 bLSM_3 ! Quadratic limb darkening coefficient b * (TESS LSM) (G2) real*8 aPCM_3 ! Quadratic limb darkening coefficient a * (TESS FCM) (G2) real*8 bPCM_3 ! Quadratic limb darkening coefficient b * (TESS FCM) (G2) real*4 chi2_14 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_14 ! [qsr] PHOENIX type of model (G1) character*2 Mod_14 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table17.dat' ! c,d square-root LDCs, quasi-spherical PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__15 parameter (nr__15=574) ! Number of records character*77 ar__15 ! Full-size record real*4 logg_15 ! ([cm/s2]) [2.5/60.] Surface gravity real*4 Teff_15 ! (K) [1500/12000] Effective temperature real*4 Z_15 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_15 ! [2] Mixing-length parameter real*8 cLSM_2 ! root-square limb darkening coefficient c * (TESS LSM) (G2) real*8 dLSM_2 ! root-square limb darkening coefficient d * (TESS LSM) (G2) real*8 cPCM_2 ! root-square limb darkening coefficient c * (TESS FCM) (G2) real*8 dPCM_2 ! root-square limb darkening coefficient d * (TESS FCM) (G2) real*4 chi2_15 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_15 ! [qsr] PHOENIX type of model (G1) character*2 Mod_15 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table18.dat' ! c,d square-root LDCs, r method PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__16 parameter (nr__16=574) ! Number of records character*77 ar__16 ! Full-size record real*4 logg_16 ! ([cm/s2]) [2.5/60.] Surface gravity real*4 Teff_16 ! (K) [1500/12000] Effective temperature real*4 Z_16 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_16 ! [2] Mixing-length parameter real*8 cLSM_3 ! root-square limb darkening coefficient c * (TESS LSM) (G2) real*8 dLSM_3 ! root-square limb darkening coefficient d * (TESS LSM) (G2) real*8 cPCM_3 ! root-square limb darkening coefficient c * (TESS FCM) (G2) real*8 dPCM_3 ! root-square limb darkening coefficient d * (TESS FCM) (G2) real*4 chi2_16 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_16 ! [qsr] PHOENIX type of model (G1) character*2 Mod_16 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table19.dat' ! e,f logarithmic LDCs, quasi-spherical PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__17 parameter (nr__17=574) ! Number of records character*77 ar__17 ! Full-size record real*4 logg_17 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_17 ! (K) [1500/12000] Effective temperature real*4 Z_17 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_17 ! [2] Mixing-length parameter real*8 eLSM_2 ! logarithmic limb darkening coefficient e * (TESS LSM) (G2) real*8 fLSM_2 ! logarithmic limb darkening coefficient f * (TESS LSM) (G2) real*8 ePCM_2 ! logarithmic limb darkening coefficient e * (TESS FCM) (G2) real*8 fPCM_2 ! logarithmic limb darkening coefficient f * (TESS FCM) (G2) real*4 chi2_17 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_17 ! [qsr] PHOENIX type of model (G1) character*2 Mod_17 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table20.dat' ! e,f logarithmic LDCs, r method PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM and PCM) integer*4 nr__18 parameter (nr__18=574) ! Number of records character*77 ar__18 ! Full-size record real*4 logg_18 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_18 ! (K) [1500/12000] Effective temperature real*4 Z_18 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_18 ! [2] Mixing-length parameter real*8 eLSM_3 ! logarithmic limb darkening coefficient e * (TESS LSM) (G2) real*8 fLSM_3 ! logarithmic limb darkening coefficient f * (TESS LSM) (G2) real*8 ePCM_3 ! logarithmic limb darkening coefficient e * (TESS FCM) (G2) real*8 fPCM_3 ! logarithmic limb darkening coefficient f * (TESS FCM) (G2) real*4 chi2_18 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_18 ! [qsr] PHOENIX type of model (G1) character*2 Mod_18 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table21.dat' ! a_1,a_2,a_3,a_4 LDCs, quasi-spherical PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__19 parameter (nr__19=574) ! Number of records character*77 ar__19 ! Full-size record real*4 logg_19 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_19 ! (K) [1500/12000] Effective temperature real*4 Z_19 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_19 ! [2] Mixing-length parameter real*8 a1LSM_3 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_3 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_3 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_3 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_19 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_19 ! [qsr] PHOENIX type of model (G1) character*2 Mod_19 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table22.dat' ! a_1,a_2,a_3,a_4 LDCs, r method PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__20 parameter (nr__20=574) ! Number of records character*77 ar__20 ! Full-size record real*4 logg_20 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_20 ! (K) [1500/12000] Effective temperature real*4 Z_20 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_20 ! [2] Mixing-length parameter real*8 a1LSM_4 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_4 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_4 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_4 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_20 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_20 ! [qsr] PHOENIX type of model (G1) character*2 Mod_20 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table23.dat' ! a_1,a_2,a_3,a_4 LDCs, spherical PHOENIX-COND models, solar metallicity, v.tu=2 km/s for TESS (LSM) integer*4 nr__21 parameter (nr__21=574) ! Number of records character*77 ar__21 ! Full-size record real*4 logg_21 ! ([cm/s2]) [2.5/6.0] Surface gravity real*4 Teff_21 ! (K) [1500/12000] Effective temperature real*4 Z_21 ! ([Sun]) [0] Metallicity (log[M/H]) real*4 L_HP_21 ! [2] Mixing-length parameter real*8 a1LSM_5 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_5 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_5 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_5 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_21 ! SQRT(CHI2Q) (TESS LSM) character*1 Type_21 ! [qsr] PHOENIX type of model (G1) character*2 Mod_21 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table24.dat' ! u linear LDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM, PCM) integer*4 nr__22 parameter (nr__22=9586) ! Number of records character*52 ar__22 ! Full-size record real*4 logg_22 ! ([cm/s2]) [0.0/6.0] Surface gravity real*4 Teff_22 ! (K) [2300/50000] Effective temperature real*4 Z_22 ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H]) real*4 xi ! (km/s) [0/8] Microturbulent velocity {xi} real*8 uLSM_4 ! Linear limb darkening coefficient u * (TESS LSM) (G2) real*8 uCFM ! Linear limb darkening coefficient u * (TESS CFM) (G2) real*4 chi2_22 ! SQRT(CHI2Q) (TESS LSM) character*2 Mod_22 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table25.dat' ! a, b quadratic LDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM, PCM) integer*4 nr__23 parameter (nr__23=9586) ! Number of records character*74 ar__23 ! Full-size record real*4 logg_23 ! ([cm/s2]) [0.0/5.0] Surface gravity real*4 Teff_23 ! (K) [3500/50000] Effective temperature real*4 Z_23 ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H]) real*4 xi_1 ! (km/s) [0/8] Microturbulent velocity {xi} real*8 aLSM_4 ! Quadratic limb darkening coefficient a * (TESS LSM) (G2) real*8 bLSM_4 ! Quadratic limb darkening coefficient b * (TESS LSM) (G2) real*8 aPCM_4 ! Quadratic limb darkening coefficient a * (TESS FCM) (G2) real*8 bPCM_4 ! Quadratic limb darkening coefficient b * (TESS FCM) (G2) real*4 chi2_23 ! SQRT(CHI2Q) (TESS LSM) character*2 Mod_23 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table26.dat' ! c,d square-root LDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM, PCM) integer*4 nr__24 parameter (nr__24=9586) ! Number of records character*74 ar__24 ! Full-size record real*4 logg_24 ! ([cm/s2]) [0.0/5.0] Surface gravity real*4 Teff_24 ! (K) [3500/50000] Effective temperature real*4 Z_24 ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H]) real*4 xi_2 ! (km/s) [0/8] Microturbulent velocity {xi} real*8 cLSM_4 ! root-square limb darkening coefficient c * (TESS LSM) (G2) real*8 dLSM_4 ! root-square limb darkening coefficient d * (TESS LSM) (G2) real*8 cPCM_4 ! root-square limb darkening coefficient c * (TESS FCM) (G2) real*8 dPCM_4 ! root-square limb darkening coefficient d * (TESS FCM) (G2) real*4 chi2_24 ! SQRT(CHI2Q) (TESS LSM) character*2 Mod_24 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table27.dat' ! e,f logarithmic LDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM, PCM) integer*4 nr__25 parameter (nr__25=9586) ! Number of records character*74 ar__25 ! Full-size record real*4 logg_25 ! ([cm/s2]) [0/5] Surface gravity real*4 Teff_25 ! (K) [3500/50000] Effective temperature real*4 Z_25 ! ([Sun]) [-5/1] Metallicity (log[M/H]) real*4 xi_3 ! [0/8] Microturbulent velocity {xi} real*8 eLSM_4 ! logarithmic limb darkening coefficient e * (TESS LSM) (G2) real*8 fLSM_4 ! logarithmic limb darkening coefficient f * (TESS LSM) (G2) real*8 ePCM_4 ! logarithmic limb darkening coefficient e * (TESS FCM) (G2) real*8 fPCM_4 ! logarithmic limb darkening coefficient f * (TESS FCM) (G2) real*4 chi2_25 ! SQRT(CHI2Q) (TESS LSM) character*2 Mod_25 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table28.dat' ! a_1,a_2,a_3,a_4 LDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM) integer*4 nr__26 parameter (nr__26=9586) ! Number of records character*74 ar__26 ! Full-size record real*4 logg_26 ! ([cm/s2]) [0/5] Surface gravity real*4 Teff_26 ! (K) [3500/50000] Effective temperature real*4 Z_26 ! ([Sun]) [-5/1] Metallicity (log[M/H]) real*4 xi_4 ! [0/8] Microturbulent velocity {xi} real*8 a1LSM_6 ! Equation 5 limb darkening coefficient a1 * (TESS LSM) (G2) real*8 a2LSM_6 ! Equation 5 limb darkening coefficient a2 * (TESS LSM) (G2) real*8 a3LSM_6 ! Equation 5 limb darkening coefficient a3 * (TESS LSM) (G2) real*8 a4LSM_6 ! Equation 5 limb darkening coefficient a4 * (TESS LSM) (G2) real*4 chi2_26 ! SQRT(CHI2Q) (TESS LSM) character*2 Mod_26 ! [PD PC A] Model name (G3) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table29.dat' ! y GDCs, ATLAS models, all metallicities, v.tu=0,1,2,4,8 km/s for TESS integer*4 nr__27 parameter (nr__27=9575) ! Number of records character*40 ar__27 ! Full-size record real*4 Z_27 ! ([Sun]) [-5/1] Metallicity (log[M/H]) real*4 xi_5 ! (km/s) [0/8] Microturbulent velocity real*4 logg_27 ! ([cm/s2]) [0/5] Surface gravity real*4 logTeff ! ([K]) [3.5/5.0] Effective temperature real*8 y ! GDC (TESS) character*2 Mod_27 ! [PD PC A] Model name (G3) C============================================================================= C Loading file 'table2.dat' ! u linear LDCs, quasi-spherical, * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 1 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,1X,F8.4,3X,F6.4,1X,A1,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,112 read(1,'(A54)')ar__ read(ar__,1)logg,Teff,Z,L_HP,uLSM,uPCM,chi2,Type,Mod c ..............Just test output........... write(6,1)logg,Teff,Z,L_HP,uLSM,uPCM,chi2,Type,Mod c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! u linear LDCs, r method * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 2 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,1X,F8.4,3X,F6.4,1X,A1,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,112 read(1,'(A54)')ar__1 read(ar__1,2) + logg_1,Teff_1,Z_1,L_HP_1,uLSM_1,uPCM_1,chi2_1,Type_1,Mod_1 c ..............Just test output........... write(6,2) + logg_1,Teff_1,Z_1,L_HP_1,uLSM_1,uPCM_1,chi2_1,Type_1,Mod_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! a,b quadratic LDCs, quasi-spherical * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 3 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,112 read(1,'(A77)')ar__2 read(ar__2,3) + logg_2,Teff_2,Z_2,L_HP_2,aLSM,bLSM,aPCM,bPCM,chi2_2,Type_2, + Mod_2 c ..............Just test output........... write(6,3) + logg_2,Teff_2,Z_2,L_HP_2,aLSM,bLSM,aPCM,bPCM,chi2_2,Type_2, + Mod_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! a,b quadratic LDCs, r method * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 4 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,112 read(1,'(A77)')ar__3 read(ar__3,4) + logg_3,Teff_3,Z_3,L_HP_3,aLSM_1,bLSM_1,aPCM_1,bPCM_1,chi2_3, + Type_3,Mod_3 c ..............Just test output........... write(6,4) + logg_3,Teff_3,Z_3,L_HP_3,aLSM_1,bLSM_1,aPCM_1,bPCM_1,chi2_3, + Type_3,Mod_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! c,d square-root LDCs, quasi-spherical * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 5 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,112 read(1,'(A77)')ar__4 read(ar__4,5) + logg_4,Teff_4,Z_4,L_HP_4,cLSM,dLSM,cPCM,dPCM,chi2_4,Type_4, + Mod_4 c ..............Just test output........... write(6,5) + logg_4,Teff_4,Z_4,L_HP_4,cLSM,dLSM,cPCM,dPCM,chi2_4,Type_4, + Mod_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! c,d square-root LDCs, r method * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 6 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,112 read(1,'(A77)')ar__5 read(ar__5,6) + logg_5,Teff_5,Z_5,L_HP_5,cLSM_1,dLSM_1,cPCM_1,dPCM_1,chi2_5, + Type_5,Mod_5 c ..............Just test output........... write(6,6) + logg_5,Teff_5,Z_5,L_HP_5,cLSM_1,dLSM_1,cPCM_1,dPCM_1,chi2_5, + Type_5,Mod_5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! e,f logarithmic LDCs, quasi-spherical * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 7 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,112 read(1,'(A77)')ar__6 read(ar__6,7) + logg_6,Teff_6,Z_6,L_HP_6,eLSM,fLSM,ePCM,fPCM,chi2_6,Type_6, + Mod_6 c ..............Just test output........... write(6,7) + logg_6,Teff_6,Z_6,L_HP_6,eLSM,fLSM,ePCM,fPCM,chi2_6,Type_6, + Mod_6 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table9.dat' ! e,f logarithmic LDCs, r method * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 8 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table9.dat') write(6,*) '....Loading file: table9.dat' do i__=1,112 read(1,'(A77)')ar__7 read(ar__7,8) + logg_7,Teff_7,Z_7,L_HP_7,eLSM_1,fLSM_1,ePCM_1,fPCM_1,chi2_7, + Type_7,Mod_7 c ..............Just test output........... write(6,8) + logg_7,Teff_7,Z_7,L_HP_7,eLSM_1,fLSM_1,ePCM_1,fPCM_1,chi2_7, + Type_7,Mod_7 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table10.dat' ! a_1,a_2,a_3,a_4 LDCs, quasi-spherical * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 9 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table10.dat') write(6,*) '....Loading file: table10.dat' do i__=1,112 read(1,'(A77)')ar__8 read(ar__8,9) + logg_8,Teff_8,Z_8,L_HP_8,a1LSM,a2LSM,a3LSM,a4LSM,chi2_8, + Type_8,Mod_8 c ..............Just test output........... write(6,9) + logg_8,Teff_8,Z_8,L_HP_8,a1LSM,a2LSM,a3LSM,a4LSM,chi2_8, + Type_8,Mod_8 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table11.dat' ! a_1,a_2,a_3,a_4 LDCs, r method * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 10 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table11.dat') write(6,*) '....Loading file: table11.dat' do i__=1,112 read(1,'(A77)')ar__9 read(ar__9,10) + logg_9,Teff_9,Z_9,L_HP_9,a1LSM_1,a2LSM_1,a3LSM_1,a4LSM_1, + chi2_9,Type_9,Mod_9 c ..............Just test output........... write(6,10) + logg_9,Teff_9,Z_9,L_HP_9,a1LSM_1,a2LSM_1,a3LSM_1,a4LSM_1, + chi2_9,Type_9,Mod_9 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table12.dat' ! a_1,a_2,a_3,a_4 LDCs, spherical * PHOENIX-DRIFT models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 11 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table12.dat') write(6,*) '....Loading file: table12.dat' do i__=1,112 read(1,'(A77)')ar__10 read(ar__10,11) + logg_10,Teff_10,Z_10,L_HP_10,a1LSM_2,a2LSM_2,a3LSM_2,a4LSM_2, + chi2_10,Type_10,Mod_10 c ..............Just test output........... write(6,11) + logg_10,Teff_10,Z_10,L_HP_10,a1LSM_2,a2LSM_2,a3LSM_2,a4LSM_2, + chi2_10,Type_10,Mod_10 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table13.dat' ! u linear LDCs, quasi-spherical, PHOENIX-COND * models, solar metallicity, v.tu=2 km/s for * TESS (LSM and PCM) C Format for file interpretation 12 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,1X,F8.4,3X,F6.4,1X,A1,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table13.dat') write(6,*) '....Loading file: table13.dat' do i__=1,574 read(1,'(A54)')ar__11 read(ar__11,12) + logg_11,Teff_11,Z_11,L_HP_11,uLSM_2,uPCM_2,chi2_11,Type_11, + Mod_11 c ..............Just test output........... write(6,12) + logg_11,Teff_11,Z_11,L_HP_11,uLSM_2,uPCM_2,chi2_11,Type_11, + Mod_11 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table14.dat' ! u linear LDCs, r method, PHOENIX-COND models, * solar metallicity, v.tu=2 km/s for * TESS (LSM and PCM) C Format for file interpretation 13 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,1X,F8.4,3X,F6.4,1X,A1,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table14.dat') write(6,*) '....Loading file: table14.dat' do i__=1,574 read(1,'(A54)')ar__12 read(ar__12,13) + logg_12,Teff_12,Z_12,L_HP_12,uLSM_3,uPCM_3,chi2_12,Type_12, + Mod_12 c ..............Just test output........... write(6,13) + logg_12,Teff_12,Z_12,L_HP_12,uLSM_3,uPCM_3,chi2_12,Type_12, + Mod_12 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table15.dat' ! a,b quadratic LDCs, quasi-spherical * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 14 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table15.dat') write(6,*) '....Loading file: table15.dat' do i__=1,574 read(1,'(A77)')ar__13 read(ar__13,14) + logg_13,Teff_13,Z_13,L_HP_13,aLSM_2,bLSM_2,aPCM_2,bPCM_2, + chi2_13,Type_13,Mod_13 c ..............Just test output........... write(6,14) + logg_13,Teff_13,Z_13,L_HP_13,aLSM_2,bLSM_2,aPCM_2,bPCM_2, + chi2_13,Type_13,Mod_13 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table16.dat' ! a,b quadratic LDCs, r method * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 15 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table16.dat') write(6,*) '....Loading file: table16.dat' do i__=1,574 read(1,'(A77)')ar__14 read(ar__14,15) + logg_14,Teff_14,Z_14,L_HP_14,aLSM_3,bLSM_3,aPCM_3,bPCM_3, + chi2_14,Type_14,Mod_14 c ..............Just test output........... write(6,15) + logg_14,Teff_14,Z_14,L_HP_14,aLSM_3,bLSM_3,aPCM_3,bPCM_3, + chi2_14,Type_14,Mod_14 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table17.dat' ! c,d square-root LDCs, quasi-spherical * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 16 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table17.dat') write(6,*) '....Loading file: table17.dat' do i__=1,574 read(1,'(A77)')ar__15 read(ar__15,16) + logg_15,Teff_15,Z_15,L_HP_15,cLSM_2,dLSM_2,cPCM_2,dPCM_2, + chi2_15,Type_15,Mod_15 c ..............Just test output........... write(6,16) + logg_15,Teff_15,Z_15,L_HP_15,cLSM_2,dLSM_2,cPCM_2,dPCM_2, + chi2_15,Type_15,Mod_15 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table18.dat' ! c,d square-root LDCs, r method * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 17 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table18.dat') write(6,*) '....Loading file: table18.dat' do i__=1,574 read(1,'(A77)')ar__16 read(ar__16,17) + logg_16,Teff_16,Z_16,L_HP_16,cLSM_3,dLSM_3,cPCM_3,dPCM_3, + chi2_16,Type_16,Mod_16 c ..............Just test output........... write(6,17) + logg_16,Teff_16,Z_16,L_HP_16,cLSM_3,dLSM_3,cPCM_3,dPCM_3, + chi2_16,Type_16,Mod_16 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table19.dat' ! e,f logarithmic LDCs, quasi-spherical * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 18 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table19.dat') write(6,*) '....Loading file: table19.dat' do i__=1,574 read(1,'(A77)')ar__17 read(ar__17,18) + logg_17,Teff_17,Z_17,L_HP_17,eLSM_2,fLSM_2,ePCM_2,fPCM_2, + chi2_17,Type_17,Mod_17 c ..............Just test output........... write(6,18) + logg_17,Teff_17,Z_17,L_HP_17,eLSM_2,fLSM_2,ePCM_2,fPCM_2, + chi2_17,Type_17,Mod_17 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table20.dat' ! e,f logarithmic LDCs, r method * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM and PCM) C Format for file interpretation 19 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table20.dat') write(6,*) '....Loading file: table20.dat' do i__=1,574 read(1,'(A77)')ar__18 read(ar__18,19) + logg_18,Teff_18,Z_18,L_HP_18,eLSM_3,fLSM_3,ePCM_3,fPCM_3, + chi2_18,Type_18,Mod_18 c ..............Just test output........... write(6,19) + logg_18,Teff_18,Z_18,L_HP_18,eLSM_3,fLSM_3,ePCM_3,fPCM_3, + chi2_18,Type_18,Mod_18 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table21.dat' ! a_1,a_2,a_3,a_4 LDCs, quasi-spherical * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 20 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table21.dat') write(6,*) '....Loading file: table21.dat' do i__=1,574 read(1,'(A77)')ar__19 read(ar__19,20) + logg_19,Teff_19,Z_19,L_HP_19,a1LSM_3,a2LSM_3,a3LSM_3,a4LSM_3, + chi2_19,Type_19,Mod_19 c ..............Just test output........... write(6,20) + logg_19,Teff_19,Z_19,L_HP_19,a1LSM_3,a2LSM_3,a3LSM_3,a4LSM_3, + chi2_19,Type_19,Mod_19 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table22.dat' ! a_1,a_2,a_3,a_4 LDCs, r method * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 21 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table22.dat') write(6,*) '....Loading file: table22.dat' do i__=1,574 read(1,'(A77)')ar__20 read(ar__20,21) + logg_20,Teff_20,Z_20,L_HP_20,a1LSM_4,a2LSM_4,a3LSM_4,a4LSM_4, + chi2_20,Type_20,Mod_20 c ..............Just test output........... write(6,21) + logg_20,Teff_20,Z_20,L_HP_20,a1LSM_4,a2LSM_4,a3LSM_4,a4LSM_4, + chi2_20,Type_20,Mod_20 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table23.dat' ! a_1,a_2,a_3,a_4 LDCs, spherical * PHOENIX-COND models, solar metallicity, * v.tu=2 km/s for TESS (LSM) C Format for file interpretation 22 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,2X,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table23.dat') write(6,*) '....Loading file: table23.dat' do i__=1,574 read(1,'(A77)')ar__21 read(ar__21,22) + logg_21,Teff_21,Z_21,L_HP_21,a1LSM_5,a2LSM_5,a3LSM_5,a4LSM_5, + chi2_21,Type_21,Mod_21 c ..............Just test output........... write(6,22) + logg_21,Teff_21,Z_21,L_HP_21,a1LSM_5,a2LSM_5,a3LSM_5,a4LSM_5, + chi2_21,Type_21,Mod_21 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table24.dat' ! u linear LDCs, ATLAS models, all metallicities, * v.tu=0,1,2,4,8 km/s for TESS (LSM, PCM) C Format for file interpretation 23 format( + F5.2,1X,F6.0,1X,F4.1,1X,F4.1,1X,F8.4,1X,F8.4,3X,F6.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table24.dat') write(6,*) '....Loading file: table24.dat' do i__=1,9586 read(1,'(A52)')ar__22 read(ar__22,23) + logg_22,Teff_22,Z_22,xi,uLSM_4,uCFM,chi2_22,Mod_22 c ..............Just test output........... write(6,23) + logg_22,Teff_22,Z_22,xi,uLSM_4,uCFM,chi2_22,Mod_22 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table25.dat' ! a, b quadratic LDCs, ATLAS models, all * metallicities, v.tu=0,1,2,4,8 km/s for * TESS (LSM, PCM) C Format for file interpretation 24 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table25.dat') write(6,*) '....Loading file: table25.dat' do i__=1,9586 read(1,'(A74)')ar__23 read(ar__23,24) + logg_23,Teff_23,Z_23,xi_1,aLSM_4,bLSM_4,aPCM_4,bPCM_4,chi2_23, + Mod_23 c ..............Just test output........... write(6,24) + logg_23,Teff_23,Z_23,xi_1,aLSM_4,bLSM_4,aPCM_4,bPCM_4,chi2_23, + Mod_23 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table26.dat' ! c,d square-root LDCs, ATLAS models, all * metallicities, v.tu=0,1,2,4,8 km/s for * TESS (LSM, PCM) C Format for file interpretation 25 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table26.dat') write(6,*) '....Loading file: table26.dat' do i__=1,9586 read(1,'(A74)')ar__24 read(ar__24,25) + logg_24,Teff_24,Z_24,xi_2,cLSM_4,dLSM_4,cPCM_4,dPCM_4,chi2_24, + Mod_24 c ..............Just test output........... write(6,25) + logg_24,Teff_24,Z_24,xi_2,cLSM_4,dLSM_4,cPCM_4,dPCM_4,chi2_24, + Mod_24 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table27.dat' ! e,f logarithmic LDCs, ATLAS models, all * metallicities, v.tu=0,1,2,4,8 km/s for * TESS (LSM, PCM) C Format for file interpretation 26 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,1X,F8.4,2X,F8.4,2X,F8.4,2X,F8.4, + 4X,F6.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table27.dat') write(6,*) '....Loading file: table27.dat' do i__=1,9586 read(1,'(A74)')ar__25 read(ar__25,26) + logg_25,Teff_25,Z_25,xi_3,eLSM_4,fLSM_4,ePCM_4,fPCM_4,chi2_25, + Mod_25 c ..............Just test output........... write(6,26) + logg_25,Teff_25,Z_25,xi_3,eLSM_4,fLSM_4,ePCM_4,fPCM_4,chi2_25, + Mod_25 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table28.dat' ! a_1,a_2,a_3,a_4 LDCs, ATLAS models, all * metallicities, v.tu=0,1,2,4,8 km/s for TESS (LSM) C Format for file interpretation 27 format( + F5.2,1X,F6.0,1X,F4.1,2X,F3.1,F9.4,1X,F9.4,2X,F8.4,2X,F8.4,4X, + F6.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table28.dat') write(6,*) '....Loading file: table28.dat' do i__=1,9586 read(1,'(A74)')ar__26 read(ar__26,27) + logg_26,Teff_26,Z_26,xi_4,a1LSM_6,a2LSM_6,a3LSM_6,a4LSM_6, + chi2_26,Mod_26 c ..............Just test output........... write(6,27) + logg_26,Teff_26,Z_26,xi_4,a1LSM_6,a2LSM_6,a3LSM_6,a4LSM_6, + chi2_26,Mod_26 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table29.dat' ! y GDCs, ATLAS models, all metallicities, * v.tu=0,1,2,4,8 km/s for TESS C Format for file interpretation 28 format(1X,F5.2,2X,F5.3,3X,F4.2,2X,F5.3,3X,F7.4,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table29.dat') write(6,*) '....Loading file: table29.dat' do i__=1,9575 read(1,'(A40)')ar__27 read(ar__27,28)Z_27,xi_5,logg_27,logTeff,y,Mod_27 c ..............Just test output........... write(6,28)Z_27,xi_5,logg_27,logTeff,y,Mod_27 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end