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

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

  UvFit1 fits a constant to an "object" return by uvinfo. It
  returns the estimate of the constant and 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          The estimate of the constant value.
    epsi       Rms error of the estimate.
