
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
	SUBROUTINE NACCEP()
	LOGICAL*1 STRING(81), SPARE(81)
C
C THE COMMON STATEMENTS
C
	COMMON /A/JJ, J
	COMMON /C/ LL, L, STRING, SPARE
C
C LOOK FOR INTEGERS (LABELS) IN 'STRING' STARTING AT THE POSITION
C WHERE THE MAIN PROGRAM FOUND THE 'ACCEPT'
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




