%N fftcc %F $MIR/src/subs/fftsubs.for
%D Complex to complex 1D FFT routine.
%: fourier-transform, fft
%P rjs
%B
        subroutine fftcc(in,out,isn,n)

        integer isn,n
        complex in(n),out(n)

  This performs a 1D Fourier transform of a complex sequence.  There is
  no 1/N scaling, and the "phase center" of the transform is the first
  element of the input array.

  Input:
    in         The input complex array.
    isn        The sign of the exponent in the transform, This can be
               either 1 or -1.
    n          The number of elements to transform.  Must be a power
               of 2.
  Output:
    out        The output complex array.
