updated fftw to 3.3.3 (from 3.3.2)
This commit is contained in:
Martin Diehl
parent
2ba986be2a
commit
d751283b4a
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
593
lib/fftw3.f03
593
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
|
||||
|
|
|
|||
Loading…
Reference in New Issue