%N uvfit2 %F $MIR/src/subs/uvfitsubs.for
%D Fit a line to an "object" returned by uvinfo.
%: uv-data
%B
        subroutine uvfit2(tno,object,n,a,b,epsi)

        implicit none
        integer tno,n
        character object*(*)
        double precision a,b,epsi

  UvFit2 fits a line to an "object" return by uvinfo. It
  returns the estimate of the poarameters of the line, along with
  the rms error of the fit.

  Input:
    tno        Handle of the uv data file.
    object     Some string, passed down to uvinfo.
    n          The number of channels ("nread" returned by uvread).
  Output:
    a,b        The equation of the line is
                a*(i-1) + b
    epsi       Rms error of the estimate.
