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