

C THIS SUBROUTINE LOOKS FOR THE EXISTENCE OF AN 'ERR' CODE
C IN THE ASCII STRING. 
C IT IS PART OF THE MAIN PROGRAM 'RESEQ.FOR'
C
	SUBROUTINE NCLOSE()
C
	LOGICAL*1 STRING(81), SPARE(81)
C
	COMMON /A/ JJ, J
	COMMON /C/ LL, L, STRING, SPARE
C
	J = INDEX( STRING,'ERR')
	IF(J .EQ. 0) GOTO 100
	J = J+3	!POINT TO START LABEL SEARCH
	CALL LOOKUP()
100	RETURN
	END
