C THIS SUBROUTINE CHANGES THE STATEMENT LABEL IN ALL 'GOTO' STATEMENTS C IT IS PART OF THE MAIN PROGRAM 'RESEQ.FOR' C MODIFIED ACCORDING TO L L MORTON'S CHANGES BY RWB. 6/81 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 IF(KK .LT. J) 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 RETURN END