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

        implicit none
        character line*(*)
        integer nchan
        real lstart,lwidth,lstep

  Get the linetype from the user interface.

  Output:
    line       Either 'channel', 'velocity','felocity' or 'wide'.
    nchan      Number of channels.
    lstart,lwidth,lstep  Line parameters.
