[fortran]complex :: multple_dftarray(lgth(1),lgth(2),10) ... DftiSetValue(fftid,DFTI_NUMBER_OF_TRANSFORMS,10) DftiSetValue(fftid,DFTI_INPUT_DISTANCE, lgth(1)*lgth(2) ) ... statusbig = DftiComputeForward(fftid, multiple_dftarray) ! does 10 two-d transforms do lps = 1, 10 dft_array = somefunction( multiple_dftarray(:,:,lps) ) enddo [/fortran]
For more complete information about compiler optimizations, see our Optimization Notice.