




















      INTEGER      MAXEL, METAL, SEMC, ORGA, NOBLE, HALO, UNK,
     +             ALK, EALK
      PARAMETER    (MAXEL=111)
      PARAMETER    (METAL=1)
      PARAMETER    (ALK=2)
      PARAMETER    (EALK=3)
      PARAMETER    (SEMC=4)
      PARAMETER    (ORGA=5)
      PARAMETER    (NOBLE=6)
      PARAMETER    (HALO=7)
      PARAMETER    (UNK=8)

      CHARACTER*4  ELEM(MAXEL)
      INTEGER      ATYP(MAXEL)
      REAL         AVDW(MAXEL), ARAD(MAXEL), EMAS(MAXEL), 
     +             IONR0(MAXEL), ION_N(MAXEL), IONCHG(MAXEL)

      COMMON       /ELMS/  ELEM
      COMMON       /ELM_I/ ATYP
      COMMON       /ELM_R/ AVDW, ARAD, EMAS
      COMMON       /ELMIONR0/ IONR0, ION_N, IONCHG