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

        implicit none
        character object*(*),aval*(*)

  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:
                'name'    The name of the file currently being processed.
                'ltype'   Returns linetype in "aval".
  Output:
    aval       Character string output.
