      SUBROUTINE FFTDOC
C***FIRST EXECUTABLE STATEMENT  FFTDOC
       RETURN
      END
