我试图在Windows 7平台中使用包含在TDM-GCC-64
套件中的FFTW3
和gfortran
编译器。使用包含在TDM-GCC-64中的gfortran fftw3
我已下载 “fftw-3.3.4-dll64.zip” 从以下页面:
http://www.fftw.org/install/windows.html
我也创造了下面的教程描述的FORTRAN模块:
http://www.fftw.org/doc/Defining-an-FFTW-module.html
现在我试着编译下面的fortrans程序
program test
use FFTW3
implicit none
integer N
parameter(N=4)
integer*8 plan
double complex in, out
dimension in(N),out(N)
integer i
write(*,*) 'Input array:'
do i = 1,N,1
in(i) = dcmplx(float(i),float(i+1))
write(*,*) ' in(',i,') = ',in(i)
enddo
call dfftw_plan_dft_1d (plan, N, in, out, FFTW_FORWARD, FFTW_ESTIMATE)
call dfftw_execute (plan)
write(*,*) 'Output array:'
do i = 1,N,1
write(*,*) ' out(',i,') = ',out(i)
enddo
call dfftw_destroy_plan (plan)
call dfftw_plan_dft_1d (plan, N, out, in, FFTW_FORWARD, FFTW_ESTIMATE)
call dfftw_execute (plan)
write(*,*) 'Output array after inverse FFT:'
do i = 1,N,1
write(*,*) ' ',N,' * in(',i,') = ',in(i)
enddo
call dfftw_destroy_plan (plan)
end
我试图编译,但一对夫妇的错误消息弹出:
未定义参考dfftw_plan_dft_1d_' undefined reference to
dfftw_execute_” ...
用于编译的命令是:
gfortran test.f90 -ffree-form -o test_fftw.exe
我上下搜索了网页,但没有找到解决问题的方法。任何人都可以帮我在这里吗?谢谢!!!
哇,它符合你的指示很好。万分感谢!!! –