	SUBROUTINE NGOTO

C	THIS SUBROUTINE CHANGES THE STATEMENT LABEL IN ALL 'GOTO' STATEMENTS

	INCLUDE 'X:RESINC.FOR'

	IF (CCGTFL .NE. 0)  GOTO 20	! Continued Computed GOTO Flag.

	J = L+LL

	KK= 0

	IF (INDEX (STMENT,'IF') .NE. 0)  GOTO 10

	KK=  INDEX (STMENT,'(')

	IF (KK .EQ. 0 .OR. KK .LT. J)  GOTO 10

	J = KK+1

10	CALL LOOKUP()

	IF (KK .EQ. 0)  GOTO 80		! KK= 0:- UNCONDITIONAL GOTO.

	IF (CCGTFL .EQ. 0)  GOTO 30

20	J= 4

	IF (INDEX (STMENT,',') .LE. J)  GOTO 30

	CALL LOOKUP()

30	CALL STMLEN(STMENT,SLEN)

	DO 60 J1= 1,30

	DO 40 J2= J,SLEN

	IF (STMENT(J2:J2) .EQ. ',')  GOTO 50

	IF (STMENT(J2:J2) .EQ. ')')  GOTO 80

40	CONTINUE

	GOTO 70

50	J = J2+1

	CALL LOOKUP()

	SLEN= SLEN+(NNL-NOL)

60	CONTINUE

70	CCGTFL= 1

	RETURN

80	CCGTFL= 0

	RETURN

	END
