%N selinput %F $MIR/src/subs/select.for
%D Get the users uv selection specification.
%P rjs
%: uv-selection, uv-i/o
%B
        subroutine SelInput(key,sels,maxsels)

        implicit none
        character key*(*)
        integer maxsels
        real sels(maxsels)

  This gets the specification of the selected uv data from the key
  routines.

  Inputs:
    key        Keyword to be used with the key routine. Usually this is
               "select".
    maxsels    The size of the "sels" array. 500 elements is
               more than adequate. This would be a complicated selection
               for an array with many antennae.

  Output:
    sels       Intermediate form of the selection.
