Chris@82: ! Generated automatically. DO NOT EDIT! Chris@82: Chris@82: Chris@82: type, bind(C) :: fftwl_iodim Chris@82: integer(C_INT) n, is, os Chris@82: end type fftwl_iodim Chris@82: type, bind(C) :: fftwl_iodim64 Chris@82: integer(C_INTPTR_T) n, is, os Chris@82: end type fftwl_iodim64 Chris@82: Chris@82: interface Chris@82: type(C_PTR) function fftwl_plan_dft(rank,n,in,out,sign,flags) bind(C, name='fftwl_plan_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_1d(n,in,out,sign,flags) bind(C, name='fftwl_plan_dft_1d') Chris@82: import Chris@82: integer(C_INT), value :: n Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_1d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_2d(n0,n1,in,out,sign,flags) bind(C, name='fftwl_plan_dft_2d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_2d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_3d(n0,n1,n2,in,out,sign,flags) bind(C, name='fftwl_plan_dft_3d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: integer(C_INT), value :: n2 Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_3d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags) & Chris@82: bind(C, name='fftwl_plan_many_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: integer(C_INT), value :: howmany Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: integer(C_INT), dimension(*), intent(in) :: inembed Chris@82: integer(C_INT), value :: istride Chris@82: integer(C_INT), value :: idist Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), dimension(*), intent(in) :: onembed Chris@82: integer(C_INT), value :: ostride Chris@82: integer(C_INT), value :: odist Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_many_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & Chris@82: bind(C, name='fftwl_plan_guru_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & Chris@82: bind(C, name='fftwl_plan_guru_split_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_split_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_dft(rank,dims,howmany_rank,howmany_dims,in,out,sign,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: sign Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_split_dft(rank,dims,howmany_rank,howmany_dims,ri,ii,ro,io,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_split_dft') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_split_dft Chris@82: Chris@82: subroutine fftwl_execute_dft(p,in,out) bind(C, name='fftwl_execute_dft') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: end subroutine fftwl_execute_dft Chris@82: Chris@82: subroutine fftwl_execute_split_dft(p,ri,ii,ro,io) bind(C, name='fftwl_execute_split_dft') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: end subroutine fftwl_execute_split_dft Chris@82: Chris@82: type(C_PTR) function fftwl_plan_many_dft_r2c(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & Chris@82: bind(C, name='fftwl_plan_many_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: integer(C_INT), value :: howmany Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: integer(C_INT), dimension(*), intent(in) :: inembed Chris@82: integer(C_INT), value :: istride Chris@82: integer(C_INT), value :: idist Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), dimension(*), intent(in) :: onembed Chris@82: integer(C_INT), value :: ostride Chris@82: integer(C_INT), value :: odist Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_many_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_r2c(rank,n,in,out,flags) bind(C, name='fftwl_plan_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_r2c_1d(n,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_1d') Chris@82: import Chris@82: integer(C_INT), value :: n Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_r2c_1d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_r2c_2d(n0,n1,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_2d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_r2c_2d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_r2c_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwl_plan_dft_r2c_3d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: integer(C_INT), value :: n2 Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_r2c_3d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_many_dft_c2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,flags) & Chris@82: bind(C, name='fftwl_plan_many_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: integer(C_INT), value :: howmany Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: integer(C_INT), dimension(*), intent(in) :: inembed Chris@82: integer(C_INT), value :: istride Chris@82: integer(C_INT), value :: idist Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), dimension(*), intent(in) :: onembed Chris@82: integer(C_INT), value :: ostride Chris@82: integer(C_INT), value :: odist Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_many_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_c2r(rank,n,in,out,flags) bind(C, name='fftwl_plan_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_c2r_1d(n,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_1d') Chris@82: import Chris@82: integer(C_INT), value :: n Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_c2r_1d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_c2r_2d(n0,n1,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_2d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_c2r_2d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_dft_c2r_3d(n0,n1,n2,in,out,flags) bind(C, name='fftwl_plan_dft_c2r_3d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: integer(C_INT), value :: n2 Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_dft_c2r_3d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & Chris@82: bind(C, name='fftwl_plan_guru_split_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_split_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru_split_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_split_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_dft_c2r(rank,dims,howmany_rank,howmany_dims,in,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_split_dft_r2c(rank,dims,howmany_rank,howmany_dims,in,ro,io,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_split_dft_r2c') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_split_dft_r2c Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_split_dft_c2r(rank,dims,howmany_rank,howmany_dims,ri,ii,out,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_split_dft_c2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_split_dft_c2r Chris@82: Chris@82: subroutine fftwl_execute_dft_r2c(p,in,out) bind(C, name='fftwl_execute_dft_r2c') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out Chris@82: end subroutine fftwl_execute_dft_r2c Chris@82: Chris@82: subroutine fftwl_execute_dft_c2r(p,in,out) bind(C, name='fftwl_execute_dft_c2r') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: end subroutine fftwl_execute_dft_c2r Chris@82: Chris@82: subroutine fftwl_execute_split_dft_r2c(p,in,ro,io) bind(C, name='fftwl_execute_split_dft_r2c') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: ro Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: io Chris@82: end subroutine fftwl_execute_split_dft_r2c Chris@82: Chris@82: subroutine fftwl_execute_split_dft_c2r(p,ri,ii,out) bind(C, name='fftwl_execute_split_dft_c2r') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ri Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: ii Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: end subroutine fftwl_execute_split_dft_c2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_many_r2r(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,kind,flags) & Chris@82: bind(C, name='fftwl_plan_many_r2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: integer(C_INT), value :: howmany Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: integer(C_INT), dimension(*), intent(in) :: inembed Chris@82: integer(C_INT), value :: istride Chris@82: integer(C_INT), value :: idist Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_INT), dimension(*), intent(in) :: onembed Chris@82: integer(C_INT), value :: ostride Chris@82: integer(C_INT), value :: odist Chris@82: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_many_r2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_r2r(rank,n,in,out,kind,flags) bind(C, name='fftwl_plan_r2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: integer(C_INT), dimension(*), intent(in) :: n Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_r2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_r2r_1d(n,in,out,kind,flags) bind(C, name='fftwl_plan_r2r_1d') Chris@82: import Chris@82: integer(C_INT), value :: n Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), value :: kind Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_r2r_1d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_r2r_2d(n0,n1,in,out,kind0,kind1,flags) bind(C, name='fftwl_plan_r2r_2d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), value :: kind0 Chris@82: integer(C_FFTW_R2R_KIND), value :: kind1 Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_r2r_2d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_r2r_3d(n0,n1,n2,in,out,kind0,kind1,kind2,flags) bind(C, name='fftwl_plan_r2r_3d') Chris@82: import Chris@82: integer(C_INT), value :: n0 Chris@82: integer(C_INT), value :: n1 Chris@82: integer(C_INT), value :: n2 Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), value :: kind0 Chris@82: integer(C_FFTW_R2R_KIND), value :: kind1 Chris@82: integer(C_FFTW_R2R_KIND), value :: kind2 Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_r2r_3d Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & Chris@82: bind(C, name='fftwl_plan_guru_r2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru_r2r Chris@82: Chris@82: type(C_PTR) function fftwl_plan_guru64_r2r(rank,dims,howmany_rank,howmany_dims,in,out,kind,flags) & Chris@82: bind(C, name='fftwl_plan_guru64_r2r') Chris@82: import Chris@82: integer(C_INT), value :: rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: dims Chris@82: integer(C_INT), value :: howmany_rank Chris@82: type(fftwl_iodim64), dimension(*), intent(in) :: howmany_dims Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind Chris@82: integer(C_INT), value :: flags Chris@82: end function fftwl_plan_guru64_r2r Chris@82: Chris@82: subroutine fftwl_execute_r2r(p,in,out) bind(C, name='fftwl_execute_r2r') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: out Chris@82: end subroutine fftwl_execute_r2r Chris@82: Chris@82: subroutine fftwl_destroy_plan(p) bind(C, name='fftwl_destroy_plan') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end subroutine fftwl_destroy_plan Chris@82: Chris@82: subroutine fftwl_forget_wisdom() bind(C, name='fftwl_forget_wisdom') Chris@82: import Chris@82: end subroutine fftwl_forget_wisdom Chris@82: Chris@82: subroutine fftwl_cleanup() bind(C, name='fftwl_cleanup') Chris@82: import Chris@82: end subroutine fftwl_cleanup Chris@82: Chris@82: subroutine fftwl_set_timelimit(t) bind(C, name='fftwl_set_timelimit') Chris@82: import Chris@82: real(C_DOUBLE), value :: t Chris@82: end subroutine fftwl_set_timelimit Chris@82: Chris@82: subroutine fftwl_plan_with_nthreads(nthreads) bind(C, name='fftwl_plan_with_nthreads') Chris@82: import Chris@82: integer(C_INT), value :: nthreads Chris@82: end subroutine fftwl_plan_with_nthreads Chris@82: Chris@82: integer(C_INT) function fftwl_init_threads() bind(C, name='fftwl_init_threads') Chris@82: import Chris@82: end function fftwl_init_threads Chris@82: Chris@82: subroutine fftwl_cleanup_threads() bind(C, name='fftwl_cleanup_threads') Chris@82: import Chris@82: end subroutine fftwl_cleanup_threads Chris@82: Chris@82: subroutine fftwl_make_planner_thread_safe() bind(C, name='fftwl_make_planner_thread_safe') Chris@82: import Chris@82: end subroutine fftwl_make_planner_thread_safe Chris@82: Chris@82: integer(C_INT) function fftwl_export_wisdom_to_filename(filename) bind(C, name='fftwl_export_wisdom_to_filename') Chris@82: import Chris@82: character(C_CHAR), dimension(*), intent(in) :: filename Chris@82: end function fftwl_export_wisdom_to_filename Chris@82: Chris@82: subroutine fftwl_export_wisdom_to_file(output_file) bind(C, name='fftwl_export_wisdom_to_file') Chris@82: import Chris@82: type(C_PTR), value :: output_file Chris@82: end subroutine fftwl_export_wisdom_to_file Chris@82: Chris@82: type(C_PTR) function fftwl_export_wisdom_to_string() bind(C, name='fftwl_export_wisdom_to_string') Chris@82: import Chris@82: end function fftwl_export_wisdom_to_string Chris@82: Chris@82: subroutine fftwl_export_wisdom(write_char,data) bind(C, name='fftwl_export_wisdom') Chris@82: import Chris@82: type(C_FUNPTR), value :: write_char Chris@82: type(C_PTR), value :: data Chris@82: end subroutine fftwl_export_wisdom Chris@82: Chris@82: integer(C_INT) function fftwl_import_system_wisdom() bind(C, name='fftwl_import_system_wisdom') Chris@82: import Chris@82: end function fftwl_import_system_wisdom Chris@82: Chris@82: integer(C_INT) function fftwl_import_wisdom_from_filename(filename) bind(C, name='fftwl_import_wisdom_from_filename') Chris@82: import Chris@82: character(C_CHAR), dimension(*), intent(in) :: filename Chris@82: end function fftwl_import_wisdom_from_filename Chris@82: Chris@82: integer(C_INT) function fftwl_import_wisdom_from_file(input_file) bind(C, name='fftwl_import_wisdom_from_file') Chris@82: import Chris@82: type(C_PTR), value :: input_file Chris@82: end function fftwl_import_wisdom_from_file Chris@82: Chris@82: integer(C_INT) function fftwl_import_wisdom_from_string(input_string) bind(C, name='fftwl_import_wisdom_from_string') Chris@82: import Chris@82: character(C_CHAR), dimension(*), intent(in) :: input_string Chris@82: end function fftwl_import_wisdom_from_string Chris@82: Chris@82: integer(C_INT) function fftwl_import_wisdom(read_char,data) bind(C, name='fftwl_import_wisdom') Chris@82: import Chris@82: type(C_FUNPTR), value :: read_char Chris@82: type(C_PTR), value :: data Chris@82: end function fftwl_import_wisdom Chris@82: Chris@82: subroutine fftwl_fprint_plan(p,output_file) bind(C, name='fftwl_fprint_plan') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: type(C_PTR), value :: output_file Chris@82: end subroutine fftwl_fprint_plan Chris@82: Chris@82: subroutine fftwl_print_plan(p) bind(C, name='fftwl_print_plan') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end subroutine fftwl_print_plan Chris@82: Chris@82: type(C_PTR) function fftwl_sprint_plan(p) bind(C, name='fftwl_sprint_plan') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end function fftwl_sprint_plan Chris@82: Chris@82: type(C_PTR) function fftwl_malloc(n) bind(C, name='fftwl_malloc') Chris@82: import Chris@82: integer(C_SIZE_T), value :: n Chris@82: end function fftwl_malloc Chris@82: Chris@82: type(C_PTR) function fftwl_alloc_real(n) bind(C, name='fftwl_alloc_real') Chris@82: import Chris@82: integer(C_SIZE_T), value :: n Chris@82: end function fftwl_alloc_real Chris@82: Chris@82: type(C_PTR) function fftwl_alloc_complex(n) bind(C, name='fftwl_alloc_complex') Chris@82: import Chris@82: integer(C_SIZE_T), value :: n Chris@82: end function fftwl_alloc_complex Chris@82: Chris@82: subroutine fftwl_free(p) bind(C, name='fftwl_free') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end subroutine fftwl_free Chris@82: Chris@82: subroutine fftwl_flops(p,add,mul,fmas) bind(C, name='fftwl_flops') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: real(C_DOUBLE), intent(out) :: add Chris@82: real(C_DOUBLE), intent(out) :: mul Chris@82: real(C_DOUBLE), intent(out) :: fmas Chris@82: end subroutine fftwl_flops Chris@82: Chris@82: real(C_DOUBLE) function fftwl_estimate_cost(p) bind(C, name='fftwl_estimate_cost') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end function fftwl_estimate_cost Chris@82: Chris@82: real(C_DOUBLE) function fftwl_cost(p) bind(C, name='fftwl_cost') Chris@82: import Chris@82: type(C_PTR), value :: p Chris@82: end function fftwl_cost Chris@82: Chris@82: integer(C_INT) function fftwl_alignment_of(p) bind(C, name='fftwl_alignment_of') Chris@82: import Chris@82: real(C_LONG_DOUBLE), dimension(*), intent(out) :: p Chris@82: end function fftwl_alignment_of Chris@82: Chris@82: end interface