FORTRAN Generation
(/./ftp/cats/J/A_A/582/A81)

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