Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/600/A30 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-16
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 (nr__) ! ([cm/s2]) [0.0/6.0] Surface gravity
real*4 Teff (nr__) ! (K) [1500/50000] Effective temperature
real*4 Z (nr__) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP (nr__) ! [2] Mixing-length parameter
real*8 uLSM (nr__) ! Linear limb darkening coefficient u
* (TESS LSM) (G2)
real*8 uPCM (nr__) ! Linear limb darkening coefficient u
* (TESS PCM) (G2)
real*4 chi2 (nr__) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type (nr__) ! [qsr] PHOENIX type of model (G1)
character*2 Mod (nr__) ! [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 (nr__1) ! ([cm/s2]) [0.0/6.0] Surface gravity
real*4 Teff_1 (nr__1) ! (K) [1500/50000] Effective temperature
real*4 Z_1 (nr__1) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_1 (nr__1) ! [2] Mixing-length parameter
real*8 uLSM_1 (nr__1) ! Linear limb darkening coefficient u
* (TESS LSM) (G2)
real*8 uPCM_1 (nr__1) ! Linear limb darkening coefficient u
* (TESS PCM) (G2)
real*4 chi2_1 (nr__1) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_1 (nr__1) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_1 (nr__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 (nr__2) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_2 (nr__2) ! (K) [1500/12000] Effective temperature
real*4 Z_2 (nr__2) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_2 (nr__2) ! [2] Mixing-length parameter
real*8 aLSM (nr__2) ! Quadratic limb darkening coefficient a
* (TESS LSM) (G2)
real*8 bLSM (nr__2) ! Quadratic limb darkening coefficient b
* (TESS LSM) (G2)
real*8 aPCM (nr__2) ! Quadratic limb darkening coefficient a
* (TESS FCM) (G2)
real*8 bPCM (nr__2) ! Quadratic limb darkening coefficient b
* (TESS FCM) (G2)
real*4 chi2_2 (nr__2) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_2 (nr__2) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_2 (nr__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 (nr__3) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_3 (nr__3) ! (K) [1500/12000] Effective temperature
real*4 Z_3 (nr__3) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_3 (nr__3) ! [2] Mixing-length parameter
real*8 aLSM_1 (nr__3) ! Quadratic limb darkening coefficient a
* (TESS LSM) (G2)
real*8 bLSM_1 (nr__3) ! Quadratic limb darkening coefficient b
* (TESS LSM) (G2)
real*8 aPCM_1 (nr__3) ! Quadratic limb darkening coefficient a
* (TESS FCM) (G2)
real*8 bPCM_1 (nr__3) ! Quadratic limb darkening coefficient b
* (TESS FCM) (G2)
real*4 chi2_3 (nr__3) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_3 (nr__3) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_3 (nr__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 (nr__4) ! ([cm/s2]) [2.5/60.] Surface gravity
real*4 Teff_4 (nr__4) ! (K) [1500/12000] Effective temperature
real*4 Z_4 (nr__4) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_4 (nr__4) ! [2] Mixing-length parameter
real*8 cLSM (nr__4) ! root-square limb darkening coefficient c
* (TESS LSM) (G2)
real*8 dLSM (nr__4) ! root-square limb darkening coefficient d
* (TESS LSM) (G2)
real*8 cPCM (nr__4) ! root-square limb darkening coefficient c
* (TESS FCM) (G2)
real*8 dPCM (nr__4) ! root-square limb darkening coefficient d
* (TESS FCM) (G2)
real*4 chi2_4 (nr__4) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_4 (nr__4) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_4 (nr__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 (nr__5) ! ([cm/s2]) [2.5/60.] Surface gravity
real*4 Teff_5 (nr__5) ! (K) [1500/12000] Effective temperature
real*4 Z_5 (nr__5) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_5 (nr__5) ! [2] Mixing-length parameter
real*8 cLSM_1 (nr__5) ! root-square limb darkening coefficient c
* (TESS LSM) (G2)
real*8 dLSM_1 (nr__5) ! root-square limb darkening coefficient d
* (TESS LSM) (G2)
real*8 cPCM_1 (nr__5) ! root-square limb darkening coefficient c
* (TESS FCM) (G2)
real*8 dPCM_1 (nr__5) ! root-square limb darkening coefficient d
* (TESS FCM) (G2)
real*4 chi2_5 (nr__5) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_5 (nr__5) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_5 (nr__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 (nr__6) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_6 (nr__6) ! (K) [1500/12000] Effective temperature
real*4 Z_6 (nr__6) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_6 (nr__6) ! [2] Mixing-length parameter
real*8 eLSM (nr__6) ! logarithmic limb darkening coefficient e
* (TESS LSM) (G2)
real*8 fLSM (nr__6) ! logarithmic limb darkening coefficient f
* (TESS LSM) (G2)
real*8 ePCM (nr__6) ! logarithmic limb darkening coefficient e
* (TESS FCM) (G2)
real*8 fPCM (nr__6) ! logarithmic limb darkening coefficient f
* (TESS FCM) (G2)
real*4 chi2_6 (nr__6) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_6 (nr__6) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_6 (nr__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 (nr__7) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_7 (nr__7) ! (K) [1500/12000] Effective temperature
real*4 Z_7 (nr__7) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_7 (nr__7) ! [2] Mixing-length parameter
real*8 eLSM_1 (nr__7) ! logarithmic limb darkening coefficient e
* (TESS LSM) (G2)
real*8 fLSM_1 (nr__7) ! logarithmic limb darkening coefficient f
* (TESS LSM) (G2)
real*8 ePCM_1 (nr__7) ! logarithmic limb darkening coefficient e
* (TESS FCM) (G2)
real*8 fPCM_1 (nr__7) ! logarithmic limb darkening coefficient f
* (TESS FCM) (G2)
real*4 chi2_7 (nr__7) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_7 (nr__7) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_7 (nr__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 (nr__8) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_8 (nr__8) ! (K) [1500/12000] Effective temperature
real*4 Z_8 (nr__8) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_8 (nr__8) ! [2] Mixing-length parameter
real*8 a1LSM (nr__8) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM (nr__8) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM (nr__8) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM (nr__8) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_8 (nr__8) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_8 (nr__8) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_8 (nr__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 (nr__9) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_9 (nr__9) ! (K) [1500/12000] Effective temperature
real*4 Z_9 (nr__9) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_9 (nr__9) ! [2] Mixing-length parameter
real*8 a1LSM_1 (nr__9) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_1 (nr__9) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_1 (nr__9) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_1 (nr__9) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_9 (nr__9) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_9 (nr__9) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_9 (nr__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 (nr__10) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_10 (nr__10) ! (K) [1500/12000] Effective temperature
real*4 Z_10 (nr__10) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_10 (nr__10) ! [2] Mixing-length parameter
real*8 a1LSM_2 (nr__10) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_2 (nr__10) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_2 (nr__10) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_2 (nr__10) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_10 (nr__10) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_10 (nr__10) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_10 (nr__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 (nr__11) ! ([cm/s2]) [0.0/6.0] Surface gravity
real*4 Teff_11 (nr__11) ! (K) [1500/50000] Effective temperature
real*4 Z_11 (nr__11) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_11 (nr__11) ! [2] Mixing-length parameter
real*8 uLSM_2 (nr__11) ! Linear limb darkening coefficient u
* (TESS LSM) (G2)
real*8 uPCM_2 (nr__11) ! Linear limb darkening coefficient u
* (TESS PCM) (G2)
real*4 chi2_11 (nr__11) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_11 (nr__11) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_11 (nr__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 (nr__12) ! ([cm/s2]) [0.0/6.0] Surface gravity
real*4 Teff_12 (nr__12) ! (K) [1500/50000] Effective temperature
real*4 Z_12 (nr__12) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_12 (nr__12) ! [2] Mixing-length parameter
real*8 uLSM_3 (nr__12) ! Linear limb darkening coefficient u
* (TESS LSM) (G2)
real*8 uPCM_3 (nr__12) ! Linear limb darkening coefficient u
* (TESS PCM) (G2)
real*4 chi2_12 (nr__12) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_12 (nr__12) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_12 (nr__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 (nr__13) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_13 (nr__13) ! (K) [1500/12000] Effective temperature
real*4 Z_13 (nr__13) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_13 (nr__13) ! [2] Mixing-length parameter
real*8 aLSM_2 (nr__13) ! Quadratic limb darkening coefficient a
* (TESS LSM) (G2)
real*8 bLSM_2 (nr__13) ! Quadratic limb darkening coefficient b
* (TESS LSM) (G2)
real*8 aPCM_2 (nr__13) ! Quadratic limb darkening coefficient a
* (TESS FCM) (G2)
real*8 bPCM_2 (nr__13) ! Quadratic limb darkening coefficient b
* (TESS FCM) (G2)
real*4 chi2_13 (nr__13) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_13 (nr__13) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_13 (nr__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 (nr__14) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_14 (nr__14) ! (K) [1500/12000] Effective temperature
real*4 Z_14 (nr__14) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_14 (nr__14) ! [2] Mixing-length parameter
real*8 aLSM_3 (nr__14) ! Quadratic limb darkening coefficient a
* (TESS LSM) (G2)
real*8 bLSM_3 (nr__14) ! Quadratic limb darkening coefficient b
* (TESS LSM) (G2)
real*8 aPCM_3 (nr__14) ! Quadratic limb darkening coefficient a
* (TESS FCM) (G2)
real*8 bPCM_3 (nr__14) ! Quadratic limb darkening coefficient b
* (TESS FCM) (G2)
real*4 chi2_14 (nr__14) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_14 (nr__14) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_14 (nr__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 (nr__15) ! ([cm/s2]) [2.5/60.] Surface gravity
real*4 Teff_15 (nr__15) ! (K) [1500/12000] Effective temperature
real*4 Z_15 (nr__15) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_15 (nr__15) ! [2] Mixing-length parameter
real*8 cLSM_2 (nr__15) ! root-square limb darkening coefficient c
* (TESS LSM) (G2)
real*8 dLSM_2 (nr__15) ! root-square limb darkening coefficient d
* (TESS LSM) (G2)
real*8 cPCM_2 (nr__15) ! root-square limb darkening coefficient c
* (TESS FCM) (G2)
real*8 dPCM_2 (nr__15) ! root-square limb darkening coefficient d
* (TESS FCM) (G2)
real*4 chi2_15 (nr__15) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_15 (nr__15) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_15 (nr__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 (nr__16) ! ([cm/s2]) [2.5/60.] Surface gravity
real*4 Teff_16 (nr__16) ! (K) [1500/12000] Effective temperature
real*4 Z_16 (nr__16) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_16 (nr__16) ! [2] Mixing-length parameter
real*8 cLSM_3 (nr__16) ! root-square limb darkening coefficient c
* (TESS LSM) (G2)
real*8 dLSM_3 (nr__16) ! root-square limb darkening coefficient d
* (TESS LSM) (G2)
real*8 cPCM_3 (nr__16) ! root-square limb darkening coefficient c
* (TESS FCM) (G2)
real*8 dPCM_3 (nr__16) ! root-square limb darkening coefficient d
* (TESS FCM) (G2)
real*4 chi2_16 (nr__16) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_16 (nr__16) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_16 (nr__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 (nr__17) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_17 (nr__17) ! (K) [1500/12000] Effective temperature
real*4 Z_17 (nr__17) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_17 (nr__17) ! [2] Mixing-length parameter
real*8 eLSM_2 (nr__17) ! logarithmic limb darkening coefficient e
* (TESS LSM) (G2)
real*8 fLSM_2 (nr__17) ! logarithmic limb darkening coefficient f
* (TESS LSM) (G2)
real*8 ePCM_2 (nr__17) ! logarithmic limb darkening coefficient e
* (TESS FCM) (G2)
real*8 fPCM_2 (nr__17) ! logarithmic limb darkening coefficient f
* (TESS FCM) (G2)
real*4 chi2_17 (nr__17) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_17 (nr__17) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_17 (nr__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 (nr__18) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_18 (nr__18) ! (K) [1500/12000] Effective temperature
real*4 Z_18 (nr__18) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_18 (nr__18) ! [2] Mixing-length parameter
real*8 eLSM_3 (nr__18) ! logarithmic limb darkening coefficient e
* (TESS LSM) (G2)
real*8 fLSM_3 (nr__18) ! logarithmic limb darkening coefficient f
* (TESS LSM) (G2)
real*8 ePCM_3 (nr__18) ! logarithmic limb darkening coefficient e
* (TESS FCM) (G2)
real*8 fPCM_3 (nr__18) ! logarithmic limb darkening coefficient f
* (TESS FCM) (G2)
real*4 chi2_18 (nr__18) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_18 (nr__18) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_18 (nr__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 (nr__19) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_19 (nr__19) ! (K) [1500/12000] Effective temperature
real*4 Z_19 (nr__19) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_19 (nr__19) ! [2] Mixing-length parameter
real*8 a1LSM_3 (nr__19) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_3 (nr__19) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_3 (nr__19) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_3 (nr__19) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_19 (nr__19) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_19 (nr__19) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_19 (nr__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 (nr__20) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_20 (nr__20) ! (K) [1500/12000] Effective temperature
real*4 Z_20 (nr__20) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_20 (nr__20) ! [2] Mixing-length parameter
real*8 a1LSM_4 (nr__20) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_4 (nr__20) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_4 (nr__20) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_4 (nr__20) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_20 (nr__20) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_20 (nr__20) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_20 (nr__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 (nr__21) ! ([cm/s2]) [2.5/6.0] Surface gravity
real*4 Teff_21 (nr__21) ! (K) [1500/12000] Effective temperature
real*4 Z_21 (nr__21) ! ([Sun]) [0] Metallicity (log[M/H])
real*4 L_HP_21 (nr__21) ! [2] Mixing-length parameter
real*8 a1LSM_5 (nr__21) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_5 (nr__21) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_5 (nr__21) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_5 (nr__21) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_21 (nr__21) ! SQRT(CHI2Q) (TESS LSM)
character*1 Type_21 (nr__21) ! [qsr] PHOENIX type of model (G1)
character*2 Mod_21 (nr__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 (nr__22) ! ([cm/s2]) [0.0/6.0] Surface gravity
real*4 Teff_22 (nr__22) ! (K) [2300/50000] Effective temperature
real*4 Z_22 (nr__22) ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H])
real*4 xi (nr__22) ! (km/s) [0/8] Microturbulent velocity {xi}
real*8 uLSM_4 (nr__22) ! Linear limb darkening coefficient u
* (TESS LSM) (G2)
real*8 uCFM (nr__22) ! Linear limb darkening coefficient u
* (TESS CFM) (G2)
real*4 chi2_22 (nr__22) ! SQRT(CHI2Q) (TESS LSM)
character*2 Mod_22 (nr__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 (nr__23) ! ([cm/s2]) [0.0/5.0] Surface gravity
real*4 Teff_23 (nr__23) ! (K) [3500/50000] Effective temperature
real*4 Z_23 (nr__23) ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H])
real*4 xi_1 (nr__23) ! (km/s) [0/8] Microturbulent velocity {xi}
real*8 aLSM_4 (nr__23) ! Quadratic limb darkening coefficient a
* (TESS LSM) (G2)
real*8 bLSM_4 (nr__23) ! Quadratic limb darkening coefficient b
* (TESS LSM) (G2)
real*8 aPCM_4 (nr__23) ! Quadratic limb darkening coefficient a
* (TESS FCM) (G2)
real*8 bPCM_4 (nr__23) ! Quadratic limb darkening coefficient b
* (TESS FCM) (G2)
real*4 chi2_23 (nr__23) ! SQRT(CHI2Q) (TESS LSM)
character*2 Mod_23 (nr__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 (nr__24) ! ([cm/s2]) [0.0/5.0] Surface gravity
real*4 Teff_24 (nr__24) ! (K) [3500/50000] Effective temperature
real*4 Z_24 (nr__24) ! ([Sun]) [-5.0/1.0] Metallicity (log[M/H])
real*4 xi_2 (nr__24) ! (km/s) [0/8] Microturbulent velocity {xi}
real*8 cLSM_4 (nr__24) ! root-square limb darkening coefficient c
* (TESS LSM) (G2)
real*8 dLSM_4 (nr__24) ! root-square limb darkening coefficient d
* (TESS LSM) (G2)
real*8 cPCM_4 (nr__24) ! root-square limb darkening coefficient c
* (TESS FCM) (G2)
real*8 dPCM_4 (nr__24) ! root-square limb darkening coefficient d
* (TESS FCM) (G2)
real*4 chi2_24 (nr__24) ! SQRT(CHI2Q) (TESS LSM)
character*2 Mod_24 (nr__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 (nr__25) ! ([cm/s2]) [0/5] Surface gravity
real*4 Teff_25 (nr__25) ! (K) [3500/50000] Effective temperature
real*4 Z_25 (nr__25) ! ([Sun]) [-5/1] Metallicity (log[M/H])
real*4 xi_3 (nr__25) ! [0/8] Microturbulent velocity {xi}
real*8 eLSM_4 (nr__25) ! logarithmic limb darkening coefficient e
* (TESS LSM) (G2)
real*8 fLSM_4 (nr__25) ! logarithmic limb darkening coefficient f
* (TESS LSM) (G2)
real*8 ePCM_4 (nr__25) ! logarithmic limb darkening coefficient e
* (TESS FCM) (G2)
real*8 fPCM_4 (nr__25) ! logarithmic limb darkening coefficient f
* (TESS FCM) (G2)
real*4 chi2_25 (nr__25) ! SQRT(CHI2Q) (TESS LSM)
character*2 Mod_25 (nr__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 (nr__26) ! ([cm/s2]) [0/5] Surface gravity
real*4 Teff_26 (nr__26) ! (K) [3500/50000] Effective temperature
real*4 Z_26 (nr__26) ! ([Sun]) [-5/1] Metallicity (log[M/H])
real*4 xi_4 (nr__26) ! [0/8] Microturbulent velocity {xi}
real*8 a1LSM_6 (nr__26) ! Equation 5 limb darkening coefficient a1
* (TESS LSM) (G2)
real*8 a2LSM_6 (nr__26) ! Equation 5 limb darkening coefficient a2
* (TESS LSM) (G2)
real*8 a3LSM_6 (nr__26) ! Equation 5 limb darkening coefficient a3
* (TESS LSM) (G2)
real*8 a4LSM_6 (nr__26) ! Equation 5 limb darkening coefficient a4
* (TESS LSM) (G2)
real*4 chi2_26 (nr__26) ! SQRT(CHI2Q) (TESS LSM)
character*2 Mod_26 (nr__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 (nr__27) ! ([Sun]) [-5/1] Metallicity (log[M/H])
real*4 xi_5 (nr__27) ! (km/s) [0/8] Microturbulent velocity
real*4 logg_27 (nr__27) ! ([cm/s2]) [0/5] Surface gravity
real*4 logTeff (nr__27) ! ([K]) [3.5/5.0] Effective temperature
real*8 y (nr__27) ! GDC (TESS)
character*2 Mod_27 (nr__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(i__),Teff(i__),Z(i__),L_HP(i__),uLSM(i__),uPCM(i__),
+ chi2(i__),Type(i__),Mod(i__)
c ..............Just test output...........
write(6,1)
+ logg(i__),Teff(i__),Z(i__),L_HP(i__),uLSM(i__),uPCM(i__),
+ chi2(i__),Type(i__),Mod(i__)
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(i__),Teff_1(i__),Z_1(i__),L_HP_1(i__),uLSM_1(i__),
+ uPCM_1(i__),chi2_1(i__),Type_1(i__),Mod_1(i__)
c ..............Just test output...........
write(6,2)
+ logg_1(i__),Teff_1(i__),Z_1(i__),L_HP_1(i__),uLSM_1(i__),
+ uPCM_1(i__),chi2_1(i__),Type_1(i__),Mod_1(i__)
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(i__),Teff_2(i__),Z_2(i__),L_HP_2(i__),aLSM(i__),
+ bLSM(i__),aPCM(i__),bPCM(i__),chi2_2(i__),Type_2(i__),
+ Mod_2(i__)
c ..............Just test output...........
write(6,3)
+ logg_2(i__),Teff_2(i__),Z_2(i__),L_HP_2(i__),aLSM(i__),
+ bLSM(i__),aPCM(i__),bPCM(i__),chi2_2(i__),Type_2(i__),
+ Mod_2(i__)
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(i__),Teff_3(i__),Z_3(i__),L_HP_3(i__),aLSM_1(i__),
+ bLSM_1(i__),aPCM_1(i__),bPCM_1(i__),chi2_3(i__),Type_3(i__),
+ Mod_3(i__)
c ..............Just test output...........
write(6,4)
+ logg_3(i__),Teff_3(i__),Z_3(i__),L_HP_3(i__),aLSM_1(i__),
+ bLSM_1(i__),aPCM_1(i__),bPCM_1(i__),chi2_3(i__),Type_3(i__),
+ Mod_3(i__)
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(i__),Teff_4(i__),Z_4(i__),L_HP_4(i__),cLSM(i__),
+ dLSM(i__),cPCM(i__),dPCM(i__),chi2_4(i__),Type_4(i__),
+ Mod_4(i__)
c ..............Just test output...........
write(6,5)
+ logg_4(i__),Teff_4(i__),Z_4(i__),L_HP_4(i__),cLSM(i__),
+ dLSM(i__),cPCM(i__),dPCM(i__),chi2_4(i__),Type_4(i__),
+ Mod_4(i__)
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(i__),Teff_5(i__),Z_5(i__),L_HP_5(i__),cLSM_1(i__),
+ dLSM_1(i__),cPCM_1(i__),dPCM_1(i__),chi2_5(i__),Type_5(i__),
+ Mod_5(i__)
c ..............Just test output...........
write(6,6)
+ logg_5(i__),Teff_5(i__),Z_5(i__),L_HP_5(i__),cLSM_1(i__),
+ dLSM_1(i__),cPCM_1(i__),dPCM_1(i__),chi2_5(i__),Type_5(i__),
+ Mod_5(i__)
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(i__),Teff_6(i__),Z_6(i__),L_HP_6(i__),eLSM(i__),
+ fLSM(i__),ePCM(i__),fPCM(i__),chi2_6(i__),Type_6(i__),
+ Mod_6(i__)
c ..............Just test output...........
write(6,7)
+ logg_6(i__),Teff_6(i__),Z_6(i__),L_HP_6(i__),eLSM(i__),
+ fLSM(i__),ePCM(i__),fPCM(i__),chi2_6(i__),Type_6(i__),
+ Mod_6(i__)
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(i__),Teff_7(i__),Z_7(i__),L_HP_7(i__),eLSM_1(i__),
+ fLSM_1(i__),ePCM_1(i__),fPCM_1(i__),chi2_7(i__),Type_7(i__),
+ Mod_7(i__)
c ..............Just test output...........
write(6,8)
+ logg_7(i__),Teff_7(i__),Z_7(i__),L_HP_7(i__),eLSM_1(i__),
+ fLSM_1(i__),ePCM_1(i__),fPCM_1(i__),chi2_7(i__),Type_7(i__),
+ Mod_7(i__)
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(i__),Teff_8(i__),Z_8(i__),L_HP_8(i__),a1LSM(i__),
+ a2LSM(i__),a3LSM(i__),a4LSM(i__),chi2_8(i__),Type_8(i__),
+ Mod_8(i__)
c ..............Just test output...........
write(6,9)
+ logg_8(i__),Teff_8(i__),Z_8(i__),L_HP_8(i__),a1LSM(i__),
+ a2LSM(i__),a3LSM(i__),a4LSM(i__),chi2_8(i__),Type_8(i__),
+ Mod_8(i__)
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(i__),Teff_9(i__),Z_9(i__),L_HP_9(i__),a1LSM_1(i__),
+ a2LSM_1(i__),a3LSM_1(i__),a4LSM_1(i__),chi2_9(i__),
+ Type_9(i__),Mod_9(i__)
c ..............Just test output...........
write(6,10)
+ logg_9(i__),Teff_9(i__),Z_9(i__),L_HP_9(i__),a1LSM_1(i__),
+ a2LSM_1(i__),a3LSM_1(i__),a4LSM_1(i__),chi2_9(i__),
+ Type_9(i__),Mod_9(i__)
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(i__),Teff_10(i__),Z_10(i__),L_HP_10(i__),a1LSM_2(i__),
+ a2LSM_2(i__),a3LSM_2(i__),a4LSM_2(i__),chi2_10(i__),
+ Type_10(i__),Mod_10(i__)
c ..............Just test output...........
write(6,11)
+ logg_10(i__),Teff_10(i__),Z_10(i__),L_HP_10(i__),a1LSM_2(i__),
+ a2LSM_2(i__),a3LSM_2(i__),a4LSM_2(i__),chi2_10(i__),
+ Type_10(i__),Mod_10(i__)
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(i__),Teff_11(i__),Z_11(i__),L_HP_11(i__),uLSM_2(i__),
+ uPCM_2(i__),chi2_11(i__),Type_11(i__),Mod_11(i__)
c ..............Just test output...........
write(6,12)
+ logg_11(i__),Teff_11(i__),Z_11(i__),L_HP_11(i__),uLSM_2(i__),
+ uPCM_2(i__),chi2_11(i__),Type_11(i__),Mod_11(i__)
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(i__),Teff_12(i__),Z_12(i__),L_HP_12(i__),uLSM_3(i__),
+ uPCM_3(i__),chi2_12(i__),Type_12(i__),Mod_12(i__)
c ..............Just test output...........
write(6,13)
+ logg_12(i__),Teff_12(i__),Z_12(i__),L_HP_12(i__),uLSM_3(i__),
+ uPCM_3(i__),chi2_12(i__),Type_12(i__),Mod_12(i__)
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(i__),Teff_13(i__),Z_13(i__),L_HP_13(i__),aLSM_2(i__),
+ bLSM_2(i__),aPCM_2(i__),bPCM_2(i__),chi2_13(i__),Type_13(i__),
+ Mod_13(i__)
c ..............Just test output...........
write(6,14)
+ logg_13(i__),Teff_13(i__),Z_13(i__),L_HP_13(i__),aLSM_2(i__),
+ bLSM_2(i__),aPCM_2(i__),bPCM_2(i__),chi2_13(i__),Type_13(i__),
+ Mod_13(i__)
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(i__),Teff_14(i__),Z_14(i__),L_HP_14(i__),aLSM_3(i__),
+ bLSM_3(i__),aPCM_3(i__),bPCM_3(i__),chi2_14(i__),Type_14(i__),
+ Mod_14(i__)
c ..............Just test output...........
write(6,15)
+ logg_14(i__),Teff_14(i__),Z_14(i__),L_HP_14(i__),aLSM_3(i__),
+ bLSM_3(i__),aPCM_3(i__),bPCM_3(i__),chi2_14(i__),Type_14(i__),
+ Mod_14(i__)
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(i__),Teff_15(i__),Z_15(i__),L_HP_15(i__),cLSM_2(i__),
+ dLSM_2(i__),cPCM_2(i__),dPCM_2(i__),chi2_15(i__),Type_15(i__),
+ Mod_15(i__)
c ..............Just test output...........
write(6,16)
+ logg_15(i__),Teff_15(i__),Z_15(i__),L_HP_15(i__),cLSM_2(i__),
+ dLSM_2(i__),cPCM_2(i__),dPCM_2(i__),chi2_15(i__),Type_15(i__),
+ Mod_15(i__)
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(i__),Teff_16(i__),Z_16(i__),L_HP_16(i__),cLSM_3(i__),
+ dLSM_3(i__),cPCM_3(i__),dPCM_3(i__),chi2_16(i__),Type_16(i__),
+ Mod_16(i__)
c ..............Just test output...........
write(6,17)
+ logg_16(i__),Teff_16(i__),Z_16(i__),L_HP_16(i__),cLSM_3(i__),
+ dLSM_3(i__),cPCM_3(i__),dPCM_3(i__),chi2_16(i__),Type_16(i__),
+ Mod_16(i__)
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(i__),Teff_17(i__),Z_17(i__),L_HP_17(i__),eLSM_2(i__),
+ fLSM_2(i__),ePCM_2(i__),fPCM_2(i__),chi2_17(i__),Type_17(i__),
+ Mod_17(i__)
c ..............Just test output...........
write(6,18)
+ logg_17(i__),Teff_17(i__),Z_17(i__),L_HP_17(i__),eLSM_2(i__),
+ fLSM_2(i__),ePCM_2(i__),fPCM_2(i__),chi2_17(i__),Type_17(i__),
+ Mod_17(i__)
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(i__),Teff_18(i__),Z_18(i__),L_HP_18(i__),eLSM_3(i__),
+ fLSM_3(i__),ePCM_3(i__),fPCM_3(i__),chi2_18(i__),Type_18(i__),
+ Mod_18(i__)
c ..............Just test output...........
write(6,19)
+ logg_18(i__),Teff_18(i__),Z_18(i__),L_HP_18(i__),eLSM_3(i__),
+ fLSM_3(i__),ePCM_3(i__),fPCM_3(i__),chi2_18(i__),Type_18(i__),
+ Mod_18(i__)
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(i__),Teff_19(i__),Z_19(i__),L_HP_19(i__),a1LSM_3(i__),
+ a2LSM_3(i__),a3LSM_3(i__),a4LSM_3(i__),chi2_19(i__),
+ Type_19(i__),Mod_19(i__)
c ..............Just test output...........
write(6,20)
+ logg_19(i__),Teff_19(i__),Z_19(i__),L_HP_19(i__),a1LSM_3(i__),
+ a2LSM_3(i__),a3LSM_3(i__),a4LSM_3(i__),chi2_19(i__),
+ Type_19(i__),Mod_19(i__)
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(i__),Teff_20(i__),Z_20(i__),L_HP_20(i__),a1LSM_4(i__),
+ a2LSM_4(i__),a3LSM_4(i__),a4LSM_4(i__),chi2_20(i__),
+ Type_20(i__),Mod_20(i__)
c ..............Just test output...........
write(6,21)
+ logg_20(i__),Teff_20(i__),Z_20(i__),L_HP_20(i__),a1LSM_4(i__),
+ a2LSM_4(i__),a3LSM_4(i__),a4LSM_4(i__),chi2_20(i__),
+ Type_20(i__),Mod_20(i__)
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(i__),Teff_21(i__),Z_21(i__),L_HP_21(i__),a1LSM_5(i__),
+ a2LSM_5(i__),a3LSM_5(i__),a4LSM_5(i__),chi2_21(i__),
+ Type_21(i__),Mod_21(i__)
c ..............Just test output...........
write(6,22)
+ logg_21(i__),Teff_21(i__),Z_21(i__),L_HP_21(i__),a1LSM_5(i__),
+ a2LSM_5(i__),a3LSM_5(i__),a4LSM_5(i__),chi2_21(i__),
+ Type_21(i__),Mod_21(i__)
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(i__),Teff_22(i__),Z_22(i__),xi(i__),uLSM_4(i__),
+ uCFM(i__),chi2_22(i__),Mod_22(i__)
c ..............Just test output...........
write(6,23)
+ logg_22(i__),Teff_22(i__),Z_22(i__),xi(i__),uLSM_4(i__),
+ uCFM(i__),chi2_22(i__),Mod_22(i__)
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(i__),Teff_23(i__),Z_23(i__),xi_1(i__),aLSM_4(i__),
+ bLSM_4(i__),aPCM_4(i__),bPCM_4(i__),chi2_23(i__),Mod_23(i__)
c ..............Just test output...........
write(6,24)
+ logg_23(i__),Teff_23(i__),Z_23(i__),xi_1(i__),aLSM_4(i__),
+ bLSM_4(i__),aPCM_4(i__),bPCM_4(i__),chi2_23(i__),Mod_23(i__)
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(i__),Teff_24(i__),Z_24(i__),xi_2(i__),cLSM_4(i__),
+ dLSM_4(i__),cPCM_4(i__),dPCM_4(i__),chi2_24(i__),Mod_24(i__)
c ..............Just test output...........
write(6,25)
+ logg_24(i__),Teff_24(i__),Z_24(i__),xi_2(i__),cLSM_4(i__),
+ dLSM_4(i__),cPCM_4(i__),dPCM_4(i__),chi2_24(i__),Mod_24(i__)
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(i__),Teff_25(i__),Z_25(i__),xi_3(i__),eLSM_4(i__),
+ fLSM_4(i__),ePCM_4(i__),fPCM_4(i__),chi2_25(i__),Mod_25(i__)
c ..............Just test output...........
write(6,26)
+ logg_25(i__),Teff_25(i__),Z_25(i__),xi_3(i__),eLSM_4(i__),
+ fLSM_4(i__),ePCM_4(i__),fPCM_4(i__),chi2_25(i__),Mod_25(i__)
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(i__),Teff_26(i__),Z_26(i__),xi_4(i__),a1LSM_6(i__),
+ a2LSM_6(i__),a3LSM_6(i__),a4LSM_6(i__),chi2_26(i__),
+ Mod_26(i__)
c ..............Just test output...........
write(6,27)
+ logg_26(i__),Teff_26(i__),Z_26(i__),xi_4(i__),a1LSM_6(i__),
+ a2LSM_6(i__),a3LSM_6(i__),a4LSM_6(i__),chi2_26(i__),
+ Mod_26(i__)
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(i__),xi_5(i__),logg_27(i__),logTeff(i__),y(i__),
+ Mod_27(i__)
c ..............Just test output...........
write(6,28)
+ Z_27(i__),xi_5(i__),logg_27(i__),logTeff(i__),y(i__),
+ Mod_27(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end