C*	ELIMINATE SUBROUTINE NAMES  -  UNDSEL
C
C   SUBELM
C   ELIMINATE SUBROUTINE NAMES FROM ARRAY CONTAINING FUNCTION AND
C   SUBROUTINE NAMES
C
C   SUBROUTINE SUBELM(KL)
C
      SUBROUTINE SUBELM(KL)
      COMMON/FUNCT/ NFUNC,NFUNCT,BSUBNM(6),BFUNCT(6,50)
      BYTE BFUNCT, BSUBNM
      BYTE BLANK
      DATA BLANK/ ' '/
C
      L = KL + 1
      IF (L .GT. 6) GOTO 20
      DO 10 K = L,6
      BSUBNM(K) = BLANK
   10 CONTINUE
   20 CONTINUE
C
C	COMPARE BSUBNM WITH LIST OF FUNCTION, SUBROUTINE NAMES
C	IF FOUND, SET 1ST BYTE IF BFUNCT TO 0 AND DECREMENT NFUNCT BY 1
      DO 40 N = 1,NFUNC
      IF (BFUNCT(1,N) .EQ. 0) GOTO 40
      DO 30 K = 1,6
      IF (BSUBNM(K) .NE. BFUNCT(K,N))  GOTO 40
   30 CONTINUE
C
C	HAVE A MATCH, "ELIMINATE" SUBROUTINE NAME
      BFUNCT(1,N) = 0
      NFUNCT = NFUNCT - 1
D     WRITE(6,6030) BSUBNM, N
D6030 FORMAT('0', 'SUBELM - MATCH (BSUBNM,N) = ', 6A1, I4)
      RETURN
   40 CONTINUE
      RETURN
      END