	SUBROUTINE NREAD()

C	THIS SUBROUTINE CHANGES THE STATEMENT LINE NUMBERS IN A 'READ',
C	'WRITE', 'DECODE', 'ENCODE' STATEMENT.

	INCLUDE 'X:RESINC.FOR'

	CHARACTER       JX, KX

	LP= L+LL

	LM= L-1

	JX= STMENT(LP:LP)

	KX= STMENT(LM:LM)

	IF ((JX .NE. ' ' .AND. JX .NE. '(') .OR. (KX .NE. TAB .AND.

	1 KX .NE. ' ' .AND. KX .NE. ')'))   RETURN

	L= INDEX(STMENT(LP:),',')	! First comma after READ.

	IF (L .EQ. 0)  GOTO 10

	J= L+LP				! First digit of label.

	CALL LOOKUP()

10	L= INDEX (STMENT,'END')

	IF (L .EQ. 0)  GOTO 20

	J= L+3			! STARTING POINT FOR LABEL SEARCH IN LOOKUP.

	CALL LOOKUP()

20	L= INDEX (STMENT,'FMT')

	IF (L .EQ. 0) GOTO 30

	J= L+3			! STARTING POINT FOR LABEL SEARCH IN LOOKUP.

	CALL LOOKUP()

30	RETURN

	END
