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