cannam@167: ! Generated automatically. DO NOT EDIT! cannam@167: cannam@167: integer(C_INT), parameter :: FFTW_R2HC = 0 cannam@167: integer(C_INT), parameter :: FFTW_HC2R = 1 cannam@167: integer(C_INT), parameter :: FFTW_DHT = 2 cannam@167: integer(C_INT), parameter :: FFTW_REDFT00 = 3 cannam@167: integer(C_INT), parameter :: FFTW_REDFT01 = 4 cannam@167: integer(C_INT), parameter :: FFTW_REDFT10 = 5 cannam@167: integer(C_INT), parameter :: FFTW_REDFT11 = 6 cannam@167: integer(C_INT), parameter :: FFTW_RODFT00 = 7 cannam@167: integer(C_INT), parameter :: FFTW_RODFT01 = 8 cannam@167: integer(C_INT), parameter :: FFTW_RODFT10 = 9 cannam@167: integer(C_INT), parameter :: FFTW_RODFT11 = 10 cannam@167: integer(C_INT), parameter :: FFTW_FORWARD = -1 cannam@167: integer(C_INT), parameter :: FFTW_BACKWARD = +1 cannam@167: integer(C_INT), parameter :: FFTW_MEASURE = 0 cannam@167: integer(C_INT), parameter :: FFTW_DESTROY_INPUT = 1 cannam@167: integer(C_INT), parameter :: FFTW_UNALIGNED = 2 cannam@167: integer(C_INT), parameter :: FFTW_CONSERVE_MEMORY = 4 cannam@167: integer(C_INT), parameter :: FFTW_EXHAUSTIVE = 8 cannam@167: integer(C_INT), parameter :: FFTW_PRESERVE_INPUT = 16 cannam@167: integer(C_INT), parameter :: FFTW_PATIENT = 32 cannam@167: integer(C_INT), parameter :: FFTW_ESTIMATE = 64 cannam@167: integer(C_INT), parameter :: FFTW_WISDOM_ONLY = 2097152 cannam@167: integer(C_INT), parameter :: FFTW_ESTIMATE_PATIENT = 128 cannam@167: integer(C_INT), parameter :: FFTW_BELIEVE_PCOST = 256 cannam@167: integer(C_INT), parameter :: FFTW_NO_DFT_R2HC = 512 cannam@167: integer(C_INT), parameter :: FFTW_NO_NONTHREADED = 1024 cannam@167: integer(C_INT), parameter :: FFTW_NO_BUFFERING = 2048 cannam@167: integer(C_INT), parameter :: FFTW_NO_INDIRECT_OP = 4096 cannam@167: integer(C_INT), parameter :: FFTW_ALLOW_LARGE_GENERIC = 8192 cannam@167: integer(C_INT), parameter :: FFTW_NO_RANK_SPLITS = 16384 cannam@167: integer(C_INT), parameter :: FFTW_NO_VRANK_SPLITS = 32768 cannam@167: integer(C_INT), parameter :: FFTW_NO_VRECURSE = 65536 cannam@167: integer(C_INT), parameter :: FFTW_NO_SIMD = 131072 cannam@167: integer(C_INT), parameter :: FFTW_NO_SLOW = 262144 cannam@167: integer(C_INT), parameter :: FFTW_NO_FIXED_RADIX_LARGE_N = 524288 cannam@167: integer(C_INT), parameter :: FFTW_ALLOW_PRUNING = 1048576 cannam@167: cannam@167: type, bind(C) :: fftw_iodim cannam@167: integer(C_INT) n, is, os cannam@167: end type fftw_iodim cannam@167: type, bind(C) :: fftw_iodim64 cannam@167: integer(C_INTPTR_T) n, is, os cannam@167: end type fftw_iodim64 cannam@167: cannam@167: interface cannam@167: type(C_PTR) function fftw_plan_dft(rank,n,in,out,sign,flags) bind(C, name='fftw_plan_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_1d(n,in,out,sign,flags) bind(C, name='fftw_plan_dft_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_1d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_2d(n0,n1,in,out,sign,flags) bind(C, name='fftw_plan_dft_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_2d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_3d(n0,n1,n2,in,out,sign,flags) bind(C, name='fftw_plan_dft_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_3d cannam@167: cannam@167: type(C_PTR) function fftw_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags) & cannam@167: bind(C, name='fftw_plan_many_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_many_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & cannam@167: bind(C, name='fftw_plan_guru_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & cannam@167: bind(C, name='fftw_plan_guru_split_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_split_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & cannam@167: bind(C, name='fftw_plan_guru64_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & cannam@167: bind(C, name='fftw_plan_guru64_split_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_split_dft cannam@167: cannam@167: subroutine fftw_execute_dft(p,in,out) bind(C, name='fftw_execute_dft') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: end subroutine fftw_execute_dft cannam@167: cannam@167: subroutine fftw_execute_split_dft(p,ri,ii,ro,io) bind(C, name='fftw_execute_split_dft') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: end subroutine fftw_execute_split_dft cannam@167: cannam@167: type(C_PTR) function fftw_plan_many_dft_r2c(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & cannam@167: bind(C, name='fftw_plan_many_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_many_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_r2c(rank,n,in,out,flags) bind(C, name='fftw_plan_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_r2c_1d(n,in,out,flags) bind(C, name='fftw_plan_dft_r2c_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_r2c_1d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_r2c_2d(n0,n1,in,out,flags) bind(C, name='fftw_plan_dft_r2c_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_r2c_2d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_r2c_3d(n0,n1,n2,in,out,flags) bind(C, name='fftw_plan_dft_r2c_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_r2c_3d cannam@167: cannam@167: type(C_PTR) function fftw_plan_many_dft_c2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & cannam@167: bind(C, name='fftw_plan_many_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_many_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_c2r(rank,n,in,out,flags) bind(C, name='fftw_plan_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_c2r_1d(n,in,out,flags) bind(C, name='fftw_plan_dft_c2r_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_c2r_1d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_c2r_2d(n0,n1,in,out,flags) bind(C, name='fftw_plan_dft_c2r_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_c2r_2d cannam@167: cannam@167: type(C_PTR) function fftw_plan_dft_c2r_3d(n0,n1,n2,in,out,flags) bind(C, name='fftw_plan_dft_c2r_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_dft_c2r_3d cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftw_plan_guru_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftw_plan_guru_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & cannam@167: bind(C, name='fftw_plan_guru_split_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_split_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & cannam@167: bind(C, name='fftw_plan_guru_split_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_split_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftw_plan_guru64_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftw_plan_guru64_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & cannam@167: bind(C, name='fftw_plan_guru64_split_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_split_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & cannam@167: bind(C, name='fftw_plan_guru64_split_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_split_dft_c2r cannam@167: cannam@167: subroutine fftw_execute_dft_r2c(p,in,out) bind(C, name='fftw_execute_dft_r2c') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: in cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(out) :: out cannam@167: end subroutine fftw_execute_dft_r2c cannam@167: cannam@167: subroutine fftw_execute_dft_c2r(p,in,out) bind(C, name='fftw_execute_dft_c2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: complex(C_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: end subroutine fftw_execute_dft_c2r cannam@167: cannam@167: subroutine fftw_execute_split_dft_r2c(p,in,ro,io) bind(C, name='fftw_execute_split_dft_r2c') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: ro cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: io cannam@167: end subroutine fftw_execute_split_dft_r2c cannam@167: cannam@167: subroutine fftw_execute_split_dft_c2r(p,ri,ii,out) bind(C, name='fftw_execute_split_dft_c2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: ri cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: ii cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: end subroutine fftw_execute_split_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_many_r2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,kind,flags) & cannam@167: bind(C, name='fftw_plan_many_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_many_r2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_r2r(rank,n,in,out,kind,flags) bind(C, name='fftw_plan_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_r2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_r2r_1d(n,in,out,kind,flags) bind(C, name='fftw_plan_r2r_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_r2r_1d cannam@167: cannam@167: type(C_PTR) function fftw_plan_r2r_2d(n0,n1,in,out,kind0,kind1,flags) bind(C, name='fftw_plan_r2r_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind0 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind1 cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_r2r_2d cannam@167: cannam@167: type(C_PTR) function fftw_plan_r2r_3d(n0,n1,n2,in,out,kind0,kind1,kind2,flags) bind(C, name='fftw_plan_r2r_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind0 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind1 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind2 cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_r2r_3d cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & cannam@167: bind(C, name='fftw_plan_guru_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru_r2r cannam@167: cannam@167: type(C_PTR) function fftw_plan_guru64_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & cannam@167: bind(C, name='fftw_plan_guru64_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftw_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftw_plan_guru64_r2r cannam@167: cannam@167: subroutine fftw_execute_r2r(p,in,out) bind(C, name='fftw_execute_r2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), dimension(*), intent(inout) :: in cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: out cannam@167: end subroutine fftw_execute_r2r cannam@167: cannam@167: subroutine fftw_destroy_plan(p) bind(C, name='fftw_destroy_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftw_destroy_plan cannam@167: cannam@167: subroutine fftw_forget_wisdom() bind(C, name='fftw_forget_wisdom') cannam@167: import cannam@167: end subroutine fftw_forget_wisdom cannam@167: cannam@167: subroutine fftw_cleanup() bind(C, name='fftw_cleanup') cannam@167: import cannam@167: end subroutine fftw_cleanup cannam@167: cannam@167: subroutine fftw_set_timelimit(t) bind(C, name='fftw_set_timelimit') cannam@167: import cannam@167: real(C_DOUBLE), value :: t cannam@167: end subroutine fftw_set_timelimit cannam@167: cannam@167: subroutine fftw_plan_with_nthreads(nthreads) bind(C, name='fftw_plan_with_nthreads') cannam@167: import cannam@167: integer(C_INT), value :: nthreads cannam@167: end subroutine fftw_plan_with_nthreads cannam@167: cannam@167: integer(C_INT) function fftw_init_threads() bind(C, name='fftw_init_threads') cannam@167: import cannam@167: end function fftw_init_threads cannam@167: cannam@167: subroutine fftw_cleanup_threads() bind(C, name='fftw_cleanup_threads') cannam@167: import cannam@167: end subroutine fftw_cleanup_threads cannam@167: cannam@167: subroutine fftw_make_planner_thread_safe() bind(C, name='fftw_make_planner_thread_safe') cannam@167: import cannam@167: end subroutine fftw_make_planner_thread_safe cannam@167: cannam@167: integer(C_INT) function fftw_export_wisdom_to_filename(filename) bind(C, name='fftw_export_wisdom_to_filename') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: filename cannam@167: end function fftw_export_wisdom_to_filename cannam@167: cannam@167: subroutine fftw_export_wisdom_to_file(output_file) bind(C, name='fftw_export_wisdom_to_file') cannam@167: import cannam@167: type(C_PTR), value :: output_file cannam@167: end subroutine fftw_export_wisdom_to_file cannam@167: cannam@167: type(C_PTR) function fftw_export_wisdom_to_string() bind(C, name='fftw_export_wisdom_to_string') cannam@167: import cannam@167: end function fftw_export_wisdom_to_string cannam@167: cannam@167: subroutine fftw_export_wisdom(write_char,data) bind(C, name='fftw_export_wisdom') cannam@167: import cannam@167: type(C_FUNPTR), value :: write_char cannam@167: type(C_PTR), value :: data cannam@167: end subroutine fftw_export_wisdom cannam@167: cannam@167: integer(C_INT) function fftw_import_system_wisdom() bind(C, name='fftw_import_system_wisdom') cannam@167: import cannam@167: end function fftw_import_system_wisdom cannam@167: cannam@167: integer(C_INT) function fftw_import_wisdom_from_filename(filename) bind(C, name='fftw_import_wisdom_from_filename') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: filename cannam@167: end function fftw_import_wisdom_from_filename cannam@167: cannam@167: integer(C_INT) function fftw_import_wisdom_from_file(input_file) bind(C, name='fftw_import_wisdom_from_file') cannam@167: import cannam@167: type(C_PTR), value :: input_file cannam@167: end function fftw_import_wisdom_from_file cannam@167: cannam@167: integer(C_INT) function fftw_import_wisdom_from_string(input_string) bind(C, name='fftw_import_wisdom_from_string') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: input_string cannam@167: end function fftw_import_wisdom_from_string cannam@167: cannam@167: integer(C_INT) function fftw_import_wisdom(read_char,data) bind(C, name='fftw_import_wisdom') cannam@167: import cannam@167: type(C_FUNPTR), value :: read_char cannam@167: type(C_PTR), value :: data cannam@167: end function fftw_import_wisdom cannam@167: cannam@167: subroutine fftw_fprint_plan(p,output_file) bind(C, name='fftw_fprint_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: type(C_PTR), value :: output_file cannam@167: end subroutine fftw_fprint_plan cannam@167: cannam@167: subroutine fftw_print_plan(p) bind(C, name='fftw_print_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftw_print_plan cannam@167: cannam@167: type(C_PTR) function fftw_sprint_plan(p) bind(C, name='fftw_sprint_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftw_sprint_plan cannam@167: cannam@167: type(C_PTR) function fftw_malloc(n) bind(C, name='fftw_malloc') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftw_malloc cannam@167: cannam@167: type(C_PTR) function fftw_alloc_real(n) bind(C, name='fftw_alloc_real') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftw_alloc_real cannam@167: cannam@167: type(C_PTR) function fftw_alloc_complex(n) bind(C, name='fftw_alloc_complex') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftw_alloc_complex cannam@167: cannam@167: subroutine fftw_free(p) bind(C, name='fftw_free') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftw_free cannam@167: cannam@167: subroutine fftw_flops(p,add,mul,fmas) bind(C, name='fftw_flops') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), intent(out) :: add cannam@167: real(C_DOUBLE), intent(out) :: mul cannam@167: real(C_DOUBLE), intent(out) :: fmas cannam@167: end subroutine fftw_flops cannam@167: cannam@167: real(C_DOUBLE) function fftw_estimate_cost(p) bind(C, name='fftw_estimate_cost') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftw_estimate_cost cannam@167: cannam@167: real(C_DOUBLE) function fftw_cost(p) bind(C, name='fftw_cost') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftw_cost cannam@167: cannam@167: integer(C_INT) function fftw_alignment_of(p) bind(C, name='fftw_alignment_of') cannam@167: import cannam@167: real(C_DOUBLE), dimension(*), intent(out) :: p cannam@167: end function fftw_alignment_of cannam@167: cannam@167: end interface cannam@167: cannam@167: type, bind(C) :: fftwf_iodim cannam@167: integer(C_INT) n, is, os cannam@167: end type fftwf_iodim cannam@167: type, bind(C) :: fftwf_iodim64 cannam@167: integer(C_INTPTR_T) n, is, os cannam@167: end type fftwf_iodim64 cannam@167: cannam@167: interface cannam@167: type(C_PTR) function fftwf_plan_dft(rank,n,in,out,sign,flags) bind(C, name='fftwf_plan_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_1d(n,in,out,sign,flags) bind(C, name='fftwf_plan_dft_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_1d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_2d(n0,n1,in,out,sign,flags) bind(C, name='fftwf_plan_dft_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_2d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_3d(n0,n1,n2,in,out,sign,flags) bind(C, name='fftwf_plan_dft_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_3d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags) & cannam@167: bind(C, name='fftwf_plan_many_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_many_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & cannam@167: bind(C, name='fftwf_plan_guru_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & cannam@167: bind(C, name='fftwf_plan_guru_split_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_split_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: sign cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_split_dft') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_split_dft cannam@167: cannam@167: subroutine fftwf_execute_dft(p,in,out) bind(C, name='fftwf_execute_dft') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(inout) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: end subroutine fftwf_execute_dft cannam@167: cannam@167: subroutine fftwf_execute_split_dft(p,ri,ii,ro,io) bind(C, name='fftwf_execute_split_dft') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: end subroutine fftwf_execute_split_dft cannam@167: cannam@167: type(C_PTR) function fftwf_plan_many_dft_r2c(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & cannam@167: bind(C, name='fftwf_plan_many_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_many_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_r2c(rank,n,in,out,flags) bind(C, name='fftwf_plan_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_r2c_1d(n,in,out,flags) bind(C, name='fftwf_plan_dft_r2c_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_r2c_1d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_r2c_2d(n0,n1,in,out,flags) bind(C, name='fftwf_plan_dft_r2c_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_r2c_2d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_r2c_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwf_plan_dft_r2c_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_r2c_3d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_many_dft_c2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & cannam@167: bind(C, name='fftwf_plan_many_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_many_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_c2r(rank,n,in,out,flags) bind(C, name='fftwf_plan_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_c2r_1d(n,in,out,flags) bind(C, name='fftwf_plan_dft_c2r_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_c2r_1d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_c2r_2d(n0,n1,in,out,flags) bind(C, name='fftwf_plan_dft_c2r_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_c2r_2d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_dft_c2r_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwf_plan_dft_c2r_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_dft_c2r_3d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & cannam@167: bind(C, name='fftwf_plan_guru_split_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_split_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru_split_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_split_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_split_dft_r2c') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_split_dft_r2c cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_split_dft_c2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_split_dft_c2r cannam@167: cannam@167: subroutine fftwf_execute_dft_r2c(p,in,out) bind(C, name='fftwf_execute_dft_r2c') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: in cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(out) :: out cannam@167: end subroutine fftwf_execute_dft_r2c cannam@167: cannam@167: subroutine fftwf_execute_dft_c2r(p,in,out) bind(C, name='fftwf_execute_dft_c2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: complex(C_FLOAT_COMPLEX), dimension(*), intent(inout) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: end subroutine fftwf_execute_dft_c2r cannam@167: cannam@167: subroutine fftwf_execute_split_dft_r2c(p,in,ro,io) bind(C, name='fftwf_execute_split_dft_r2c') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: ro cannam@167: real(C_FLOAT), dimension(*), intent(out) :: io cannam@167: end subroutine fftwf_execute_split_dft_r2c cannam@167: cannam@167: subroutine fftwf_execute_split_dft_c2r(p,ri,ii,out) bind(C, name='fftwf_execute_split_dft_c2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: ri cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: ii cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: end subroutine fftwf_execute_split_dft_c2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_many_r2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,kind,flags) & cannam@167: bind(C, name='fftwf_plan_many_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: integer(C_INT), value :: howmany cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: integer(C_INT), dimension(*), intent(in) :: inembed cannam@167: integer(C_INT), value :: istride cannam@167: integer(C_INT), value :: idist cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_INT), dimension(*), intent(in) :: onembed cannam@167: integer(C_INT), value :: ostride cannam@167: integer(C_INT), value :: odist cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_many_r2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_r2r(rank,n,in,out,kind,flags) bind(C, name='fftwf_plan_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: integer(C_INT), dimension(*), intent(in) :: n cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_r2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_r2r_1d(n,in,out,kind,flags) bind(C, name='fftwf_plan_r2r_1d') cannam@167: import cannam@167: integer(C_INT), value :: n cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_r2r_1d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_r2r_2d(n0,n1,in,out,kind0,kind1,flags) bind(C, name='fftwf_plan_r2r_2d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind0 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind1 cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_r2r_2d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_r2r_3d(n0,n1,n2,in,out,kind0,kind1,kind2,flags) bind(C, name='fftwf_plan_r2r_3d') cannam@167: import cannam@167: integer(C_INT), value :: n0 cannam@167: integer(C_INT), value :: n1 cannam@167: integer(C_INT), value :: n2 cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), value :: kind0 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind1 cannam@167: integer(C_FFTW_R2R_KIND), value :: kind2 cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_r2r_3d cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & cannam@167: bind(C, name='fftwf_plan_guru_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru_r2r cannam@167: cannam@167: type(C_PTR) function fftwf_plan_guru64_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & cannam@167: bind(C, name='fftwf_plan_guru64_r2r') cannam@167: import cannam@167: integer(C_INT), value :: rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: dims cannam@167: integer(C_INT), value :: howmany_rank cannam@167: type(fftwf_iodim64), dimension(*), intent(in) :: howmany_dims cannam@167: real(C_FLOAT), dimension(*), intent(out) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind cannam@167: integer(C_INT), value :: flags cannam@167: end function fftwf_plan_guru64_r2r cannam@167: cannam@167: subroutine fftwf_execute_r2r(p,in,out) bind(C, name='fftwf_execute_r2r') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_FLOAT), dimension(*), intent(inout) :: in cannam@167: real(C_FLOAT), dimension(*), intent(out) :: out cannam@167: end subroutine fftwf_execute_r2r cannam@167: cannam@167: subroutine fftwf_destroy_plan(p) bind(C, name='fftwf_destroy_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftwf_destroy_plan cannam@167: cannam@167: subroutine fftwf_forget_wisdom() bind(C, name='fftwf_forget_wisdom') cannam@167: import cannam@167: end subroutine fftwf_forget_wisdom cannam@167: cannam@167: subroutine fftwf_cleanup() bind(C, name='fftwf_cleanup') cannam@167: import cannam@167: end subroutine fftwf_cleanup cannam@167: cannam@167: subroutine fftwf_set_timelimit(t) bind(C, name='fftwf_set_timelimit') cannam@167: import cannam@167: real(C_DOUBLE), value :: t cannam@167: end subroutine fftwf_set_timelimit cannam@167: cannam@167: subroutine fftwf_plan_with_nthreads(nthreads) bind(C, name='fftwf_plan_with_nthreads') cannam@167: import cannam@167: integer(C_INT), value :: nthreads cannam@167: end subroutine fftwf_plan_with_nthreads cannam@167: cannam@167: integer(C_INT) function fftwf_init_threads() bind(C, name='fftwf_init_threads') cannam@167: import cannam@167: end function fftwf_init_threads cannam@167: cannam@167: subroutine fftwf_cleanup_threads() bind(C, name='fftwf_cleanup_threads') cannam@167: import cannam@167: end subroutine fftwf_cleanup_threads cannam@167: cannam@167: subroutine fftwf_make_planner_thread_safe() bind(C, name='fftwf_make_planner_thread_safe') cannam@167: import cannam@167: end subroutine fftwf_make_planner_thread_safe cannam@167: cannam@167: integer(C_INT) function fftwf_export_wisdom_to_filename(filename) bind(C, name='fftwf_export_wisdom_to_filename') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: filename cannam@167: end function fftwf_export_wisdom_to_filename cannam@167: cannam@167: subroutine fftwf_export_wisdom_to_file(output_file) bind(C, name='fftwf_export_wisdom_to_file') cannam@167: import cannam@167: type(C_PTR), value :: output_file cannam@167: end subroutine fftwf_export_wisdom_to_file cannam@167: cannam@167: type(C_PTR) function fftwf_export_wisdom_to_string() bind(C, name='fftwf_export_wisdom_to_string') cannam@167: import cannam@167: end function fftwf_export_wisdom_to_string cannam@167: cannam@167: subroutine fftwf_export_wisdom(write_char,data) bind(C, name='fftwf_export_wisdom') cannam@167: import cannam@167: type(C_FUNPTR), value :: write_char cannam@167: type(C_PTR), value :: data cannam@167: end subroutine fftwf_export_wisdom cannam@167: cannam@167: integer(C_INT) function fftwf_import_system_wisdom() bind(C, name='fftwf_import_system_wisdom') cannam@167: import cannam@167: end function fftwf_import_system_wisdom cannam@167: cannam@167: integer(C_INT) function fftwf_import_wisdom_from_filename(filename) bind(C, name='fftwf_import_wisdom_from_filename') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: filename cannam@167: end function fftwf_import_wisdom_from_filename cannam@167: cannam@167: integer(C_INT) function fftwf_import_wisdom_from_file(input_file) bind(C, name='fftwf_import_wisdom_from_file') cannam@167: import cannam@167: type(C_PTR), value :: input_file cannam@167: end function fftwf_import_wisdom_from_file cannam@167: cannam@167: integer(C_INT) function fftwf_import_wisdom_from_string(input_string) bind(C, name='fftwf_import_wisdom_from_string') cannam@167: import cannam@167: character(C_CHAR), dimension(*), intent(in) :: input_string cannam@167: end function fftwf_import_wisdom_from_string cannam@167: cannam@167: integer(C_INT) function fftwf_import_wisdom(read_char,data) bind(C, name='fftwf_import_wisdom') cannam@167: import cannam@167: type(C_FUNPTR), value :: read_char cannam@167: type(C_PTR), value :: data cannam@167: end function fftwf_import_wisdom cannam@167: cannam@167: subroutine fftwf_fprint_plan(p,output_file) bind(C, name='fftwf_fprint_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: type(C_PTR), value :: output_file cannam@167: end subroutine fftwf_fprint_plan cannam@167: cannam@167: subroutine fftwf_print_plan(p) bind(C, name='fftwf_print_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftwf_print_plan cannam@167: cannam@167: type(C_PTR) function fftwf_sprint_plan(p) bind(C, name='fftwf_sprint_plan') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftwf_sprint_plan cannam@167: cannam@167: type(C_PTR) function fftwf_malloc(n) bind(C, name='fftwf_malloc') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftwf_malloc cannam@167: cannam@167: type(C_PTR) function fftwf_alloc_real(n) bind(C, name='fftwf_alloc_real') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftwf_alloc_real cannam@167: cannam@167: type(C_PTR) function fftwf_alloc_complex(n) bind(C, name='fftwf_alloc_complex') cannam@167: import cannam@167: integer(C_SIZE_T), value :: n cannam@167: end function fftwf_alloc_complex cannam@167: cannam@167: subroutine fftwf_free(p) bind(C, name='fftwf_free') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end subroutine fftwf_free cannam@167: cannam@167: subroutine fftwf_flops(p,add,mul,fmas) bind(C, name='fftwf_flops') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: real(C_DOUBLE), intent(out) :: add cannam@167: real(C_DOUBLE), intent(out) :: mul cannam@167: real(C_DOUBLE), intent(out) :: fmas cannam@167: end subroutine fftwf_flops cannam@167: cannam@167: real(C_DOUBLE) function fftwf_estimate_cost(p) bind(C, name='fftwf_estimate_cost') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftwf_estimate_cost cannam@167: cannam@167: real(C_DOUBLE) function fftwf_cost(p) bind(C, name='fftwf_cost') cannam@167: import cannam@167: type(C_PTR), value :: p cannam@167: end function fftwf_cost cannam@167: cannam@167: integer(C_INT) function fftwf_alignment_of(p) bind(C, name='fftwf_alignment_of') cannam@167: import cannam@167: real(C_FLOAT), dimension(*), intent(out) :: p cannam@167: end function fftwf_alignment_of cannam@167: cannam@167: end interface