	SUBROUTINE SESAVE (IR,INUMB,LFULL)
C SAVE THE MATCH BACK IN THE FILE
C THE ENTRY CONTAINS:
C	1)  THE SEARCH FILE BLOCK WHERE ENTRY CAN BE FOUND
C	2A) THE ENTRY # IN THE BLOCK
C	2B) THE CHEM FILE # WHERE CHEM INFO CAN BE FOUND
C	3)  THE ENTRY # IN THE CHEM FILE
C	4)  THE DOUBLETS COUNTER
C	5)  THE MINUS COUNTER
C	6)  THE DIRECT COUNTER
C	7)  THE PLUS COUNTER
C	8A) FIGURE OF MERIT
C	8B) THE NUMBER OF ELEMENT HITS
C
C	IR	COMPOUND #
C	INUMB	2 WORD REFERENCE #
C	LFULL	FLAG RETURNED IF FILE IS FULL
C
C	CALLED BY:	SERSRC
C	CALLS:		NONE
C
	INCLUDE 'SEARCH.INC'
	DIMENSION INUMB(2)
C STORE THE HIT INFO.
	IMBUF(1,IPTR) = IBLOCK
	IMBUF(2,IPTR) = (INUMB(1).AND."177400) + IR
	IMBUF(3,IPTR) = INUMB(2)
	IMBUF(4,IPTR) = IDHCNT
	IMBUF(5,IPTR) = IRCNT(2)
	IMBUF(6,IPTR) = IRCNT(1)
	IMBUF(7,IPTR) = IRCNT(3)
	IMBUF(8,IPTR) = IEHITS*256 + IFOM
C IF RECORD IS NOT FULL, SET POINTER FOR NEXT ENTRY
	IF (IPTR .LT. 32) THEN
	  IPTR = IPTR + 1
	ELSE
C RECORD IS FULL, WRITE IT TO FILE
	  IF (ISREC .LE. IPLAST) WRITE (ILUD'ISREC) IMBUF
	  ISREC = ISREC + 1
	  LFULL = ISREC .GT. IPLAST		!SET FLAG IF FILE IS FULL
	  IF (LFULL) WRITE (ILUO,10)
10	  FORMAT (' OUTPUT FILE IS FULL')
	IPTR = 1			!SET RECORD POINTER
	END IF
	RETURN
	END
