SUBROUTINE ccfft1d (itrans, ndim, mtimes, X)
      use numerics
      use modfft
      IMPLICIT NONE
      INTEGER,  INTENT(IN)  ::  itrans
      INTEGER,  INTENT(IN)  ::  ndim
      INTEGER,  INTENT(IN)  ::  mtimes
      COMPLEX(rp),  DIMENSION(0:ndim,1:mtimes),  INTENT(INOUT)  ::  X
      END SUBROUTINE ccfft1d