C-------------------------------------------------------------
C
      LOGICAL FUNCTION CB (J,K,LONG)
      INTEGER*2 J(1),K(1),LONG,COUNT
      DO COUNT = 1,LONG
      IF (J(COUNT).NE.K(COUNT)) THEN
            CB = .FALSE.
            RETURN
            END IF                      ! J.....K
      END DO                            ! COUNT
      CB = .TRUE.
      RETURN
      END
