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) C C --- C C IF((J1X .NE. ' ' .AND. J1X .NE. '(') .OR. (K1X .NE. TAB .AND. C 1 K1X .NE. ' ' .AND. K1X .NE. ')')) RETURN IF(J1X .NE. TAB .AND. J1X .NE. ' ' .AND. J1X .NE. '(') RETURN IF(K1X .NE. TAB .AND. K1X .NE. ' ' .AND. K1X .NE. ')') RETURN C C --- C 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