%N uvscan %F $MIR/src/subs/uvio.c
%D Scan a uv file until a variable changes.
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        integer function uvscan(tno,varname)
        integer tno
        character varname*(*)

  Scan through a uv file until a particular variable changes. This always
  reads to the end of the record (i.e. until all variables that change
  simultaneously are read) after "varname" was encountered.

  Input:
    tno         The handle of the uv file to be scanned.
    varname     The variable to terminate the search.

  Output:
    uvscan_c    0 on success, -1 on end-of-file. Standard error
                number otherwise.                                       
