%N uvwflgwr %F $MIR/src/subs/uvio.c
%D Write uv flags after a read.
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        subroutine uvwflgwr(tno,flags)
        integer tno
        logical flags(*)

  This rewrites the flags associated with the last call to uvwread.
  It will typically be called soon after uvwread, thus overwriting
  the old flags.

  Input:
    tno         The handle of the input uv file.
    flags       Logical array of "nread" elements ("nread" as returned
                by the last call to uvwread).                           
