%N selapply %F $MIR/src/subs/select.for
%D Call the appropriate uv routine to set the uv selection.
%P rjs
%: uv-selection, uv-i/o
%B
        subroutine SelApply(tno,sels,select)

        implicit none
        integer tno
        real sels(*)
        logical select

  This calls the uvselect routine, to indicate what data is to be
  selected, etc.

  Inputs:
    tno        The handle of the uv data file.
    sels       The intermediate form of the selection.
    select     If true, the data is selected, otherwise the data is
               discarded.
