Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/582/A81 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-Mar-29 C============================================================================= * This code was generated from the ReadMe file documenting a catalogue * according to the "Standard for Documentation of Astronomical Catalogues" * currently in use by the Astronomical Data Centers (CDS, ADC, A&A) * (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx) * Please report problems or questions to C============================================================================= implicit none * Unspecified or NULL values, generally corresponding to blank columns, * are assigned one of the following special values: * rNULL__ for unknown or NULL floating-point values * iNULL__ for unknown or NULL integer values real*4 rNULL__ integer*4 iNULL__ parameter (rNULL__=--2147483648.) ! NULL real number parameter (iNULL__=(-2147483647-1)) ! NULL int number integer idig ! testing NULL number C============================================================================= Cat. J/A+A/582/A81 Gaia FGK benchmark stars: abundances (Jofre+, 2015) *================================================================================ *Gaia FGK benchmark stars: abundances of {alpha} and iron-peak elements. * Jofre P., Heiter U., Soubiran C., Blanco-Cuaresma S., Masseron T., * Nordlander T., Chemin L., Worley C.C., Van Eck S., Hourihane A., Gilmore G., * Adibekyan V., Bergemann M., Cantat-Gaudin T., Delgado-Mena E., * Gonzalez Hernandez J.I., Guiglion G., Lardo C., de Laverny P., Lind K., * Magrini L., Mikolaitis S., Montes D., Pancino E., Recio-Blanco A., Sordo R., * Sousa S., Tabernero H.M., Vallenari A. * <Astron. Astrophys. 582, A81 (2015)> * =2015A&A...582A..81J (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'stars.dat' ! List of studied stars integer*4 nr__ parameter (nr__=34) ! Number of records character*48 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 RAh (nr__) ! (h) ? Simbad right ascension (J2000) integer*4 RAm (nr__) ! (min) ? Simbad right ascension (J2000) real*4 RAs (nr__) ! (s) ? Simbad right ascension (J2000) character*1 DE_ (nr__) ! ? Simbad declination sign (J2000) integer*4 DEd (nr__) ! (deg) ? Simbad declination (J2000) integer*4 DEm (nr__) ! (arcmin) ? Simbad declination (J2000) real*4 DEs (nr__) ! (arcsec) ? Simbad declination (J2000) character*11 Star (nr__) ! Star name character*12 FileName (nr__) ! Name of the table with elemental abundances c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'infoline.dat' ! Line information (table C36) integer*4 nr__1 parameter (nr__1=236) ! Number of records character*48 ar__1 ! Full-size record real*8 lambda (nr__1) ! (0.1nm) Wavelength of line used in the abundance * determination integer*4 Ion (nr__1) ! Ionisation stage of the line real*4 loggf (nr__1) ! Oscillation strength of the line real*4 EP (nr__1) ! (eV) Excitation potential of the line character*3 GESflag (nr__1) ! Quality flag of Gaia-ESO line list character*1 FG_dwarf (nr__1) ! [YN-] Golden flag for stars in group of * FG-dwarfs (1) character*1 K_dwarf (nr__1) ! [YN-] Golden flag for stars in group of * K-dwarfs (1) character*1 metal_poor (nr__1) ! [YN-] Golden flag for stars in group of * metal-poor stars (1) character*1 FGK_giant (nr__1) ! [YN-] Golden flag for stars in group of * FGK-giants (1) character*1 M_giant (nr__1) ! [YN-] Golden flag for stars in group of * M-giants (1) *Note (1): Golden flag as follows: * Y = yes it is golden * N = no it is no golden * - = the line was not used c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec1.dat' ! 18 Sco elemental abundance measurements for different methods for each line integer*4 nr__2 parameter (nr__2=175) ! Number of records character*140 ar__2 ! Full-size record integer*4 El (nr__2) ! Atomic number of element real*8 lambda_1 (nr__2) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps (nr__2) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE (nr__2) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor (nr__2) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi (nr__2) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol (nr__2) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm (nr__2) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb (nr__2) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec (nr__2) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por (nr__2) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau (nr__2) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi (nr__2) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol (nr__2) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn (nr__2) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm (nr__2) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb (nr__2) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec2.dat' ! 61 Cyg A elemental abundance measurements for different methods for each line integer*4 nr__3 parameter (nr__3=153) ! Number of records character*140 ar__3 ! Full-size record integer*4 El_1 (nr__3) ! Atomic number of element real*8 lambda_2 (nr__3) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__3) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_1 (nr__3) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_1 (nr__3) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_1 (nr__3) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_1 (nr__3) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_1 (nr__3) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_1 (nr__3) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_1 (nr__3) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_1 (nr__3) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_1 (nr__3) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_1 (nr__3) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_1 (nr__3) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_1 (nr__3) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_1 (nr__3) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_1 (nr__3) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec3.dat' ! 61 Cyg B elemental abundance measurements for different methods for each line integer*4 nr__4 parameter (nr__4=99) ! Number of records character*140 ar__4 ! Full-size record integer*4 El_2 (nr__4) ! Atomic number of element real*8 lambda_3 (nr__4) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__4) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_2 (nr__4) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_2 (nr__4) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_2 (nr__4) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_2 (nr__4) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_2 (nr__4) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_2 (nr__4) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_2 (nr__4) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_2 (nr__4) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_2 (nr__4) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_2 (nr__4) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_2 (nr__4) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_2 (nr__4) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_2 (nr__4) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_2 (nr__4) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec4.dat' ! alpha Cen A elemental abundance measurements for different methods for each line integer*4 nr__5 parameter (nr__5=174) ! Number of records character*140 ar__5 ! Full-size record integer*4 El_3 (nr__5) ! Atomic number of element real*8 lambda_4 (nr__5) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__5) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_3 (nr__5) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_3 (nr__5) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_3 (nr__5) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_3 (nr__5) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_3 (nr__5) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_3 (nr__5) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_3 (nr__5) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_3 (nr__5) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_3 (nr__5) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_3 (nr__5) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_3 (nr__5) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_3 (nr__5) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_3 (nr__5) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_3 (nr__5) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec5.dat' ! alpha Cen B elemental abundance measurements for different methods for each line integer*4 nr__6 parameter (nr__6=156) ! Number of records character*140 ar__6 ! Full-size record integer*4 El_4 (nr__6) ! Atomic number of element real*8 lambda_5 (nr__6) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__6) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_4 (nr__6) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_4 (nr__6) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_4 (nr__6) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_4 (nr__6) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_4 (nr__6) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_4 (nr__6) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_4 (nr__6) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_4 (nr__6) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_4 (nr__6) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_4 (nr__6) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_4 (nr__6) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_4 (nr__6) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_4 (nr__6) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_4 (nr__6) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec6.dat' ! alpha Cet elemental abundance measurements for different methods for each line integer*4 nr__7 parameter (nr__7=40) ! Number of records character*140 ar__7 ! Full-size record integer*4 El_5 (nr__7) ! Atomic number of element real*8 lambda_6 (nr__7) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__7) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_5 (nr__7) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_5 (nr__7) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_5 (nr__7) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_5 (nr__7) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_5 (nr__7) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_5 (nr__7) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_5 (nr__7) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_5 (nr__7) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_5 (nr__7) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_5 (nr__7) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_5 (nr__7) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_5 (nr__7) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_5 (nr__7) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_5 (nr__7) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec7.dat' ! alpha Tau elemental abundance measurements for different methods for each line integer*4 nr__8 parameter (nr__8=64) ! Number of records character*140 ar__8 ! Full-size record integer*4 El_6 (nr__8) ! Atomic number of element real*8 lambda_7 (nr__8) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__8) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_6 (nr__8) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_6 (nr__8) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_6 (nr__8) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_6 (nr__8) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_6 (nr__8) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_6 (nr__8) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_6 (nr__8) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_6 (nr__8) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_6 (nr__8) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_6 (nr__8) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_6 (nr__8) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_6 (nr__8) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_6 (nr__8) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_6 (nr__8) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec8.dat' ! Arcturus elemental abundance measurements for different methods for each line integer*4 nr__9 parameter (nr__9=149) ! Number of records character*140 ar__9 ! Full-size record integer*4 El_7 (nr__9) ! Atomic number of element real*8 lambda_8 (nr__9) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__9) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_7 (nr__9) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_7 (nr__9) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_7 (nr__9) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_7 (nr__9) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_7 (nr__9) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_7 (nr__9) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_7 (nr__9) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_7 (nr__9) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_7 (nr__9) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_7 (nr__9) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_7 (nr__9) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_7 (nr__9) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_7 (nr__9) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_7 (nr__9) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec9.dat' ! beta Ara elemental abundance measurements for different methods for each line integer*4 nr__10 parameter (nr__10=36) ! Number of records character*140 ar__10 ! Full-size record integer*4 El_8 (nr__10) ! Atomic number of element real*8 lambda_9 (nr__10) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__10) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_8 (nr__10) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_8 (nr__10) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_8 (nr__10) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_8 (nr__10) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_8 (nr__10) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_8 (nr__10) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_8 (nr__10) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_8 (nr__10) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_8 (nr__10) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_8 (nr__10) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_8 (nr__10) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_8 (nr__10) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_8 (nr__10) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_8 (nr__10) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec10.dat' ! beta Gem elemental abundance measurements for different methods for each line integer*4 nr__11 parameter (nr__11=135) ! Number of records character*140 ar__11 ! Full-size record integer*4 El_9 (nr__11) ! Atomic number of element real*8 lambda_10 (nr__11) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__11) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_9 (nr__11) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_9 (nr__11) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_9 (nr__11) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_9 (nr__11) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_9 (nr__11) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_9 (nr__11) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_9 (nr__11) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_9 (nr__11) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_9 (nr__11) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_9 (nr__11) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_9 (nr__11) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_9 (nr__11) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_9 (nr__11) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_9 (nr__11) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec11.dat' ! beta Hyi elemental abundance measurements for different methods for each line integer*4 nr__12 parameter (nr__12=156) ! Number of records character*140 ar__12 ! Full-size record integer*4 El_10 (nr__12) ! Atomic number of element real*8 lambda_11 (nr__12) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__12) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_10 (nr__12) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_10 (nr__12) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_10 (nr__12) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_10 (nr__12) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_10 (nr__12) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_10 (nr__12) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_10 (nr__12) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_10 (nr__12) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_10 (nr__12) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_10 (nr__12) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_10 (nr__12) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_10 (nr__12) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_10 (nr__12) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_10 (nr__12) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec12.dat' ! beta Vir elemental abundance measurements for different methods for each line integer*4 nr__13 parameter (nr__13=151) ! Number of records character*140 ar__13 ! Full-size record integer*4 El_11 (nr__13) ! Atomic number of element real*8 lambda_12 (nr__13) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__13) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_11 (nr__13) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_11 (nr__13) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_11 (nr__13) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_11 (nr__13) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_11 (nr__13) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_11 (nr__13) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_11 (nr__13) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_11 (nr__13) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_11 (nr__13) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_11 (nr__13) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_11 (nr__13) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_11 (nr__13) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_11 (nr__13) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_11 (nr__13) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec13.dat' ! delta Eri elemental abundance measurements for different methods for each line integer*4 nr__14 parameter (nr__14=166) ! Number of records character*140 ar__14 ! Full-size record integer*4 El_12 (nr__14) ! Atomic number of element real*8 lambda_13 (nr__14) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__14) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_12 (nr__14) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_12 (nr__14) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_12 (nr__14) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_12 (nr__14) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_12 (nr__14) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_12 (nr__14) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_12 (nr__14) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_12 (nr__14) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_12 (nr__14) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_12 (nr__14) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_12 (nr__14) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_12 (nr__14) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_12 (nr__14) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_12 (nr__14) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec14.dat' ! epsilon eri elemental abundance measurements for different methods for each line integer*4 nr__15 parameter (nr__15=132) ! Number of records character*140 ar__15 ! Full-size record integer*4 El_13 (nr__15) ! Atomic number of element real*8 lambda_14 (nr__15) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__15) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_13 (nr__15) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_13 (nr__15) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_13 (nr__15) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_13 (nr__15) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_13 (nr__15) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_13 (nr__15) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_13 (nr__15) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_13 (nr__15) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_13 (nr__15) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_13 (nr__15) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_13 (nr__15) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_13 (nr__15) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_13 (nr__15) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_13 (nr__15) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec15.dat' ! epsilon For elemental abundance measurements for different methods for each line integer*4 nr__16 parameter (nr__16=168) ! Number of records character*140 ar__16 ! Full-size record integer*4 El_14 (nr__16) ! Atomic number of element real*8 lambda_15 (nr__16) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__16) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_14 (nr__16) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_14 (nr__16) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_14 (nr__16) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_14 (nr__16) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_14 (nr__16) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_14 (nr__16) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_14 (nr__16) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_14 (nr__16) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_14 (nr__16) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_14 (nr__16) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_14 (nr__16) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_14 (nr__16) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_14 (nr__16) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_14 (nr__16) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec16.dat' ! epsilon Vir elemental abundance measurements for different methods for each line integer*4 nr__17 parameter (nr__17=129) ! Number of records character*140 ar__17 ! Full-size record integer*4 El_15 (nr__17) ! Atomic number of element real*8 lambda_16 (nr__17) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__17) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_15 (nr__17) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_15 (nr__17) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_15 (nr__17) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_15 (nr__17) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_15 (nr__17) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_15 (nr__17) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_15 (nr__17) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_15 (nr__17) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_15 (nr__17) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_15 (nr__17) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_15 (nr__17) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_15 (nr__17) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_15 (nr__17) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_15 (nr__17) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec17.dat' ! eta Boo elemental abundance measurements for different methods for each line integer*4 nr__18 parameter (nr__18=116) ! Number of records character*140 ar__18 ! Full-size record integer*4 El_16 (nr__18) ! Atomic number of element real*8 lambda_17 (nr__18) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__18) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_16 (nr__18) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_16 (nr__18) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_16 (nr__18) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_16 (nr__18) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_16 (nr__18) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_16 (nr__18) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_16 (nr__18) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_16 (nr__18) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_16 (nr__18) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_16 (nr__18) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_16 (nr__18) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_16 (nr__18) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_16 (nr__18) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_16 (nr__18) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec18.dat' ! gamma Sge elemental abundance measurements for different methods for each line integer*4 nr__19 parameter (nr__19=58) ! Number of records character*140 ar__19 ! Full-size record integer*4 El_17 (nr__19) ! Atomic number of element real*8 lambda_18 (nr__19) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__19) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_17 (nr__19) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_17 (nr__19) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_17 (nr__19) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_17 (nr__19) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_17 (nr__19) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_17 (nr__19) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_17 (nr__19) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_17 (nr__19) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_17 (nr__19) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_17 (nr__19) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_17 (nr__19) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_17 (nr__19) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_17 (nr__19) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_17 (nr__19) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec19.dat' ! Gmb 1830 elemental abundance measurements for different methods for each line integer*4 nr__20 parameter (nr__20=135) ! Number of records character*140 ar__20 ! Full-size record integer*4 El_18 (nr__20) ! Atomic number of element real*8 lambda_19 (nr__20) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__20) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_18 (nr__20) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_18 (nr__20) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_18 (nr__20) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_18 (nr__20) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_18 (nr__20) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_18 (nr__20) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_18 (nr__20) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_18 (nr__20) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_18 (nr__20) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_18 (nr__20) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_18 (nr__20) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_18 (nr__20) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_18 (nr__20) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_18 (nr__20) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec20.dat' ! HD 22879 elemental abundance measurements for different methods for each line integer*4 nr__21 parameter (nr__21=158) ! Number of records character*140 ar__21 ! Full-size record integer*4 El_19 (nr__21) ! Atomic number of element real*8 lambda_20 (nr__21) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__21) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_19 (nr__21) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_19 (nr__21) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_19 (nr__21) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_19 (nr__21) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_19 (nr__21) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_19 (nr__21) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_19 (nr__21) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_19 (nr__21) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_19 (nr__21) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_19 (nr__21) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_19 (nr__21) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_19 (nr__21) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_19 (nr__21) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_19 (nr__21) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec21.dat' ! HD49933 elemental abundance measurements for different methods for each line integer*4 nr__22 parameter (nr__22=78) ! Number of records character*140 ar__22 ! Full-size record integer*4 El_20 (nr__22) ! Atomic number of element real*8 lambda_21 (nr__22) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__22) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_20 (nr__22) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_20 (nr__22) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_20 (nr__22) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_20 (nr__22) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_20 (nr__22) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_20 (nr__22) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_20 (nr__22) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_20 (nr__22) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_20 (nr__22) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_20 (nr__22) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_20 (nr__22) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_20 (nr__22) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_20 (nr__22) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_20 (nr__22) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec22.dat' ! HD84937 elemental abundance measurements for different methods for each line integer*4 nr__23 parameter (nr__23=47) ! Number of records character*140 ar__23 ! Full-size record integer*4 El_21 (nr__23) ! Atomic number of element real*8 lambda_22 (nr__23) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__23) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_21 (nr__23) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_21 (nr__23) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_21 (nr__23) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_21 (nr__23) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_21 (nr__23) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_21 (nr__23) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_21 (nr__23) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_21 (nr__23) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_21 (nr__23) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_21 (nr__23) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_21 (nr__23) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_21 (nr__23) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_21 (nr__23) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_21 (nr__23) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec23.dat' ! HD107328 elemental abundance measurements for different methods for each line integer*4 nr__24 parameter (nr__24=114) ! Number of records character*140 ar__24 ! Full-size record integer*4 El_22 (nr__24) ! Atomic number of element real*8 lambda_23 (nr__24) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__24) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_22 (nr__24) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_22 (nr__24) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_22 (nr__24) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_22 (nr__24) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_22 (nr__24) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_22 (nr__24) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_22 (nr__24) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_22 (nr__24) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_22 (nr__24) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_22 (nr__24) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_22 (nr__24) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_22 (nr__24) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_22 (nr__24) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_22 (nr__24) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec24.dat' ! HD122563 elemental abundance measurements for different methods for each line integer*4 nr__25 parameter (nr__25=85) ! Number of records character*140 ar__25 ! Full-size record integer*4 El_23 (nr__25) ! Atomic number of element real*8 lambda_24 (nr__25) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__25) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_23 (nr__25) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_23 (nr__25) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_23 (nr__25) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_23 (nr__25) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_23 (nr__25) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_23 (nr__25) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_23 (nr__25) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_23 (nr__25) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_23 (nr__25) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_23 (nr__25) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_23 (nr__25) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_23 (nr__25) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_23 (nr__25) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_23 (nr__25) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec25.dat' ! HD140283 elemental abundance measurements for different methods for each line integer*4 nr__26 parameter (nr__26=29) ! Number of records character*140 ar__26 ! Full-size record integer*4 El_24 (nr__26) ! Atomic number of element real*8 lambda_25 (nr__26) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__26) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_24 (nr__26) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_24 (nr__26) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_24 (nr__26) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_24 (nr__26) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_24 (nr__26) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_24 (nr__26) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_24 (nr__26) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_24 (nr__26) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_24 (nr__26) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_24 (nr__26) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_24 (nr__26) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_24 (nr__26) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_24 (nr__26) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_24 (nr__26) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec26.dat' ! HD220009 elemental abundance measurements for different methods for each line integer*4 nr__27 parameter (nr__27=128) ! Number of records character*140 ar__27 ! Full-size record integer*4 El_25 (nr__27) ! Atomic number of element real*8 lambda_26 (nr__27) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__27) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_25 (nr__27) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_25 (nr__27) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_25 (nr__27) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_25 (nr__27) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_25 (nr__27) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_25 (nr__27) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_25 (nr__27) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_25 (nr__27) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_25 (nr__27) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_25 (nr__27) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_25 (nr__27) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_25 (nr__27) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_25 (nr__27) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_25 (nr__27) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec27.dat' ! ksi Hya elemental abundance measurements for different methods for each line integer*4 nr__28 parameter (nr__28=133) ! Number of records character*140 ar__28 ! Full-size record integer*4 El_26 (nr__28) ! Atomic number of element real*8 lambda_27 (nr__28) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__28) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_26 (nr__28) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_26 (nr__28) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_26 (nr__28) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_26 (nr__28) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_26 (nr__28) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_26 (nr__28) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_26 (nr__28) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_26 (nr__28) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_26 (nr__28) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_26 (nr__28) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_26 (nr__28) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_26 (nr__28) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_26 (nr__28) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_26 (nr__28) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec28.dat' ! mu Ara elemental abundance measurements for different methods for each line integer*4 nr__29 parameter (nr__29=174) ! Number of records character*140 ar__29 ! Full-size record integer*4 El_27 (nr__29) ! Atomic number of element real*8 lambda_28 (nr__29) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__29) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_27 (nr__29) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_27 (nr__29) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_27 (nr__29) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_27 (nr__29) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_27 (nr__29) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_27 (nr__29) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_27 (nr__29) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_27 (nr__29) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_27 (nr__29) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_27 (nr__29) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_27 (nr__29) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_27 (nr__29) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_27 (nr__29) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_27 (nr__29) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec29.dat' ! mu Cas elemental abundance measurements for different methods for each line integer*4 nr__30 parameter (nr__30=160) ! Number of records character*140 ar__30 ! Full-size record integer*4 El_28 (nr__30) ! Atomic number of element real*8 lambda_29 (nr__30) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__30) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_28 (nr__30) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_28 (nr__30) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_28 (nr__30) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_28 (nr__30) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_28 (nr__30) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_28 (nr__30) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_28 (nr__30) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_28 (nr__30) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_28 (nr__30) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_28 (nr__30) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_28 (nr__30) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_28 (nr__30) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_28 (nr__30) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_28 (nr__30) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec30.dat' ! mu Leo elemental abundance measurements for different methods for each line integer*4 nr__31 parameter (nr__31=75) ! Number of records character*140 ar__31 ! Full-size record integer*4 El_29 (nr__31) ! Atomic number of element real*8 lambda_30 (nr__31) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__31) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_29 (nr__31) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_29 (nr__31) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_29 (nr__31) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_29 (nr__31) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_29 (nr__31) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_29 (nr__31) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_29 (nr__31) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_29 (nr__31) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_29 (nr__31) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_29 (nr__31) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_29 (nr__31) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_29 (nr__31) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_29 (nr__31) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_29 (nr__31) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec31.dat' ! Procyon elemental abundance measurements for different methods for each line integer*4 nr__32 parameter (nr__32=115) ! Number of records character*140 ar__32 ! Full-size record integer*4 El_30 (nr__32) ! Atomic number of element real*8 lambda_31 (nr__32) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__32) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_30 (nr__32) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_30 (nr__32) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_30 (nr__32) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_30 (nr__32) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_30 (nr__32) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_30 (nr__32) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_30 (nr__32) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_30 (nr__32) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_30 (nr__32) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_30 (nr__32) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_30 (nr__32) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_30 (nr__32) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_30 (nr__32) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_30 (nr__32) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec32.dat' ! psi Phe elemental abundance measurements for different methods for each line integer*4 nr__33 parameter (nr__33=25) ! Number of records character*140 ar__33 ! Full-size record integer*4 El_31 (nr__33) ! Atomic number of element real*8 lambda_32 (nr__33) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__33) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_31 (nr__33) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_31 (nr__33) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_31 (nr__33) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_31 (nr__33) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_31 (nr__33) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_31 (nr__33) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_31 (nr__33) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_31 (nr__33) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_31 (nr__33) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_31 (nr__33) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_31 (nr__33) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_31 (nr__33) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_31 (nr__33) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_31 (nr__33) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec33.dat' ! Sun elemental abundance measurements for different methods for each line integer*4 nr__34 parameter (nr__34=177) ! Number of records character*140 ar__34 ! Full-size record integer*4 El_32 (nr__34) ! Atomic number of element real*8 lambda_33 (nr__34) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__34) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_32 (nr__34) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_32 (nr__34) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_32 (nr__34) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_32 (nr__34) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_32 (nr__34) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_32 (nr__34) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_32 (nr__34) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_32 (nr__34) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_32 (nr__34) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_32 (nr__34) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_32 (nr__34) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_32 (nr__34) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_32 (nr__34) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_32 (nr__34) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec34.dat' ! tau Cet elemental abundance measurements for different methods for each line integer*4 nr__35 parameter (nr__35=178) ! Number of records character*140 ar__35 ! Full-size record integer*4 El_33 (nr__35) ! Atomic number of element real*8 lambda_34 (nr__35) ! (0.1nm) Wavelength of line used in the abundance * determination real*4 log_eps_1 (nr__35) ! ([-]) ?=-9.99 Abundance obtained for the line * after combining methods (1) real*4 NLTE_33 (nr__35) ! ?=-9.99 NLTE correction for that line (1) real*4 EWpor_33 (nr__35) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Porto method (1) real*4 EWepi_33 (nr__35) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * EPINARBO method (1) real*4 EWbol_33 (nr__35) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * Bologna method (1) real*4 EWucm_33 (nr__35) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * UCM method (1) real*4 EWulb_33 (nr__35) ! (0.1pm) ?=-9.99 Equivalent width obtained by the * ULB method (1) real*4 ispec_33 (nr__35) ! ?=-9.99 Abundance obtained by the * iSpec method (1) real*4 por_33 (nr__35) ! ?=-9.99 Abundance obtained by the * Porto method (1) real*4 gau_33 (nr__35) ! ?=-9.99 Abundance obtained by the * Gauguin method (1) real*4 epi_33 (nr__35) ! ?=-9.99 Abundance obtained by the * EPINARBO method (1) real*4 bol_33 (nr__35) ! ?=-9.99 Abundance obtained by the * Bologna method (1) real*4 syn_33 (nr__35) ! ?=-9.99 Abundance obtained by the * synspec method (1) real*4 ucm_33 (nr__35) ! ?=-9.99 Abundance obtained by the * UCM method (1) real*4 ulb_33 (nr__35) ! ?=-9.99 Abundance obtained by the * ULB method (1) *Note (1): if a method had no abundance measurement of a given line, the value * was set to -9.99, if the method did not analyse the line, the value was set * to 0.0. C============================================================================= C Loading file 'stars.dat' ! List of studied stars C Format for file interpretation 1 format(I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,A11,1X,A12) C Effective file loading open(unit=1,status='old',file= +'stars.dat') write(6,*) '....Loading file: stars.dat' do i__=1,34 read(1,'(A48)')ar__ read(ar__,1) + RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__), + DEs(i__),Star(i__),FileName(i__) if(ar__(1:2) .EQ. '') RAh(i__) = iNULL__ if(ar__(4:5) .EQ. '') RAm(i__) = iNULL__ if(ar__(7:11) .EQ. '') RAs(i__) = rNULL__ if(ar__(14:15) .EQ. '') DEd(i__) = iNULL__ if(ar__(17:18) .EQ. '') DEm(i__) = iNULL__ if(ar__(20:23) .EQ. '') DEs(i__) = rNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__), + DEs(i__),Star(i__),FileName(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'infoline.dat' ! Line information (table C36) C Format for file interpretation 2 format( + F7.2,2X,I1,3X,F6.3,3X,F5.3,3X,A3,2X,A1,2X,A1,2X,A1,2X,A1,2X,A1) C Effective file loading open(unit=1,status='old',file= +'infoline.dat') write(6,*) '....Loading file: infoline.dat' do i__=1,236 read(1,'(A48)')ar__1 read(ar__1,2) + lambda(i__),Ion(i__),loggf(i__),EP(i__),GESflag(i__), + FG_dwarf(i__),K_dwarf(i__),metal_poor(i__),FGK_giant(i__), + M_giant(i__) c ..............Just test output........... write(6,2) + lambda(i__),Ion(i__),loggf(i__),EP(i__),GESflag(i__), + FG_dwarf(i__),K_dwarf(i__),metal_poor(i__),FGK_giant(i__), + M_giant(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec1.dat' ! 18 Sco elemental abundance measurements for * different methods for each line C Format for file interpretation 3 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec1.dat') write(6,*) '....Loading file: tablec1.dat' do i__=1,175 read(1,'(A140)')ar__2 read(ar__2,3) + El(i__),lambda_1(i__),log_eps(i__),NLTE(i__),EWpor(i__), + EWepi(i__),EWbol(i__),EWucm(i__),EWulb(i__),ispec(i__), + por(i__),gau(i__),epi(i__),bol(i__),syn(i__),ucm(i__),ulb(i__) c ..............Just test output........... write(6,3) + El(i__),lambda_1(i__),log_eps(i__),NLTE(i__),EWpor(i__), + EWepi(i__),EWbol(i__),EWucm(i__),EWulb(i__),ispec(i__), + por(i__),gau(i__),epi(i__),bol(i__),syn(i__),ucm(i__),ulb(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec2.dat' ! 61 Cyg A elemental abundance measurements for * different methods for each line C Format for file interpretation 4 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec2.dat') write(6,*) '....Loading file: tablec2.dat' do i__=1,153 read(1,'(A140)')ar__3 read(ar__3,4) + El_1(i__),lambda_2(i__),log_eps_1(i__),NLTE_1(i__), + EWpor_1(i__),EWepi_1(i__),EWbol_1(i__),EWucm_1(i__), + EWulb_1(i__),ispec_1(i__),por_1(i__),gau_1(i__),epi_1(i__), + bol_1(i__),syn_1(i__),ucm_1(i__),ulb_1(i__) c ..............Just test output........... write(6,4) + El_1(i__),lambda_2(i__),log_eps_1(i__),NLTE_1(i__), + EWpor_1(i__),EWepi_1(i__),EWbol_1(i__),EWucm_1(i__), + EWulb_1(i__),ispec_1(i__),por_1(i__),gau_1(i__),epi_1(i__), + bol_1(i__),syn_1(i__),ucm_1(i__),ulb_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec3.dat' ! 61 Cyg B elemental abundance measurements for * different methods for each line C Format for file interpretation 5 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec3.dat') write(6,*) '....Loading file: tablec3.dat' do i__=1,99 read(1,'(A140)')ar__4 read(ar__4,5) + El_2(i__),lambda_3(i__),log_eps_1(i__),NLTE_2(i__), + EWpor_2(i__),EWepi_2(i__),EWbol_2(i__),EWucm_2(i__), + EWulb_2(i__),ispec_2(i__),por_2(i__),gau_2(i__),epi_2(i__), + bol_2(i__),syn_2(i__),ucm_2(i__),ulb_2(i__) c ..............Just test output........... write(6,5) + El_2(i__),lambda_3(i__),log_eps_1(i__),NLTE_2(i__), + EWpor_2(i__),EWepi_2(i__),EWbol_2(i__),EWucm_2(i__), + EWulb_2(i__),ispec_2(i__),por_2(i__),gau_2(i__),epi_2(i__), + bol_2(i__),syn_2(i__),ucm_2(i__),ulb_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec4.dat' ! alpha Cen A elemental abundance measurements for * different methods for each line C Format for file interpretation 6 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec4.dat') write(6,*) '....Loading file: tablec4.dat' do i__=1,174 read(1,'(A140)')ar__5 read(ar__5,6) + El_3(i__),lambda_4(i__),log_eps_1(i__),NLTE_3(i__), + EWpor_3(i__),EWepi_3(i__),EWbol_3(i__),EWucm_3(i__), + EWulb_3(i__),ispec_3(i__),por_3(i__),gau_3(i__),epi_3(i__), + bol_3(i__),syn_3(i__),ucm_3(i__),ulb_3(i__) c ..............Just test output........... write(6,6) + El_3(i__),lambda_4(i__),log_eps_1(i__),NLTE_3(i__), + EWpor_3(i__),EWepi_3(i__),EWbol_3(i__),EWucm_3(i__), + EWulb_3(i__),ispec_3(i__),por_3(i__),gau_3(i__),epi_3(i__), + bol_3(i__),syn_3(i__),ucm_3(i__),ulb_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec5.dat' ! alpha Cen B elemental abundance measurements for * different methods for each line C Format for file interpretation 7 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec5.dat') write(6,*) '....Loading file: tablec5.dat' do i__=1,156 read(1,'(A140)')ar__6 read(ar__6,7) + El_4(i__),lambda_5(i__),log_eps_1(i__),NLTE_4(i__), + EWpor_4(i__),EWepi_4(i__),EWbol_4(i__),EWucm_4(i__), + EWulb_4(i__),ispec_4(i__),por_4(i__),gau_4(i__),epi_4(i__), + bol_4(i__),syn_4(i__),ucm_4(i__),ulb_4(i__) c ..............Just test output........... write(6,7) + El_4(i__),lambda_5(i__),log_eps_1(i__),NLTE_4(i__), + EWpor_4(i__),EWepi_4(i__),EWbol_4(i__),EWucm_4(i__), + EWulb_4(i__),ispec_4(i__),por_4(i__),gau_4(i__),epi_4(i__), + bol_4(i__),syn_4(i__),ucm_4(i__),ulb_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec6.dat' ! alpha Cet elemental abundance measurements for * different methods for each line C Format for file interpretation 8 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec6.dat') write(6,*) '....Loading file: tablec6.dat' do i__=1,40 read(1,'(A140)')ar__7 read(ar__7,8) + El_5(i__),lambda_6(i__),log_eps_1(i__),NLTE_5(i__), + EWpor_5(i__),EWepi_5(i__),EWbol_5(i__),EWucm_5(i__), + EWulb_5(i__),ispec_5(i__),por_5(i__),gau_5(i__),epi_5(i__), + bol_5(i__),syn_5(i__),ucm_5(i__),ulb_5(i__) c ..............Just test output........... write(6,8) + El_5(i__),lambda_6(i__),log_eps_1(i__),NLTE_5(i__), + EWpor_5(i__),EWepi_5(i__),EWbol_5(i__),EWucm_5(i__), + EWulb_5(i__),ispec_5(i__),por_5(i__),gau_5(i__),epi_5(i__), + bol_5(i__),syn_5(i__),ucm_5(i__),ulb_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec7.dat' ! alpha Tau elemental abundance measurements for * different methods for each line C Format for file interpretation 9 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec7.dat') write(6,*) '....Loading file: tablec7.dat' do i__=1,64 read(1,'(A140)')ar__8 read(ar__8,9) + El_6(i__),lambda_7(i__),log_eps_1(i__),NLTE_6(i__), + EWpor_6(i__),EWepi_6(i__),EWbol_6(i__),EWucm_6(i__), + EWulb_6(i__),ispec_6(i__),por_6(i__),gau_6(i__),epi_6(i__), + bol_6(i__),syn_6(i__),ucm_6(i__),ulb_6(i__) c ..............Just test output........... write(6,9) + El_6(i__),lambda_7(i__),log_eps_1(i__),NLTE_6(i__), + EWpor_6(i__),EWepi_6(i__),EWbol_6(i__),EWucm_6(i__), + EWulb_6(i__),ispec_6(i__),por_6(i__),gau_6(i__),epi_6(i__), + bol_6(i__),syn_6(i__),ucm_6(i__),ulb_6(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec8.dat' ! Arcturus elemental abundance measurements for * different methods for each line C Format for file interpretation 10 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec8.dat') write(6,*) '....Loading file: tablec8.dat' do i__=1,149 read(1,'(A140)')ar__9 read(ar__9,10) + El_7(i__),lambda_8(i__),log_eps_1(i__),NLTE_7(i__), + EWpor_7(i__),EWepi_7(i__),EWbol_7(i__),EWucm_7(i__), + EWulb_7(i__),ispec_7(i__),por_7(i__),gau_7(i__),epi_7(i__), + bol_7(i__),syn_7(i__),ucm_7(i__),ulb_7(i__) c ..............Just test output........... write(6,10) + El_7(i__),lambda_8(i__),log_eps_1(i__),NLTE_7(i__), + EWpor_7(i__),EWepi_7(i__),EWbol_7(i__),EWucm_7(i__), + EWulb_7(i__),ispec_7(i__),por_7(i__),gau_7(i__),epi_7(i__), + bol_7(i__),syn_7(i__),ucm_7(i__),ulb_7(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec9.dat' ! beta Ara elemental abundance measurements for * different methods for each line C Format for file interpretation 11 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec9.dat') write(6,*) '....Loading file: tablec9.dat' do i__=1,36 read(1,'(A140)')ar__10 read(ar__10,11) + El_8(i__),lambda_9(i__),log_eps_1(i__),NLTE_8(i__), + EWpor_8(i__),EWepi_8(i__),EWbol_8(i__),EWucm_8(i__), + EWulb_8(i__),ispec_8(i__),por_8(i__),gau_8(i__),epi_8(i__), + bol_8(i__),syn_8(i__),ucm_8(i__),ulb_8(i__) c ..............Just test output........... write(6,11) + El_8(i__),lambda_9(i__),log_eps_1(i__),NLTE_8(i__), + EWpor_8(i__),EWepi_8(i__),EWbol_8(i__),EWucm_8(i__), + EWulb_8(i__),ispec_8(i__),por_8(i__),gau_8(i__),epi_8(i__), + bol_8(i__),syn_8(i__),ucm_8(i__),ulb_8(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec10.dat' ! beta Gem elemental abundance measurements for * different methods for each line C Format for file interpretation 12 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec10.dat') write(6,*) '....Loading file: tablec10.dat' do i__=1,135 read(1,'(A140)')ar__11 read(ar__11,12) + El_9(i__),lambda_10(i__),log_eps_1(i__),NLTE_9(i__), + EWpor_9(i__),EWepi_9(i__),EWbol_9(i__),EWucm_9(i__), + EWulb_9(i__),ispec_9(i__),por_9(i__),gau_9(i__),epi_9(i__), + bol_9(i__),syn_9(i__),ucm_9(i__),ulb_9(i__) c ..............Just test output........... write(6,12) + El_9(i__),lambda_10(i__),log_eps_1(i__),NLTE_9(i__), + EWpor_9(i__),EWepi_9(i__),EWbol_9(i__),EWucm_9(i__), + EWulb_9(i__),ispec_9(i__),por_9(i__),gau_9(i__),epi_9(i__), + bol_9(i__),syn_9(i__),ucm_9(i__),ulb_9(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec11.dat' ! beta Hyi elemental abundance measurements for * different methods for each line C Format for file interpretation 13 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec11.dat') write(6,*) '....Loading file: tablec11.dat' do i__=1,156 read(1,'(A140)')ar__12 read(ar__12,13) + El_10(i__),lambda_11(i__),log_eps_1(i__),NLTE_10(i__), + EWpor_10(i__),EWepi_10(i__),EWbol_10(i__),EWucm_10(i__), + EWulb_10(i__),ispec_10(i__),por_10(i__),gau_10(i__), + epi_10(i__),bol_10(i__),syn_10(i__),ucm_10(i__),ulb_10(i__) c ..............Just test output........... write(6,13) + El_10(i__),lambda_11(i__),log_eps_1(i__),NLTE_10(i__), + EWpor_10(i__),EWepi_10(i__),EWbol_10(i__),EWucm_10(i__), + EWulb_10(i__),ispec_10(i__),por_10(i__),gau_10(i__), + epi_10(i__),bol_10(i__),syn_10(i__),ucm_10(i__),ulb_10(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec12.dat' ! beta Vir elemental abundance measurements for * different methods for each line C Format for file interpretation 14 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec12.dat') write(6,*) '....Loading file: tablec12.dat' do i__=1,151 read(1,'(A140)')ar__13 read(ar__13,14) + El_11(i__),lambda_12(i__),log_eps_1(i__),NLTE_11(i__), + EWpor_11(i__),EWepi_11(i__),EWbol_11(i__),EWucm_11(i__), + EWulb_11(i__),ispec_11(i__),por_11(i__),gau_11(i__), + epi_11(i__),bol_11(i__),syn_11(i__),ucm_11(i__),ulb_11(i__) c ..............Just test output........... write(6,14) + El_11(i__),lambda_12(i__),log_eps_1(i__),NLTE_11(i__), + EWpor_11(i__),EWepi_11(i__),EWbol_11(i__),EWucm_11(i__), + EWulb_11(i__),ispec_11(i__),por_11(i__),gau_11(i__), + epi_11(i__),bol_11(i__),syn_11(i__),ucm_11(i__),ulb_11(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec13.dat' ! delta Eri elemental abundance measurements for * different methods for each line C Format for file interpretation 15 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec13.dat') write(6,*) '....Loading file: tablec13.dat' do i__=1,166 read(1,'(A140)')ar__14 read(ar__14,15) + El_12(i__),lambda_13(i__),log_eps_1(i__),NLTE_12(i__), + EWpor_12(i__),EWepi_12(i__),EWbol_12(i__),EWucm_12(i__), + EWulb_12(i__),ispec_12(i__),por_12(i__),gau_12(i__), + epi_12(i__),bol_12(i__),syn_12(i__),ucm_12(i__),ulb_12(i__) c ..............Just test output........... write(6,15) + El_12(i__),lambda_13(i__),log_eps_1(i__),NLTE_12(i__), + EWpor_12(i__),EWepi_12(i__),EWbol_12(i__),EWucm_12(i__), + EWulb_12(i__),ispec_12(i__),por_12(i__),gau_12(i__), + epi_12(i__),bol_12(i__),syn_12(i__),ucm_12(i__),ulb_12(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec14.dat' ! epsilon eri elemental abundance measurements for * different methods for each line C Format for file interpretation 16 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec14.dat') write(6,*) '....Loading file: tablec14.dat' do i__=1,132 read(1,'(A140)')ar__15 read(ar__15,16) + El_13(i__),lambda_14(i__),log_eps_1(i__),NLTE_13(i__), + EWpor_13(i__),EWepi_13(i__),EWbol_13(i__),EWucm_13(i__), + EWulb_13(i__),ispec_13(i__),por_13(i__),gau_13(i__), + epi_13(i__),bol_13(i__),syn_13(i__),ucm_13(i__),ulb_13(i__) c ..............Just test output........... write(6,16) + El_13(i__),lambda_14(i__),log_eps_1(i__),NLTE_13(i__), + EWpor_13(i__),EWepi_13(i__),EWbol_13(i__),EWucm_13(i__), + EWulb_13(i__),ispec_13(i__),por_13(i__),gau_13(i__), + epi_13(i__),bol_13(i__),syn_13(i__),ucm_13(i__),ulb_13(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec15.dat' ! epsilon For elemental abundance measurements for * different methods for each line C Format for file interpretation 17 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec15.dat') write(6,*) '....Loading file: tablec15.dat' do i__=1,168 read(1,'(A140)')ar__16 read(ar__16,17) + El_14(i__),lambda_15(i__),log_eps_1(i__),NLTE_14(i__), + EWpor_14(i__),EWepi_14(i__),EWbol_14(i__),EWucm_14(i__), + EWulb_14(i__),ispec_14(i__),por_14(i__),gau_14(i__), + epi_14(i__),bol_14(i__),syn_14(i__),ucm_14(i__),ulb_14(i__) c ..............Just test output........... write(6,17) + El_14(i__),lambda_15(i__),log_eps_1(i__),NLTE_14(i__), + EWpor_14(i__),EWepi_14(i__),EWbol_14(i__),EWucm_14(i__), + EWulb_14(i__),ispec_14(i__),por_14(i__),gau_14(i__), + epi_14(i__),bol_14(i__),syn_14(i__),ucm_14(i__),ulb_14(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec16.dat' ! epsilon Vir elemental abundance measurements for * different methods for each line C Format for file interpretation 18 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec16.dat') write(6,*) '....Loading file: tablec16.dat' do i__=1,129 read(1,'(A140)')ar__17 read(ar__17,18) + El_15(i__),lambda_16(i__),log_eps_1(i__),NLTE_15(i__), + EWpor_15(i__),EWepi_15(i__),EWbol_15(i__),EWucm_15(i__), + EWulb_15(i__),ispec_15(i__),por_15(i__),gau_15(i__), + epi_15(i__),bol_15(i__),syn_15(i__),ucm_15(i__),ulb_15(i__) c ..............Just test output........... write(6,18) + El_15(i__),lambda_16(i__),log_eps_1(i__),NLTE_15(i__), + EWpor_15(i__),EWepi_15(i__),EWbol_15(i__),EWucm_15(i__), + EWulb_15(i__),ispec_15(i__),por_15(i__),gau_15(i__), + epi_15(i__),bol_15(i__),syn_15(i__),ucm_15(i__),ulb_15(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec17.dat' ! eta Boo elemental abundance measurements for * different methods for each line C Format for file interpretation 19 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec17.dat') write(6,*) '....Loading file: tablec17.dat' do i__=1,116 read(1,'(A140)')ar__18 read(ar__18,19) + El_16(i__),lambda_17(i__),log_eps_1(i__),NLTE_16(i__), + EWpor_16(i__),EWepi_16(i__),EWbol_16(i__),EWucm_16(i__), + EWulb_16(i__),ispec_16(i__),por_16(i__),gau_16(i__), + epi_16(i__),bol_16(i__),syn_16(i__),ucm_16(i__),ulb_16(i__) c ..............Just test output........... write(6,19) + El_16(i__),lambda_17(i__),log_eps_1(i__),NLTE_16(i__), + EWpor_16(i__),EWepi_16(i__),EWbol_16(i__),EWucm_16(i__), + EWulb_16(i__),ispec_16(i__),por_16(i__),gau_16(i__), + epi_16(i__),bol_16(i__),syn_16(i__),ucm_16(i__),ulb_16(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec18.dat' ! gamma Sge elemental abundance measurements for * different methods for each line C Format for file interpretation 20 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec18.dat') write(6,*) '....Loading file: tablec18.dat' do i__=1,58 read(1,'(A140)')ar__19 read(ar__19,20) + El_17(i__),lambda_18(i__),log_eps_1(i__),NLTE_17(i__), + EWpor_17(i__),EWepi_17(i__),EWbol_17(i__),EWucm_17(i__), + EWulb_17(i__),ispec_17(i__),por_17(i__),gau_17(i__), + epi_17(i__),bol_17(i__),syn_17(i__),ucm_17(i__),ulb_17(i__) c ..............Just test output........... write(6,20) + El_17(i__),lambda_18(i__),log_eps_1(i__),NLTE_17(i__), + EWpor_17(i__),EWepi_17(i__),EWbol_17(i__),EWucm_17(i__), + EWulb_17(i__),ispec_17(i__),por_17(i__),gau_17(i__), + epi_17(i__),bol_17(i__),syn_17(i__),ucm_17(i__),ulb_17(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec19.dat' ! Gmb 1830 elemental abundance measurements for * different methods for each line C Format for file interpretation 21 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec19.dat') write(6,*) '....Loading file: tablec19.dat' do i__=1,135 read(1,'(A140)')ar__20 read(ar__20,21) + El_18(i__),lambda_19(i__),log_eps_1(i__),NLTE_18(i__), + EWpor_18(i__),EWepi_18(i__),EWbol_18(i__),EWucm_18(i__), + EWulb_18(i__),ispec_18(i__),por_18(i__),gau_18(i__), + epi_18(i__),bol_18(i__),syn_18(i__),ucm_18(i__),ulb_18(i__) c ..............Just test output........... write(6,21) + El_18(i__),lambda_19(i__),log_eps_1(i__),NLTE_18(i__), + EWpor_18(i__),EWepi_18(i__),EWbol_18(i__),EWucm_18(i__), + EWulb_18(i__),ispec_18(i__),por_18(i__),gau_18(i__), + epi_18(i__),bol_18(i__),syn_18(i__),ucm_18(i__),ulb_18(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec20.dat' ! HD 22879 elemental abundance measurements for * different methods for each line C Format for file interpretation 22 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec20.dat') write(6,*) '....Loading file: tablec20.dat' do i__=1,158 read(1,'(A140)')ar__21 read(ar__21,22) + El_19(i__),lambda_20(i__),log_eps_1(i__),NLTE_19(i__), + EWpor_19(i__),EWepi_19(i__),EWbol_19(i__),EWucm_19(i__), + EWulb_19(i__),ispec_19(i__),por_19(i__),gau_19(i__), + epi_19(i__),bol_19(i__),syn_19(i__),ucm_19(i__),ulb_19(i__) c ..............Just test output........... write(6,22) + El_19(i__),lambda_20(i__),log_eps_1(i__),NLTE_19(i__), + EWpor_19(i__),EWepi_19(i__),EWbol_19(i__),EWucm_19(i__), + EWulb_19(i__),ispec_19(i__),por_19(i__),gau_19(i__), + epi_19(i__),bol_19(i__),syn_19(i__),ucm_19(i__),ulb_19(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec21.dat' ! HD49933 elemental abundance measurements for * different methods for each line C Format for file interpretation 23 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec21.dat') write(6,*) '....Loading file: tablec21.dat' do i__=1,78 read(1,'(A140)')ar__22 read(ar__22,23) + El_20(i__),lambda_21(i__),log_eps_1(i__),NLTE_20(i__), + EWpor_20(i__),EWepi_20(i__),EWbol_20(i__),EWucm_20(i__), + EWulb_20(i__),ispec_20(i__),por_20(i__),gau_20(i__), + epi_20(i__),bol_20(i__),syn_20(i__),ucm_20(i__),ulb_20(i__) c ..............Just test output........... write(6,23) + El_20(i__),lambda_21(i__),log_eps_1(i__),NLTE_20(i__), + EWpor_20(i__),EWepi_20(i__),EWbol_20(i__),EWucm_20(i__), + EWulb_20(i__),ispec_20(i__),por_20(i__),gau_20(i__), + epi_20(i__),bol_20(i__),syn_20(i__),ucm_20(i__),ulb_20(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec22.dat' ! HD84937 elemental abundance measurements for * different methods for each line C Format for file interpretation 24 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec22.dat') write(6,*) '....Loading file: tablec22.dat' do i__=1,47 read(1,'(A140)')ar__23 read(ar__23,24) + El_21(i__),lambda_22(i__),log_eps_1(i__),NLTE_21(i__), + EWpor_21(i__),EWepi_21(i__),EWbol_21(i__),EWucm_21(i__), + EWulb_21(i__),ispec_21(i__),por_21(i__),gau_21(i__), + epi_21(i__),bol_21(i__),syn_21(i__),ucm_21(i__),ulb_21(i__) c ..............Just test output........... write(6,24) + El_21(i__),lambda_22(i__),log_eps_1(i__),NLTE_21(i__), + EWpor_21(i__),EWepi_21(i__),EWbol_21(i__),EWucm_21(i__), + EWulb_21(i__),ispec_21(i__),por_21(i__),gau_21(i__), + epi_21(i__),bol_21(i__),syn_21(i__),ucm_21(i__),ulb_21(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec23.dat' ! HD107328 elemental abundance measurements for * different methods for each line C Format for file interpretation 25 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec23.dat') write(6,*) '....Loading file: tablec23.dat' do i__=1,114 read(1,'(A140)')ar__24 read(ar__24,25) + El_22(i__),lambda_23(i__),log_eps_1(i__),NLTE_22(i__), + EWpor_22(i__),EWepi_22(i__),EWbol_22(i__),EWucm_22(i__), + EWulb_22(i__),ispec_22(i__),por_22(i__),gau_22(i__), + epi_22(i__),bol_22(i__),syn_22(i__),ucm_22(i__),ulb_22(i__) c ..............Just test output........... write(6,25) + El_22(i__),lambda_23(i__),log_eps_1(i__),NLTE_22(i__), + EWpor_22(i__),EWepi_22(i__),EWbol_22(i__),EWucm_22(i__), + EWulb_22(i__),ispec_22(i__),por_22(i__),gau_22(i__), + epi_22(i__),bol_22(i__),syn_22(i__),ucm_22(i__),ulb_22(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec24.dat' ! HD122563 elemental abundance measurements for * different methods for each line C Format for file interpretation 26 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec24.dat') write(6,*) '....Loading file: tablec24.dat' do i__=1,85 read(1,'(A140)')ar__25 read(ar__25,26) + El_23(i__),lambda_24(i__),log_eps_1(i__),NLTE_23(i__), + EWpor_23(i__),EWepi_23(i__),EWbol_23(i__),EWucm_23(i__), + EWulb_23(i__),ispec_23(i__),por_23(i__),gau_23(i__), + epi_23(i__),bol_23(i__),syn_23(i__),ucm_23(i__),ulb_23(i__) c ..............Just test output........... write(6,26) + El_23(i__),lambda_24(i__),log_eps_1(i__),NLTE_23(i__), + EWpor_23(i__),EWepi_23(i__),EWbol_23(i__),EWucm_23(i__), + EWulb_23(i__),ispec_23(i__),por_23(i__),gau_23(i__), + epi_23(i__),bol_23(i__),syn_23(i__),ucm_23(i__),ulb_23(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec25.dat' ! HD140283 elemental abundance measurements for * different methods for each line C Format for file interpretation 27 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec25.dat') write(6,*) '....Loading file: tablec25.dat' do i__=1,29 read(1,'(A140)')ar__26 read(ar__26,27) + El_24(i__),lambda_25(i__),log_eps_1(i__),NLTE_24(i__), + EWpor_24(i__),EWepi_24(i__),EWbol_24(i__),EWucm_24(i__), + EWulb_24(i__),ispec_24(i__),por_24(i__),gau_24(i__), + epi_24(i__),bol_24(i__),syn_24(i__),ucm_24(i__),ulb_24(i__) c ..............Just test output........... write(6,27) + El_24(i__),lambda_25(i__),log_eps_1(i__),NLTE_24(i__), + EWpor_24(i__),EWepi_24(i__),EWbol_24(i__),EWucm_24(i__), + EWulb_24(i__),ispec_24(i__),por_24(i__),gau_24(i__), + epi_24(i__),bol_24(i__),syn_24(i__),ucm_24(i__),ulb_24(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec26.dat' ! HD220009 elemental abundance measurements for * different methods for each line C Format for file interpretation 28 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec26.dat') write(6,*) '....Loading file: tablec26.dat' do i__=1,128 read(1,'(A140)')ar__27 read(ar__27,28) + El_25(i__),lambda_26(i__),log_eps_1(i__),NLTE_25(i__), + EWpor_25(i__),EWepi_25(i__),EWbol_25(i__),EWucm_25(i__), + EWulb_25(i__),ispec_25(i__),por_25(i__),gau_25(i__), + epi_25(i__),bol_25(i__),syn_25(i__),ucm_25(i__),ulb_25(i__) c ..............Just test output........... write(6,28) + El_25(i__),lambda_26(i__),log_eps_1(i__),NLTE_25(i__), + EWpor_25(i__),EWepi_25(i__),EWbol_25(i__),EWucm_25(i__), + EWulb_25(i__),ispec_25(i__),por_25(i__),gau_25(i__), + epi_25(i__),bol_25(i__),syn_25(i__),ucm_25(i__),ulb_25(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec27.dat' ! ksi Hya elemental abundance measurements for * different methods for each line C Format for file interpretation 29 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec27.dat') write(6,*) '....Loading file: tablec27.dat' do i__=1,133 read(1,'(A140)')ar__28 read(ar__28,29) + El_26(i__),lambda_27(i__),log_eps_1(i__),NLTE_26(i__), + EWpor_26(i__),EWepi_26(i__),EWbol_26(i__),EWucm_26(i__), + EWulb_26(i__),ispec_26(i__),por_26(i__),gau_26(i__), + epi_26(i__),bol_26(i__),syn_26(i__),ucm_26(i__),ulb_26(i__) c ..............Just test output........... write(6,29) + El_26(i__),lambda_27(i__),log_eps_1(i__),NLTE_26(i__), + EWpor_26(i__),EWepi_26(i__),EWbol_26(i__),EWucm_26(i__), + EWulb_26(i__),ispec_26(i__),por_26(i__),gau_26(i__), + epi_26(i__),bol_26(i__),syn_26(i__),ucm_26(i__),ulb_26(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec28.dat' ! mu Ara elemental abundance measurements for * different methods for each line C Format for file interpretation 30 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec28.dat') write(6,*) '....Loading file: tablec28.dat' do i__=1,174 read(1,'(A140)')ar__29 read(ar__29,30) + El_27(i__),lambda_28(i__),log_eps_1(i__),NLTE_27(i__), + EWpor_27(i__),EWepi_27(i__),EWbol_27(i__),EWucm_27(i__), + EWulb_27(i__),ispec_27(i__),por_27(i__),gau_27(i__), + epi_27(i__),bol_27(i__),syn_27(i__),ucm_27(i__),ulb_27(i__) c ..............Just test output........... write(6,30) + El_27(i__),lambda_28(i__),log_eps_1(i__),NLTE_27(i__), + EWpor_27(i__),EWepi_27(i__),EWbol_27(i__),EWucm_27(i__), + EWulb_27(i__),ispec_27(i__),por_27(i__),gau_27(i__), + epi_27(i__),bol_27(i__),syn_27(i__),ucm_27(i__),ulb_27(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec29.dat' ! mu Cas elemental abundance measurements for * different methods for each line C Format for file interpretation 31 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec29.dat') write(6,*) '....Loading file: tablec29.dat' do i__=1,160 read(1,'(A140)')ar__30 read(ar__30,31) + El_28(i__),lambda_29(i__),log_eps_1(i__),NLTE_28(i__), + EWpor_28(i__),EWepi_28(i__),EWbol_28(i__),EWucm_28(i__), + EWulb_28(i__),ispec_28(i__),por_28(i__),gau_28(i__), + epi_28(i__),bol_28(i__),syn_28(i__),ucm_28(i__),ulb_28(i__) c ..............Just test output........... write(6,31) + El_28(i__),lambda_29(i__),log_eps_1(i__),NLTE_28(i__), + EWpor_28(i__),EWepi_28(i__),EWbol_28(i__),EWucm_28(i__), + EWulb_28(i__),ispec_28(i__),por_28(i__),gau_28(i__), + epi_28(i__),bol_28(i__),syn_28(i__),ucm_28(i__),ulb_28(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec30.dat' ! mu Leo elemental abundance measurements for * different methods for each line C Format for file interpretation 32 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec30.dat') write(6,*) '....Loading file: tablec30.dat' do i__=1,75 read(1,'(A140)')ar__31 read(ar__31,32) + El_29(i__),lambda_30(i__),log_eps_1(i__),NLTE_29(i__), + EWpor_29(i__),EWepi_29(i__),EWbol_29(i__),EWucm_29(i__), + EWulb_29(i__),ispec_29(i__),por_29(i__),gau_29(i__), + epi_29(i__),bol_29(i__),syn_29(i__),ucm_29(i__),ulb_29(i__) c ..............Just test output........... write(6,32) + El_29(i__),lambda_30(i__),log_eps_1(i__),NLTE_29(i__), + EWpor_29(i__),EWepi_29(i__),EWbol_29(i__),EWucm_29(i__), + EWulb_29(i__),ispec_29(i__),por_29(i__),gau_29(i__), + epi_29(i__),bol_29(i__),syn_29(i__),ucm_29(i__),ulb_29(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec31.dat' ! Procyon elemental abundance measurements for * different methods for each line C Format for file interpretation 33 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec31.dat') write(6,*) '....Loading file: tablec31.dat' do i__=1,115 read(1,'(A140)')ar__32 read(ar__32,33) + El_30(i__),lambda_31(i__),log_eps_1(i__),NLTE_30(i__), + EWpor_30(i__),EWepi_30(i__),EWbol_30(i__),EWucm_30(i__), + EWulb_30(i__),ispec_30(i__),por_30(i__),gau_30(i__), + epi_30(i__),bol_30(i__),syn_30(i__),ucm_30(i__),ulb_30(i__) c ..............Just test output........... write(6,33) + El_30(i__),lambda_31(i__),log_eps_1(i__),NLTE_30(i__), + EWpor_30(i__),EWepi_30(i__),EWbol_30(i__),EWucm_30(i__), + EWulb_30(i__),ispec_30(i__),por_30(i__),gau_30(i__), + epi_30(i__),bol_30(i__),syn_30(i__),ucm_30(i__),ulb_30(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec32.dat' ! psi Phe elemental abundance measurements for * different methods for each line C Format for file interpretation 34 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec32.dat') write(6,*) '....Loading file: tablec32.dat' do i__=1,25 read(1,'(A140)')ar__33 read(ar__33,34) + El_31(i__),lambda_32(i__),log_eps_1(i__),NLTE_31(i__), + EWpor_31(i__),EWepi_31(i__),EWbol_31(i__),EWucm_31(i__), + EWulb_31(i__),ispec_31(i__),por_31(i__),gau_31(i__), + epi_31(i__),bol_31(i__),syn_31(i__),ucm_31(i__),ulb_31(i__) c ..............Just test output........... write(6,34) + El_31(i__),lambda_32(i__),log_eps_1(i__),NLTE_31(i__), + EWpor_31(i__),EWepi_31(i__),EWbol_31(i__),EWucm_31(i__), + EWulb_31(i__),ispec_31(i__),por_31(i__),gau_31(i__), + epi_31(i__),bol_31(i__),syn_31(i__),ucm_31(i__),ulb_31(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec33.dat' ! Sun elemental abundance measurements for * different methods for each line C Format for file interpretation 35 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec33.dat') write(6,*) '....Loading file: tablec33.dat' do i__=1,177 read(1,'(A140)')ar__34 read(ar__34,35) + El_32(i__),lambda_33(i__),log_eps_1(i__),NLTE_32(i__), + EWpor_32(i__),EWepi_32(i__),EWbol_32(i__),EWucm_32(i__), + EWulb_32(i__),ispec_32(i__),por_32(i__),gau_32(i__), + epi_32(i__),bol_32(i__),syn_32(i__),ucm_32(i__),ulb_32(i__) c ..............Just test output........... write(6,35) + El_32(i__),lambda_33(i__),log_eps_1(i__),NLTE_32(i__), + EWpor_32(i__),EWepi_32(i__),EWbol_32(i__),EWucm_32(i__), + EWulb_32(i__),ispec_32(i__),por_32(i__),gau_32(i__), + epi_32(i__),bol_32(i__),syn_32(i__),ucm_32(i__),ulb_32(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec34.dat' ! tau Cet elemental abundance measurements for * different methods for each line C Format for file interpretation 36 format( + I2,3X,F7.2,3X,F6.3,3X,F6.3,5X,F6.2,2X,F6.2,2X,F6.2,2X,F6.2,2X, + F6.2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2, + 3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec34.dat') write(6,*) '....Loading file: tablec34.dat' do i__=1,178 read(1,'(A140)')ar__35 read(ar__35,36) + El_33(i__),lambda_34(i__),log_eps_1(i__),NLTE_33(i__), + EWpor_33(i__),EWepi_33(i__),EWbol_33(i__),EWucm_33(i__), + EWulb_33(i__),ispec_33(i__),por_33(i__),gau_33(i__), + epi_33(i__),bol_33(i__),syn_33(i__),ucm_33(i__),ulb_33(i__) c ..............Just test output........... write(6,36) + El_33(i__),lambda_34(i__),log_eps_1(i__),NLTE_33(i__), + EWpor_33(i__),EWepi_33(i__),EWbol_33(i__),EWucm_33(i__), + EWulb_33(i__),ispec_33(i__),por_33(i__),gau_33(i__), + epi_33(i__),bol_33(i__),syn_33(i__),ucm_33(i__),ulb_33(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end