*
*=== Knwncm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     KNoWN CoMpound common:                                           *
*                                                                      *
*     Created on   12 April 2009   by          Alfredo Ferrari         *
*                                                CERN - EN             *
*                                                                      *
*          Meknwc = maximum number of constituents of "known" compounds*
*     Afknwc(j,i) = atom fraction of the j_th constituent of the i_th  *
*                   "known" compound                                   *
*       Waknwc(i) = reference atomic weight of the i_th "known"        *
*                   compound                                           *
*       Rhknwc(i) = reference density of the i_th "known" compound     *
*       Gsknwc(i) = gas pressure of the i_th "known" compound          *
*     Izknwc(j,i) = atomic number of the j_th constituent of the i_th  *
*                   "known" compound                                   *
*       Neknwc(i) = number of constituents of the i_th "known"         *
*                   compound                                           *
*       Kwcnam(i) = name of the i_th "known" compound                  *
*       Lmtkwc(i) = metal/metalloid flag of the i_th "known" compound  *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MEKNWC = 13 )
*
      CHARACTER * 8 KWCNAM
      LOGICAL LKNWCM, LMTKWC
      COMMON / KNWNCM / AFKNWC (MEKNWC,MXKNWC),  WAKNWC (MXKNWC),
     &                  RHKNWC (MXKNWC), GSKNWC (MXKNWC),
     &                  CMPZTM    (7)  , ZIGLTM   (12)  ,
     &                  IZKNWC (MEKNWC,MXKNWC),  NEKNWC (MXKNWC),
     &                  LMTKWC (MXKNWC), LKNWCM
      COMMON / KNWNCH / KWCNAM (MXKNWC)
      SAVE / KNWNCM /
      SAVE / KNWNCH /