diff --git a/lib/fftw/lib/libfftw3.a b/lib/fftw/lib/libfftw3.a index 89ff9c6bf..5a3b745b9 100644 Binary files a/lib/fftw/lib/libfftw3.a and b/lib/fftw/lib/libfftw3.a differ diff --git a/lib/fftw/lib/libfftw3.so b/lib/fftw/lib/libfftw3.so new file mode 100644 index 000000000..3f979b29e Binary files /dev/null and b/lib/fftw/lib/libfftw3.so differ diff --git a/lib/fftw/lib/libfftw3.so.3.3.2 b/lib/fftw/lib/libfftw3.so.3.3.2 deleted file mode 100644 index a964ebffc..000000000 Binary files a/lib/fftw/lib/libfftw3.so.3.3.2 and /dev/null differ diff --git a/lib/fftw/lib/libfftw3_threads.a b/lib/fftw/lib/libfftw3_threads.a index fd8a3edc0..da5c4d79b 100644 Binary files a/lib/fftw/lib/libfftw3_threads.a and b/lib/fftw/lib/libfftw3_threads.a differ diff --git a/lib/fftw/lib/libfftw3_threads.so b/lib/fftw/lib/libfftw3_threads.so new file mode 100644 index 000000000..156e5106a Binary files /dev/null and b/lib/fftw/lib/libfftw3_threads.so differ diff --git a/lib/fftw/lib/libfftw3_threads.so.3.3.2 b/lib/fftw/lib/libfftw3_threads.so.3.3.2 deleted file mode 100644 index 8d10e6144..000000000 Binary files a/lib/fftw/lib/libfftw3_threads.so.3.3.2 and /dev/null differ diff --git a/lib/fftw3.f03 b/lib/fftw3.f03 index 4154b9bd1..75def88cc 100644 --- a/lib/fftw3.f03 +++ b/lib/fftw3.f03 @@ -1224,596 +1224,3 @@ end function fftwf_cost end interface - - type, bind(C) :: fftwl_iodim - integer(C_INT) n, is, os - end type fftwl_iodim - type, bind(C) :: fftwl_iodim64 - integer(C_INTPTR_T) n, is, os - end type fftwl_iodim64 - - interface - type(C_PTR) function fftwl_plan_dft(rank,n,in,out,sign,flags) bind(C, name='fftwl_plan_dft') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_dft - - type(C_PTR) function fftwl_plan_dft_1d(n,in,out,sign,flags) bind(C, name='fftwl_plan_dft_1d') - import - integer(C_INT), value :: n - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_dft_1d - - type(C_PTR) function fftwl_plan_dft_2d(n0,n1,in,out,sign,flags) bind(C, name='fftwl_plan_dft_2d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_dft_2d - - type(C_PTR) function fftwl_plan_dft_3d(n0,n1,n2,in,out,sign,flags) bind(C, name='fftwl_plan_dft_3d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - integer(C_INT), value :: n2 - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_dft_3d - - type(C_PTR) function fftwl_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags) & - bind(C, name='fftwl_plan_many_dft') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - integer(C_INT), value :: howmany - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - integer(C_INT), dimension(*), intent(in) :: inembed - integer(C_INT), value :: istride - integer(C_INT), value :: idist - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), dimension(*), intent(in) :: onembed - integer(C_INT), value :: ostride - integer(C_INT), value :: odist - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_many_dft - - type(C_PTR) function fftwl_plan_guru_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & - bind(C, name='fftwl_plan_guru_dft') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_guru_dft - - type(C_PTR) function fftwl_plan_guru_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & - bind(C, name='fftwl_plan_guru_split_dft') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - integer(C_INT), value :: flags - end function fftwl_plan_guru_split_dft - - type(C_PTR) function fftwl_plan_guru64_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & - bind(C, name='fftwl_plan_guru64_dft') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: sign - integer(C_INT), value :: flags - end function fftwl_plan_guru64_dft - - type(C_PTR) function fftwl_plan_guru64_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & - bind(C, name='fftwl_plan_guru64_split_dft') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - integer(C_INT), value :: flags - end function fftwl_plan_guru64_split_dft - - subroutine fftwl_execute_dft(p,in,out) bind(C, name='fftwl_execute_dft') - import - type(C_PTR), value :: p - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - end subroutine fftwl_execute_dft - - subroutine fftwl_execute_split_dft(p,ri,ii,ro,io) bind(C, name='fftwl_execute_split_dft') - import - type(C_PTR), value :: p - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - end subroutine fftwl_execute_split_dft - - type(C_PTR) function fftwl_plan_many_dft_r2c(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & - bind(C, name='fftwl_plan_many_dft_r2c') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - integer(C_INT), value :: howmany - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - integer(C_INT), dimension(*), intent(in) :: inembed - integer(C_INT), value :: istride - integer(C_INT), value :: idist - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), dimension(*), intent(in) :: onembed - integer(C_INT), value :: ostride - integer(C_INT), value :: odist - integer(C_INT), value :: flags - end function fftwl_plan_many_dft_r2c - - type(C_PTR) function fftwl_plan_dft_r2c(rank,n,in,out,flags) bind(C, name='fftwl_plan_dft_r2c') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_r2c - - type(C_PTR) function fftwl_plan_dft_r2c_1d(n,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_1d') - import - integer(C_INT), value :: n - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_r2c_1d - - type(C_PTR) function fftwl_plan_dft_r2c_2d(n0,n1,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_2d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_r2c_2d - - type(C_PTR) function fftwl_plan_dft_r2c_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_3d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - integer(C_INT), value :: n2 - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_r2c_3d - - type(C_PTR) function fftwl_plan_many_dft_c2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & - bind(C, name='fftwl_plan_many_dft_c2r') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - integer(C_INT), value :: howmany - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - integer(C_INT), dimension(*), intent(in) :: inembed - integer(C_INT), value :: istride - integer(C_INT), value :: idist - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), dimension(*), intent(in) :: onembed - integer(C_INT), value :: ostride - integer(C_INT), value :: odist - integer(C_INT), value :: flags - end function fftwl_plan_many_dft_c2r - - type(C_PTR) function fftwl_plan_dft_c2r(rank,n,in,out,flags) bind(C, name='fftwl_plan_dft_c2r') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_c2r - - type(C_PTR) function fftwl_plan_dft_c2r_1d(n,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_1d') - import - integer(C_INT), value :: n - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_c2r_1d - - type(C_PTR) function fftwl_plan_dft_c2r_2d(n0,n1,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_2d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_c2r_2d - - type(C_PTR) function fftwl_plan_dft_c2r_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_3d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - integer(C_INT), value :: n2 - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_dft_c2r_3d - - type(C_PTR) function fftwl_plan_guru_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & - bind(C, name='fftwl_plan_guru_dft_r2c') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru_dft_r2c - - type(C_PTR) function fftwl_plan_guru_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & - bind(C, name='fftwl_plan_guru_dft_c2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru_dft_c2r - - type(C_PTR) function fftwl_plan_guru_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & - bind(C, name='fftwl_plan_guru_split_dft_r2c') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - integer(C_INT), value :: flags - end function fftwl_plan_guru_split_dft_r2c - - type(C_PTR) function fftwl_plan_guru_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & - bind(C, name='fftwl_plan_guru_split_dft_c2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru_split_dft_c2r - - type(C_PTR) function fftwl_plan_guru64_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & - bind(C, name='fftwl_plan_guru64_dft_r2c') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru64_dft_r2c - - type(C_PTR) function fftwl_plan_guru64_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & - bind(C, name='fftwl_plan_guru64_dft_c2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru64_dft_c2r - - type(C_PTR) function fftwl_plan_guru64_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & - bind(C, name='fftwl_plan_guru64_split_dft_r2c') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - integer(C_INT), value :: flags - end function fftwl_plan_guru64_split_dft_r2c - - type(C_PTR) function fftwl_plan_guru64_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & - bind(C, name='fftwl_plan_guru64_split_dft_c2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), value :: flags - end function fftwl_plan_guru64_split_dft_c2r - - subroutine fftwl_execute_dft_r2c(p,in,out) bind(C, name='fftwl_execute_dft_r2c') - import - type(C_PTR), value :: p - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out - end subroutine fftwl_execute_dft_r2c - - subroutine fftwl_execute_dft_c2r(p,in,out) bind(C, name='fftwl_execute_dft_c2r') - import - type(C_PTR), value :: p - complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - end subroutine fftwl_execute_dft_c2r - - subroutine fftwl_execute_split_dft_r2c(p,in,ro,io) bind(C, name='fftwl_execute_split_dft_r2c') - import - type(C_PTR), value :: p - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro - real(C_LONG_DOUBLE), dimension(*), intent(out) :: io - end subroutine fftwl_execute_split_dft_r2c - - subroutine fftwl_execute_split_dft_c2r(p,ri,ii,out) bind(C, name='fftwl_execute_split_dft_c2r') - import - type(C_PTR), value :: p - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ri - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ii - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - end subroutine fftwl_execute_split_dft_c2r - - type(C_PTR) function fftwl_plan_many_r2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,kind,flags) & - bind(C, name='fftwl_plan_many_r2r') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - integer(C_INT), value :: howmany - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - integer(C_INT), dimension(*), intent(in) :: inembed - integer(C_INT), value :: istride - integer(C_INT), value :: idist - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_INT), dimension(*), intent(in) :: onembed - integer(C_INT), value :: ostride - integer(C_INT), value :: odist - integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind - integer(C_INT), value :: flags - end function fftwl_plan_many_r2r - - type(C_PTR) function fftwl_plan_r2r(rank,n,in,out,kind,flags) bind(C, name='fftwl_plan_r2r') - import - integer(C_INT), value :: rank - integer(C_INT), dimension(*), intent(in) :: n - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind - integer(C_INT), value :: flags - end function fftwl_plan_r2r - - type(C_PTR) function fftwl_plan_r2r_1d(n,in,out,kind,flags) bind(C, name='fftwl_plan_r2r_1d') - import - integer(C_INT), value :: n - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), value :: kind - integer(C_INT), value :: flags - end function fftwl_plan_r2r_1d - - type(C_PTR) function fftwl_plan_r2r_2d(n0,n1,in,out,kind0,kind1,flags) bind(C, name='fftwl_plan_r2r_2d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), value :: kind0 - integer(C_FFTW_R2R_KIND), value :: kind1 - integer(C_INT), value :: flags - end function fftwl_plan_r2r_2d - - type(C_PTR) function fftwl_plan_r2r_3d(n0,n1,n2,in,out,kind0,kind1,kind2,flags) bind(C, name='fftwl_plan_r2r_3d') - import - integer(C_INT), value :: n0 - integer(C_INT), value :: n1 - integer(C_INT), value :: n2 - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), value :: kind0 - integer(C_FFTW_R2R_KIND), value :: kind1 - integer(C_FFTW_R2R_KIND), value :: kind2 - integer(C_INT), value :: flags - end function fftwl_plan_r2r_3d - - type(C_PTR) function fftwl_plan_guru_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & - bind(C, name='fftwl_plan_guru_r2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind - integer(C_INT), value :: flags - end function fftwl_plan_guru_r2r - - type(C_PTR) function fftwl_plan_guru64_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & - bind(C, name='fftwl_plan_guru64_r2r') - import - integer(C_INT), value :: rank - type(fftwl_iodim64), dimension(*), intent(in) :: dims - integer(C_INT), value :: howmany_rank - type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims - real(C_LONG_DOUBLE), dimension(*), intent(out) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind - integer(C_INT), value :: flags - end function fftwl_plan_guru64_r2r - - subroutine fftwl_execute_r2r(p,in,out) bind(C, name='fftwl_execute_r2r') - import - type(C_PTR), value :: p - real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in - real(C_LONG_DOUBLE), dimension(*), intent(out) :: out - end subroutine fftwl_execute_r2r - - subroutine fftwl_destroy_plan(p) bind(C, name='fftwl_destroy_plan') - import - type(C_PTR), value :: p - end subroutine fftwl_destroy_plan - - subroutine fftwl_forget_wisdom() bind(C, name='fftwl_forget_wisdom') - import - end subroutine fftwl_forget_wisdom - - subroutine fftwl_cleanup() bind(C, name='fftwl_cleanup') - import - end subroutine fftwl_cleanup - - subroutine fftwl_set_timelimit(t) bind(C, name='fftwl_set_timelimit') - import - real(C_DOUBLE), value :: t - end subroutine fftwl_set_timelimit - - subroutine fftwl_plan_with_nthreads(nthreads) bind(C, name='fftwl_plan_with_nthreads') - import - integer(C_INT), value :: nthreads - end subroutine fftwl_plan_with_nthreads - - integer(C_INT) function fftwl_init_threads() bind(C, name='fftwl_init_threads') - import - end function fftwl_init_threads - - subroutine fftwl_cleanup_threads() bind(C, name='fftwl_cleanup_threads') - import - end subroutine fftwl_cleanup_threads - - integer(C_INT) function fftwl_export_wisdom_to_filename(filename) bind(C, name='fftwl_export_wisdom_to_filename') - import - character(C_CHAR), dimension(*), intent(in) :: filename - end function fftwl_export_wisdom_to_filename - - subroutine fftwl_export_wisdom_to_file(output_file) bind(C, name='fftwl_export_wisdom_to_file') - import - type(C_PTR), value :: output_file - end subroutine fftwl_export_wisdom_to_file - - type(C_PTR) function fftwl_export_wisdom_to_string() bind(C, name='fftwl_export_wisdom_to_string') - import - end function fftwl_export_wisdom_to_string - - subroutine fftwl_export_wisdom(write_char,data) bind(C, name='fftwl_export_wisdom') - import - type(C_FUNPTR), value :: write_char - type(C_PTR), value :: data - end subroutine fftwl_export_wisdom - - integer(C_INT) function fftwl_import_system_wisdom() bind(C, name='fftwl_import_system_wisdom') - import - end function fftwl_import_system_wisdom - - integer(C_INT) function fftwl_import_wisdom_from_filename(filename) bind(C, name='fftwl_import_wisdom_from_filename') - import - character(C_CHAR), dimension(*), intent(in) :: filename - end function fftwl_import_wisdom_from_filename - - integer(C_INT) function fftwl_import_wisdom_from_file(input_file) bind(C, name='fftwl_import_wisdom_from_file') - import - type(C_PTR), value :: input_file - end function fftwl_import_wisdom_from_file - - integer(C_INT) function fftwl_import_wisdom_from_string(input_string) bind(C, name='fftwl_import_wisdom_from_string') - import - character(C_CHAR), dimension(*), intent(in) :: input_string - end function fftwl_import_wisdom_from_string - - integer(C_INT) function fftwl_import_wisdom(read_char,data) bind(C, name='fftwl_import_wisdom') - import - type(C_FUNPTR), value :: read_char - type(C_PTR), value :: data - end function fftwl_import_wisdom - - subroutine fftwl_fprint_plan(p,output_file) bind(C, name='fftwl_fprint_plan') - import - type(C_PTR), value :: p - type(C_PTR), value :: output_file - end subroutine fftwl_fprint_plan - - subroutine fftwl_print_plan(p) bind(C, name='fftwl_print_plan') - import - type(C_PTR), value :: p - end subroutine fftwl_print_plan - - type(C_PTR) function fftwl_malloc(n) bind(C, name='fftwl_malloc') - import - integer(C_SIZE_T), value :: n - end function fftwl_malloc - - type(C_PTR) function fftwl_alloc_real(n) bind(C, name='fftwl_alloc_real') - import - integer(C_SIZE_T), value :: n - end function fftwl_alloc_real - - type(C_PTR) function fftwl_alloc_complex(n) bind(C, name='fftwl_alloc_complex') - import - integer(C_SIZE_T), value :: n - end function fftwl_alloc_complex - - subroutine fftwl_free(p) bind(C, name='fftwl_free') - import - type(C_PTR), value :: p - end subroutine fftwl_free - - subroutine fftwl_flops(p,add,mul,fmas) bind(C, name='fftwl_flops') - import - type(C_PTR), value :: p - real(C_DOUBLE), intent(out) :: add - real(C_DOUBLE), intent(out) :: mul - real(C_DOUBLE), intent(out) :: fmas - end subroutine fftwl_flops - - real(C_DOUBLE) function fftwl_estimate_cost(p) bind(C, name='fftwl_estimate_cost') - import - type(C_PTR), value :: p - end function fftwl_estimate_cost - - real(C_DOUBLE) function fftwl_cost(p) bind(C, name='fftwl_cost') - import - type(C_PTR), value :: p - end function fftwl_cost - - end interface