use v6;

unit module Math::FFT::Libfftw3::Raw:ver<0.3.5>:auth<zef:FRITH>;

use NativeCall;
use Math::FFT::Libfftw3::Constants;

constant LIB  = ('fftw3', v3);
constant TLIB = ('fftw3_threads', v3);
constant OLIB = ('fftw3_omp', v3);

class fftw_plan    is repr('CPointer') is export { * } # libfftw3 private struct
class fftw_iodim   is repr('CPointer') is export { * } # libfftw3 private struct
class fftw_iodim64 is repr('CPointer') is export { * } # libfftw3 private struct

sub fftw_malloc(size_t $size --> Pointer) is native(LIB) is export { * }
sub fftw_free(Pointer $pointer) is native(LIB) is export { * }
sub fftw_alloc_real(size_t $size --> Pointer[num64]) is native(LIB) is export { * }
sub fftw_alloc_complex(size_t $size --> Pointer[num64]) is native(LIB) is export { * }

sub fftw_plan_dft(int32 $rank, CArray[int32] $n, CArray[num64] $in, CArray[num64] $out, int32 $sign, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_1d(int32 $n, CArray[num64] $in, CArray[num64] $out, int32 $sign, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_dft_2d(int32 $n0, int32 $n1, CArray[num64] $in, CArray[num64] $out, int32 $sign, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_3d(int32 $n0, int32 $n1, int32 $n2, CArray[num64] $in, CArray[num64] $out, int32 $sign,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_many_dft(int32 $rank, CArray[int32] $n, int32 $howmany, CArray[num64] $in, CArray[int32] $inembed,
    int32 $istride, int32 $idist, CArray[num64] $out, CArray[int32] $onembed, int32 $ostride, int32 $odist,
    int32 $sign, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_dft(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims, CArray[num64] $in,
    CArray[num64] $out, int32 $sign, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_split_dft(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $ro, CArray[num64] $io, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_guru64_dft(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, int32 $sign, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru64_split_dft(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $ro, CArray[num64] $io, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }

sub fftw_plan_many_dft_r2c(int32 $rank, CArray[int32] $n, int32 $howmany, CArray[num64] $in, CArray[int32] $inembed,
    int32 $istride, int32 $idist, CArray[num64] $out, CArray[int32] $onembed, int32 $ostride, int32 $odist,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_r2c(int32 $rank, CArray[int32] $n, CArray[num64] $in, CArray[num64] $out, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_r2c_1d(int32 $n, CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_dft_r2c_2d(int32 $n0, int32 $n1, CArray[num64] $in, CArray[num64] $out, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_r2c_3d(int32 $n0, int32 $n1, int32 $n2, CArray[num64] $in, CArray[num64] $out,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_dft_r2c(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_split_dft_r2c(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $in, CArray[num64] $ro, CArray[num64] $io, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_guru64_dft_r2c(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru64_split_dft_r2c(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $in, CArray[num64] $ro, CArray[num64] $io, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }

sub fftw_plan_many_dft_c2r(int32 $rank, CArray[int32] $n, int32 $howmany, CArray[num64] $in, CArray[int32] $inembed,
    int32 $istride, int32 $idist, CArray[num64] $out, CArray[int32] $onembed, int32 $ostride, int32 $odist,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_c2r(int32 $rank, CArray[int32] $n, CArray[num64] $in, CArray[num64] $out, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_c2r_1d(int32 $n, CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_dft_c2r_2d(int32 $n0, int32 $n1, CArray[num64] $in, CArray[num64] $out, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_dft_c2r_3d(int32 $n0, int32 $n1, int32 $n2, CArray[num64] $in, CArray[num64] $out,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_dft_c2r(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru_split_dft_c2r(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $out, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_guru64_dft_c2r(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_guru64_split_dft_c2r(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $out, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }

sub fftw_plan_many_r2r(int32 $rank, CArray[int32] $n, int32 $howmany, CArray[num64] $in, CArray[int32] $inembed,
    int32 $istride, int32 $idist, CArray[num64] $out, CArray[int32] $onembed, int32 $ostride, int32 $odist,
    CArray[int32] $kind, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_r2r(int32 $rank, CArray[int32] $n, CArray[num64] $in, CArray[num64] $out, CArray[int32] $kind,
    uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_r2r_1d(int32 $n, CArray[num64] $in, CArray[num64] $out, int32 $kind, uint32 $flags
    --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_r2r_2d(int32 $n0, int32 $n1, CArray[num64] $in, CArray[num64] $out, int32 $kind0,
    int32 $kind1, uint32 $flags --> fftw_plan) is native(LIB) is export { * }
sub fftw_plan_r2r_3d(int32 $n0, int32 $n1, int32 $n2, CArray[num64] $in, CArray[num64] $out,
    int32 $kind0, int32 $kind1, int32 $kind2, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_guru_r2r(int32 $rank, fftw_iodim $dims, int32 $howmany_rank, fftw_iodim $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, CArray[int32] $kind, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }
sub fftw_plan_guru64_r2r(int32 $rank, fftw_iodim64 $dims, int32 $howmany_rank, fftw_iodim64 $howmany_dims,
    CArray[num64] $in, CArray[num64] $out, CArray[int32] $kind, uint32 $flags --> fftw_plan)
    is native(LIB) is export { * }

sub fftw_execute(fftw_plan $p) is native(LIB) is export { * }
sub fftw_execute_dft(fftw_plan $p, CArray[num64] $in, CArray[num64] $out) is native(LIB) is export { * }
sub fftw_execute_split_dft(fftw_plan $p, CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $ro, CArray[num64] $io)
    is native(LIB) is export { * }
sub fftw_execute_dft_r2c(fftw_plan $p, CArray[num64] $in, CArray[num64] $out) is native(LIB) is export { * }
sub fftw_execute_dft_c2r(fftw_plan $p, CArray[num64] $in, CArray[num64] $out) is native(LIB) is export { * }
sub fftw_execute_split_dft_r2c(fftw_plan $p, CArray[num64] $in, CArray[num64] $ro, CArray[num64] $io)
    is native(LIB) is export { * }
sub fftw_execute_split_dft_c2r(fftw_plan $p, CArray[num64] $ri, CArray[num64] $ii, CArray[num64] $out)
    is native(LIB) is export { * }
sub fftw_execute_r2r(fftw_plan $p, CArray[num64] $in, CArray[num64] $out) is native(LIB) is export { * }

sub fftw_destroy_plan(fftw_plan $p) is native(LIB) is export { * }
sub fftw_forget_wisdom() is native(LIB) is export { * }
sub fftw_cleanup() is native(LIB) is export { * }
sub fftw_set_timelimit(num64 $t) is native(LIB) is export { * }

sub fftw_tinit_threads(--> int32) is native(TLIB) is symbol('fftw_init_threads') is export { * }
sub fftw_tplan_with_nthreads(int32 $nthreads) is symbol('fftw_plan_with_nthreads') is native(TLIB) is export { * }
sub fftw_tmake_planner_thread_safe() is native(TLIB) is symbol('fftw_make_planner_thread_safe') is export { * }
sub fftw_tcleanup_threads() is native(TLIB) is symbol('fftw_cleanup_threads') is export { * }

sub fftw_oinit_threads(--> int32) is symbol('fftw_init_threads') is native(OLIB) is export { * }
sub fftw_oplan_with_nthreads(int32 $nthreads) is symbol('fftw_plan_with_nthreads') is native(OLIB) is export { * }
sub fftw_omake_planner_thread_safe() is symbol('fftw_make_planner_thread_safe') is native(OLIB) is export { * }
sub fftw_ocleanup_threads() is symbol('fftw_cleanup_threads') is native(OLIB) is export { * }

sub fftw_export_wisdom_to_filename(Str $filename --> int32) is native(LIB) is export { * }
sub fftw_export_wisdom_to_string(--> Str) is native(LIB) is export { * }
sub fftw_import_system_wisdom(--> int32) is native(LIB) is export { * }
sub fftw_import_wisdom_from_filename(Str $filename --> int32) is native(LIB) is export { * }
sub fftw_import_wisdom_from_string(Str $input_string --> int32) is native(LIB) is export { * }
sub fftw_print_plan(fftw_plan $p) is native(LIB) is export { * }
sub fftw_sprint_plan(fftw_plan $p --> Str) is native(LIB) is export { * }
sub fftw_flops(fftw_plan $p, num64 $add is rw, num64 $mul is rw, num64 $fmas is rw) is native(LIB) is export { * }
sub fftw_estimate_cost(fftw_plan $p --> num64) is native(LIB) is export { * }
sub fftw_cost(fftw_plan $p --> num64) is native(LIB) is export { * }
sub fftw_alignment_of(num64 $p is rw --> int32) is native(LIB) is export { * }




head

Math::FFT::Libfftw3::Raw - An interface to libfftw3


code

=begin code :lang<raku>

use v6;

=end code


Math::FFT::Libfftw3 provides an interface to libfftw3 and allows you to perform Fast Fourier Transforms.


For more details on libfftw see L<http://www.fftw.org/>.
The manual is available here L<http://www.fftw.org/fftw3.pdf>


This module requires the libfftw3 library to be installed. Please follow the instructions below based on your platform:


=begin code
sudo apt-get install libfftw3-double3
=end code


The module looks for a library called libfftw3.so.


To install it using zef (a module management tool):


=begin code
$ zef install Math::FFT::Libfftw3
=end code


=begin code
$ prove -e "raku -Ilib"
=end code


Math::FFT::Libfftw3 relies on a C library which might not be present in one's
installation, so it's not a substitute for a pure Raku module.
If you need a pure Raku module, Math::FourierTransform works just fine.


root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Raw

NAME

SYNOPSIS

DESCRIPTION

Documentation

Prerequisites

Debian Linux

Installation

Testing

Note

Author

License

Math::FFT::Libfftw3 v0.3.5

Authors

License

Dependencies

Test Dependencies

Provides

Documentation