	SUBROUTINE NCLOSE()

C	THIS SUBROUTINE LOOKS FOR THE EXISTENCE OF AN 'ERR' CODE
C	IN THE ASCII STRING. 

	INCLUDE 'X:RESINC.FOR'

	J = INDEX(STMENT,'ERR')

	IF (J .NE. 0)  THEN

	J = J+3		! POINT TO START LABEL SEARCH IN LOOKUP.

	CALL LOOKUP()

	ENDIF

	RETURN

	END
