%N cnvlcopy %F $MIR/src/subs/cnvl.for
%D Form the copy of the FFT of a beam.
%P rjs
%: convolution, fft
%B
      subroutine CnvlCopy(out,handle)

      ptrdiff out,handle

  This forms a new handle, representing the FFT of a beam. The output
  beam is a copy of the input beam.

  Input:
    handle     The handle of the input beam.
  Output:
    out        The handle of the output beam, which is a copy of the
               input beam.
