      LOGICAL FUNCTION LCONFG(CONFIG,CDBCFG)
C********************************************************************
C
C   NAME-LCONFG
C
C   LANGUAGE- FORTRAN 77    TYPE- LOGICAL FUNCTION   COMPUTER- CRAY
C
C   VERSION-1.0     DATE- 01/10/91   PROGRAMMER- JEFF MANNING, SMSRC
C   VERSION-3.0     DATE- 04/16/96   PROGRAMMER- ALEX POZDNYAK, FDC 
C      MODIFIED TO RUN ON THE CRAY.  REPLACED I*4 WITH INT.
C   VERSION-3.1     DATE- 01/23/04   PROGRAMMER- FRANK TILLEY, RAYTHEON
C      CHANGED THE SIZE OF CDBCFG FROM 5 TO 6 FOR USE WITH AMSU-B.
C  
C   FUNCTION- TO COMPARE THE INPUT VARIABLE (CONFIG) TO THE
C             ELEMENTS OF THE INPUT ARRAY. RETURN LCONFG EQUAL TO
C             TRUE WHEN A MATCH IS FOUND, OTHERWISE A VALUE OF
C             FALSE IS RETURNED. THOUGH THE INSTRUMENT CONFIGURATION
C             IS A BIT PATTERN WITH GOOD INSTRUMENTS SET TO ONE AND
C             UNUSABLE INSTRUMENTS SET TO ZERO, THE PATTERN AS A
C             WHOLE REPRESENTS A DISTINCT NUMBER.  THIS NUMBER CAN
C             BE COMPARED TO ANOTHER NUMBER TO OBTAIN A MATCH OR
C             MISMATCH WITHOUT COMPARING INDIVIDUAL BITS.
C
C   CALLING SEQUENCE PARAMETERS-
C        VARIABLES     TYPE    I/O    DEFINITION
C        ---------     ----    ---    ----------
C        CONFIG         INT     I     VARIABLE TO BE COMPARED
C        CDBCFG(6)      INT     I     ARRAY FOR COMPARISON
C
C   LOCAL PARAMETERS-
C     VARAIBLE   TYPE     DEFINITION
C     --------   ----     ----------
C      I          INT     DO LOOP COUNTER
C
C*********************************************************************
C
      INTEGER   I
      INTEGER   CONFIG,CDBCFG(6)
C
      LCONFG=.FALSE.
C
      DO 40,I=1,6
C
          IF(CONFIG.EQ.CDBCFG(I)) THEN
              LCONFG= .TRUE.
          END IF
 40   CONTINUE
C
      RETURN
      END
