

C THIS SUBROUTINE CHANGES THE STATEMENT LABEL IN ALL 'GOTO' STATEMENTS
C IT IS PART OF THE MAIN PROGRAM 'RESEQ.FOR'
C
C
	SUBROUTINE NGOTO()
C
	LOGICAL*1 STRING(81), SPARE(81)
C
	COMMON /A/ JJ, J
	COMMON /C/ LL, L, STRING, SPARE
C
	J = LL+L
	ILENG=LEN(STRING)
	IF(INDEX(STRING,'IF') .NE. 0) GOTO 100
	KK=INDEX(STRING,'(')
	IF(KK .EQ. 0) GOTO 100
	J = KK+1
100	CALL LOOKUP()
	IF(KK .EQ. 0) RETURN
	DO 130, II=1,30
		DO 110, KK=J,ILENG
			IF(STRING(KK) .EQ. ',') GOTO 120
			IF(STRING(KK) .EQ. ')') RETURN
110		CONTINUE
		IF(KK .EQ. ILENG) GOTO 140
120		J = KK+1
		CALL LOOKUP()
130	CONTINUE
140	TYPE 150
150	FORMAT(' POSSIBLE CONTINUE LINE IN "GOTO ()" STATEMENT')
	TYPE 160,(STRING(JKL), JKL=1,ILENG)
160	FORMAT( 1X,80(A1))
	RETURN
	END
