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

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

  Get the linetype from the user interface.

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