%N varcopy %F $MIR/src/subs/var.for
%D Write out variables describing an output linetype.
%: uv-data
%P rjs
%B
        subroutine VarCopy(tIn,tOut)

        implicit none
        integer tIn,tOut

  Copy across a description of the line.

  Input:
    tIn        Handle of the input uv file.
    tOut       Handle of the output uv file.

  UV variables produced are:
   line=channel or velocity: nspect,nschan,ischan,sdf,sfreq,restfreq,systemp,
       xtsys,ytsys,bfmask
   line=wide               : wfreq,wwidth,wsystemp.
