

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
C
C ---
C
	DO 10 I = J,80
	  IF (STRING(I) .EQ. '=') GOTO 20
10	CONTINUE
	GOTO 100
20	DO 30 I = J,1,-1
	  IF (STRING(I) .EQ. ',') GOTO 40
30	CONTINUE
	GOTO 100
C
C ---
C
40	J = J+3	!POINT TO START LABEL SEARCH
	CALL LOOKUP()
100	RETURN
	END
