

C THIS SUBROUTINE CHANGES THE STATEMENT LINE NUMBERS IN A 'READ',
C 'WRITE', 'DECODE', 'ENCODE' STATEMENT
C IT IS PART OF THE MAIN PROGRAM 'RESEQ.FOR'
C	MODIFIED ACCORDING TO L L MORTON'S CHANGES BY RWB. 6/81
C
	SUBROUTINE NREAD()
C
	LOGICAL*1 STRING(81), SPARE(81), TAB, J1X, K1X
C
	COMMON /A/ JJ, J
	COMMON /C/ LL, L, STRING, SPARE
	DATA TAB/09/
C
	J1X = STRING(L+LL)
	K1X = STRING(L-1)
	IF((J1X .NE. ' ' .AND. J1X .NE. '(') .OR. (K1X .NE. TAB .AND.
     1	K1X .NE. ' ' .AND. K1X .NE. ')')) RETURN
	DO 100, J=L+LL, LEN(STRING)
		IF(STRING(J) .EQ. ',') GOTO 110
100	CONTINUE
110	J = J + 1	!STARTING POINT FOR LABEL SEARCH
	CALL LOOKUP()
120	L = INDEX(STRING, 'END')
	IF(L .EQ. 0) GOTO 130
	J = L+4
	CALL LOOKUP()
130	RETURN
	END
