%N varonit %F $MIR/src/subs/var.for
%D Initialise the output when copying variables.
%: uv-data
%P rjs
%B
        subroutine VarOnit(tIn,tOut,linetype)

        implicit none
        integer tIn,tOut
        character linetype*(*)

  Initialise characteristics about the output data variables.

  Variables whose characteristics are set by VarOnit are:
   line=channel or velocity: corr
   line=wide               : wcorr

  Input:
    tIn
    tOut
    linetype
