c---------------------------------------------------------------------
      character elem(120)*2
      data elem / 'H ','He','Li','Be','B ','C ','N ','O ','F ','Ne'
     &           ,'Na','Mg','Al','Si','P ','S ','Cl','Ar','K ','Ca'
     &           ,'Sc','Ti','V ','Cr','Mn','Fe','Co','Ni','Cu','Zn'
     &           ,'Ga','Ge','As','Se','Br','Kr','Rb','Sr','Y ','Zr'
     &           ,'Nb','Mo','Tc','Ru','Rh','Pd','Ag','Cd','In','Sn'
     &           ,'Sb','Te','I ','Xe','Cs','Ba','La','Ce','Pr','Nd'
     &           ,'Pm','Sm','Eu','Gd','Tb','Dy','Ho','Er','Tm','Yb'
     &           ,'Lu','Hf','Ta','W ','Re','Os','Ir','Pt','Au','Hg'
     &           ,'Tl','Pb','Bi','Po','At','Rn','Fr','Ra','Ac','Th'
     &           ,'Pa','U ','Np','Pu','Am','Cm','Bk','Cf','Es','Fm'
     &           ,'Md','No','Lr','Db','Jl','Rf','Bh','Hn','Mt','  '
     &           ,'  ','  ','  ','  ','  ','  ','  ','  ','  ','  ' /
c
      do 10 i=1,120
   10 write(6,900) i,elem(i)
  900 format(i4,x,a2)
      end
