615 lines
27 KiB
Fortran
615 lines
27 KiB
Fortran
|
! Generated automatically. DO NOT EDIT!
|
||
|
|
|
||
|
|
|
||
|
|
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_planner_nthreads() bind(C, name='fftwl_planner_nthreads')
|
||
|
|
import
|
||
|
|
end function fftwl_planner_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
|
||
|
|
|
||
|
|
! Unable to generate Fortran interface for fftwl_threads_set_callback
|
||
|
|
subroutine fftwl_make_planner_thread_safe() bind(C, name='fftwl_make_planner_thread_safe')
|
||
|
|
import
|
||
|
|
end subroutine fftwl_make_planner_thread_safe
|
||
|
|
|
||
|
|
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_sprint_plan(p) bind(C, name='fftwl_sprint_plan')
|
||
|
|
import
|
||
|
|
type(C_PTR), value :: p
|
||
|
|
end function fftwl_sprint_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
|
||
|
|
|
||
|
|
integer(C_INT) function fftwl_alignment_of(p) bind(C, name='fftwl_alignment_of')
|
||
|
|
import
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: p
|
||
|
|
end function fftwl_alignment_of
|
||
|
|
|
||
|
|
end interface
|