cCDK RFFT RFFT.1 COMMON/FFT0/FX(ZIMX+2,2*ZKMXP),WFFT((ZIMX+1)*2*ZKMXP), RFFT.2 1 TRIGS(3*ZIMX/2+1) RFFT.3 COMMON/FFT1/IFAX(13) RFFT.4