
C THIS SUBROUTINE CHANGES THE STATEMENT LABELS IN A STATEMENT LINE
C THAT CONTAINS AN 'ACCEPT', 'ASSIGN', 'DO', 'PRINT', 'TYPE'
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 NACCEP()
	LOGICAL*1 STRING(81), SPARE(81), TAB, J1X
C
C THE COMMON STATEMENTS
C
	COMMON /A/JJ, J
	COMMON /C/ LL, L, STRING, SPARE
	DATA TAB/09/
C
C LOOK FOR INTEGERS (LABELS) IN 'STRING' STARTING AT THE POSITION
C WHERE THE MAIN PROGRAM FOUND THE 'ACCEPT'
C
	J1X = STRING(L-1)
C
C ---
C
	IF(J1X .NE. ' ' .AND. J1X .NE. ')' .AND. J1X .NE. TAB) RETURN
	IF(STRING(L+LL) .NE. ' ' .AND. STRING(L+LL) .NE. TAB)  RETURN
C
C ---
C

	KR = INDEX(STRING,'CALL ASSIGN')  !THIS TESTS FOR A CALL ASSIGN
	IF(KR .NE. 0) RETURN  !INSTEAD OF AN ASSIGN
	J = LL + L	!POINT TO START LABEL SEARCH
	CALL LOOKUP()
100	RETURN
	END




