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