SUBROUTINE rcfft1d (itrans, ndim, mtimes, X, Y)
      use numerics
      use modfft
      IMPLICIT NONE
      INTEGER,  INTENT(IN)  ::  itrans
      INTEGER,  INTENT(IN)  ::  ndim
      INTEGER,  INTENT(IN)  ::  mtimes
      REAL(rp),     DIMENSION(0:ndim-1),  INTENT(INOUT)  ::  X
      COMPLEX(rp),  DIMENSION(0:ndim/2),  INTENT(INOUT)  ::  Y
      END SUBROUTINE rcfft1d