FUNCTION elsym,z,NONEUTRON=noneutron

@compile_opt

IF N_ELEMENTS(noneutron) EQ 0 THEN noneutron=0

elements_up=1
@elements
n=N_ELEMENTS(z)
IF n GT 0 THEN BEGIN
    el=STRARR(n)
    nel=N_ELEMENTS(elements)
    x=WHERE((z GE 0) and (z LT nel))
    IF x[0] NE -1 THEN el[x]=elements[z[x]]    
    x=WHERE(z EQ 0)
    IF x[0] NE -1 THEN el[x]=''
ENDIF
IF N_ELEMENTS(el) EQ 1 THEN el=el[0]



RETURN,el

END