%N keyrline %F $MIR/src/subs/keyline.for
%D Get the reference linetype from the user interface.
%P rjs
%: user-input
%B
        subroutine KeyrLine(line,lstart,lwidth)

        implicit none
        character line*(*)
        real lstart,lwidth

  Get the reference linetype from the user interface.

  Output:
    line       Either 'channel', 'velocity','felocity' or 'wide'.
    lstart,lwidth  Line parameters.
