	FUNCTION SEENUM (IELEM,IE)
C DETERMINE THE ELEMENT NUMBER
C
C	IELEM		ELEMENT SYMBOL TO BE FOUND IN THE TABLE
C	IE		# OF CHARACTERS IN IELEM, CLEARED IN THIS ROUTINE
C
C	CALLED BY:	SEELEM
C	CALLS:		NONE
C
	INCLUDE 'SEARCH.INC'
	INTEGER*2 SEENUM
	DIMENSION ITABLE(96)
C ORDER OF ELEMENTS SEARCHED, NOTE THAT THE ORDER DIFFERS FROM ATOMIC
C NUMBER
	DATA ITABLE/
     *	'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','H ','HE','LI','BE','B ','C ',
     *	'N ','O ','F ','NE'/
C SEARCH FOR THE SYMBOL
	DO 10 I=1,96
	  IF (IELEM .EQ. ITABLE(I)) THEN
	    SEENUM = I		!SYMBOL MATCH
	    GOTO 20
	  END IF
10	  CONTINUE
	SEENUM = 0		!NO MATCH, RETURN 0
20	IE = 0			!CLEAR CHARACTER COUNTER
	IELEM = IBLANK		!BLANK ELEMENT
	RETURN
	END
