C ---
      INTEGER N_NAME
      PARAMETER (N_NAME = 94)
      CHARACTER NAME(N_NAME)*2
      DATA NAME/'CO','MG','CA','ZN','CU','FE','CL','BR','MN','PB',
     *          'HG','AL','GD','NA','CD','NI','SR','IN','HO','YB',
     *          'TE','LI','RB','BA','CS','SM','TL','PT','BE',
     *          'MO','SI','I ','NE','AR','SC','TI','CR','GA','GE',
     *          'AS','KR','HE','ZR','NB','TC','RU','RH','PD','AG',
     *          'SN','SB','XE','LA','HF','TA','RE','OS','IR','AU',
     *          'BI','PO','AT','RN','FR','RA','AC','CE','PR','ND',
     *          'PM','EU','TB','DY','ER','TM','LU','TH','PA','NP',
     *          'PU','AM','CM','BK','CF','ES','FM','MD','NO','LR',
     *          'K ','V ','Y ','U ','W '                               /
C ---