Is it possible to use the modern f2003 interface for FFTW3 in Intel Fortran Composer?
The program example is the following
[fortran]program test_fftw3
use,intrinsic :: iso_c_binding
implicit none
include 'fftw3.f03'
integer :: n
type(c_ptr) :: fw,bk,ptr,ptc
double precision,pointer :: fftr(:)
double complex,pointer :: fftc(:)
n=2**20
ptr=fftw_alloc_real(int(2*n,C_SIZE_T)); call c_f_pointer(ptr,fftr,[2*n])
ptc=fftw_alloc_complex(int(n+1,C_SIZE_T)); call c_f_pointer(ptc,fftc,[n+1])
fw=fftw_plan_dft_r2c_1d(2*n,fftr,fftc,FFTW_ESTIMATE)
bk=fftw_plan_dft_c2r_1d(2*n,fftc,fftr,FFTW_ESTIMATE)
do i=1,n
fftr(i)=1.d0/dble(i)
end do
do i=n+1,2*n
fftr(i)=0.d0
end do
call fftw_execute_dft_r2c(fw,fftr,fftc)
call fftw_destroy_plan(fw)
call fftw_destroy_plan(bk)
call fftw_free(ptr)
call fftw_free(ptc)
end program[/fortran]
The compilation gives
[bash]draug@fujik:~/work$ uname -a
Linux fujik 3.0.0-16-generic #28-Ubuntu SMP Fri Jan 27 17:44:39 UTC 2012 x86_64 x86_64 x86_64 GNU/Linux
draug@fujik:~/work$ ifort -V
Intel Fortran Intel 64 Compiler XE for applications running on Intel 64, Version 12.1.3.293 Build 20120212
Copyright (C) 1985-2012 Intel Corporation. All rights reserved.
FOR NON-COMMERCIAL USE ONLY
draug@fujik:~/work$ ifort fftw.f90
fftw.f90(4): error #5102: Cannot open include file 'fftw3.f03'
include 'fftw3.f03'
---------^
[/bash]
