%N uvdatgtr %F $MIR/src/subs/uvdat.for
%D Get real information about the uvDat routines.
%P rjs
%: uv-i/o, uv-data, uv-selection
%B
        subroutine uvDatGtr(object,rval)

        implicit none
        character object*(*)
        real rval

  This returns miscellaneous information about what is going on inside
  the UVDAT routines.

  Input:
    object     This is a string describing the information to return.
               Possible values are:
                'variance' Returns variance of the data.
                'jyperk' Returns Jy/K value for the data
  Output:
    rval       Real valued output.
