%N uvputvr %F $MIR/src/subs/uvio.c
%D Write the value of a uv variable.
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        subroutine uvputvra(tno,varname,adata)
        subroutine uvputvri(tno,varname,idata,n)
        subroutine uvputvrr(tno,varname,rdata,n)
        subroutine uvputvrd(tno,varname,ddata,n)
        subroutine uvputvrc(tno,varname,cdata,n)
        integer tno,n
        character varname*(*)
        character adata*(*)
        integer   idata(n)
        real      rdata(n)
        double precision ddata(n)
        complex cdata(n)

  These routines write new values for a uv variable. N gives the number
  of elements to write.

  Input:
    tno         The handle of the uv data file.
    varname     The name of the variable to write.
    n           The number of elements to write.
    data        The values of the variable.                             
