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