%N bselect %F $MIR/src/subs/uvsubs.for
%D Find if given antenna is in given baseline code
%P mchw
%: uv-data, uv-selection, antennas, baselines
%B
        logical function bselect(base,ants)
        implicit none
        double precision base
        character*(*) ants
                                       !256*ant1 + ant2
                                       !ants in config (string)

  Compares the variable 'baseline' attached to each baseline with
  the string 'ants' which describes the baseline configuration
  that is being selected.  BSELECT returns true if base(from uvread)
  is one of ants. The baseline configuration is described in the
  VLA format:
     antennas  WITH  antennas  (if WITH is missing, both sides are equal)
      where antennas is a list of antenna numbers  ant1 ant2 ...  antn
      or    antennas can be  *   which means all antennas
      or    antennas can be  * - antn antm  which means all ants - some
  Inputs:
    base       baseline selector from uvread.
    ants       antenna description string.
