      subroutine ztosym (iz,elem)                                       ZTOS001
c ----------------------------------------------------------------------ZTOS002
c     returns the atomic symbol elem from iz (electron nr)              ZTOS003
c ----------------------------------------------------------------------ZTOS004
c     This program module is part of the PhysiSoft X-ray Library        ZTOS005
c     and may not be sold or reproduced for commercial purposes.        ZTOS006
c     Although it has been tested carefully, there is no warranty       ZTOS007
c     regarding accuracy or freedom from side-effects.                  ZTOS008
c                   (C) 1986-1990 Bernhard Rupp                         ZTOS009
c ----------------------------------------------------------------------ZTOS010
      parameter (nel=105)                                               ZTOS011
                                                                        ZTOS012
      character*2 i(nel),elem                                           ZTOS013
                                                                        ZTOS014
c --- nel regular elements ---                                          ZTOS015
      data(i(k),k=1,nel)/'H','HE','LI','BE','B','C','N','O','F','NE'    ZTOS016
     &  ,'NA','MG','AL','SI','P','S','CL','AR','K','CA','SC','TI','V'   ZTOS017
     &  ,'CR','MN','FE','CO','NI','CU','ZN','GA','GE','AS','SE','BR'    ZTOS018
     &  ,'KR','RB','SR','Y','ZR','NB','MO','TC','RU','RH','PD','AG'     ZTOS019
     &  ,'CD','IN','SN','SB','TE','I','XE','CS','BA','LA','CE','PR'     ZTOS020
     &  ,'ND','PM','SM','EU','GD','TB','DY','HO','ER','TM','YB','LU'    ZTOS021
     &  ,'HF','TA','W' ,'RE','OS','IR','PT','AU','HG','TL','PB','BI'    ZTOS022
     &  ,'PO','AT','RN','FR','RA','AC','TH','PA','U', 'NP','PU','AM'    ZTOS023
     &  ,'CM','BK','CF','ES','FM','MD','NO','LR','RF','HA'/             ZTOS024
                                                                        ZTOS025
      elem=i(iz)                                                        ZTOS026
                                                                        ZTOS027
      return                                                            ZTOS028
      end                                                               ZTOS029
                                                                        ZTOS030
