%N linetype %F $MIR/src/subs/linetype.for
%D Read standard linetype keyword and transfer information to uvio
%P bpw
%: text-i/o, utilities
%B
      subroutine linetype( unit, line, type )

      integer       unit
      real          line(4)
      character*(*) type

 Returns the values of the linetype keyword in an array and also
 does the call to uvset to tell uvio which linetype was selected.
 It sets the default linetype to 'channel,0,1,1,width', i.e. all
 channels (nchan=0), and a step equal to the width.
 Furthermore some checking on the consistency of the input is done.

 Input:
    unit        the logical unit number of the visibility file

 Output:
    type        the linetype ('channel', 'wide' etc)
    line        condensed form for: nchan,start,width,step.
