[bash]PROGRAM bayes3D ! .. Use Statements .. Use MKL_DFTI ! none in USE ! .. Implicit None Statement .. IMPLICIT NONE ! .. Default Accessibility .. ! --- snip ! ALLOCATE (DimBig(2)) DimBig(1) = nl1 DimBig(2) = nl2 StatusBig(1) = DftiCreateDescriptor(FFT_BIG, DFTI_DOUBLE, DFTI_COMPLEX, 2, DimBig) StatusBig(1) = DftiCommitDescriptor(FFT_BIG) ALLOCATE (DFTBig(nl1,nl2,zl)) DO i=1,zl StatusBig(i) = DftiComputeForward(FFT_BIG,newA(:,:,i),DFTBig(:,:,i)) END DO[/bash]
I am facing the same question as you once did. how did you solve your problem? Can you give me some help . I am looking forward to your reply.
My codes is as follows:
error #6284: There is no matching specific function for this generic function reference. [FFT]
USE FOURIER, ONLY : &
FFT, & ! The Fast Fourier Transform routine.
VWPot = 0.5 * FFT( FFT(VWPot) * qTable**2 ) / VWPot
Sorry yuan z. I do not remember exactly what the problem. I think it was an error in my code where I declared an array to have the wrong type (e.g., integer array instead of real).
Show the interface for function FFT, and the declarations of the variables VWPot and qTable. Apparently, your module Fourier contains one or more specific functions with the generic name FFT, and the type of the argument in the invocation of the function FFT does not match the types of the arguments of any of the specific functions.