	SUBROUTINE NIF()

C	THIS SUBROUTINE CHANGES THE STATEMENT LABELS IN AN 'IF' LINE.

	INCLUDE 'X:RESINC.FOR'

	CHARACTER     JX, KX

	LP= L+LL

	LM= L-1

	JX= STMENT(LP:LP)

	KX= STMENT(LM:LM)

	IF ((JX .NE. ' ' .AND. JX .NE. '(') .OR. (KX .NE. TAB .AND.

	1 KX .NE. ' ' .AND. KX .NE. ')'))    RETURN

	JC= 1

	CALL STMLEN(STMENT,SLEN)

	J= INDEX(STMENT(LP:),'(')

	J= J+LP

	DO 10 JB= J+1,SLEN

	IF (STMENT(JB:JB) .EQ. '(')  JC= JC+1

	IF (STMENT(JB:JB) .EQ. ')')  JC= JC-1

	IF (JC .EQ. 0)  GOTO 20

10	CONTINUE

	RETURN

20	J= JB+1

	CALL LOOKUP()

	DO 50 JZ= 1,2

	DO 30 K= J,SLEN

	IF (STMENT(K:K) .LE. 'Z' .AND. STMENT(K:K) .GE. 'A')  RETURN

	IF (STMENT(K:K) .EQ. ',')  GOTO 40

30	CONTINUE

	IF (K .EQ. SLEN)  RETURN

40	J= K+1

	CALL LOOKUP()

50	CONTINUE

	RETURN

	END
