real :: fx,wfft,trigs
      integer :: ifax
      COMMON/FFT/FX(ZIMX+2,2*ZKMXP),WFFT((ZIMX+1)*2*ZKMXP),
     1IFAX(13),TRIGS(3*ZIMX/2+1)
!DIR$ TASKCOMMON fft
C