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