subroutine fftcc (cdata,ncpts,signex,ctran,work,ierr)
c
      complex         cdata(ncpts)           ,ctran(ncpts)           ,
     1                work(ncpts)
      dimension       nscrt(1)
c the following call is for gathering statistics on library use at ncar
c      logical q8q4
c      save q8q4
c      data q8q4 /.true./
c      if (q8q4) then
c          call q8qst4('loclib','fft','fftcc','version 08')
c          q8q4 = .false.
c      endif
      ierr = 0
      if (ncpts .lt. 1) go to 102
      do 101 j=1,ncpts
         ctran(j) = cdata(j)
  101 continue
      isign = signex
      nscrt(1) = ncpts
      call fourt (ctran,nscrt,1,isign,1,work)
      return
  102 ierr = 101
      call uliber (ierr,25h fftcc    ncpts is .lt. 1,25)
      return
      end