PLaSK library
Loading...
Searching...
No Matches
fftpacx.h
Go to the documentation of this file.
1#include <complex>
2
3extern "C" {
4
5int cfft1i_(const int& n, double* wsave, const int& lensav, int& ier);
6int cfft1f_(const int& n, const int& inc, std::complex<double>* c, const int& lenc, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
7int cfft1b_(const int& n, const int& inc, std::complex<double>* c, const int& lenc, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
8
9int cfft2i_(const int& l, const int& m, double* wsave, const int& lensav, int& ier);
10int cfft2f_(const int& ldim, const int& l, const int& m, std::complex<double>* c, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
11int cfft2b_(const int& ldim, const int& l, const int& m, std::complex<double>* c, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
12
13int cfftmi_(const int& n, double* wsave, const int& lensav, int& ier);
14int cfftmf_(const int& lot, const int& jump, const int& n, const int& inc, std::complex<double>* c, const int& lenc, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
15int cfftmb_(const int& lot, const int& jump, const int& n, const int& inc, std::complex<double>* c, const int& lenc, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
16
17
18int rfft1i_(const int& n, double* wsave, const int& lensav, int& ier);
19int rfft1f_(const int& n, const int& inc, double* r, const int& lenr, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
20int rfft1b_(const int& n, const int& inc, double* r, const int& lenr, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
21
22int rfft2i_(const int& l, const int& m, double* wsave, const int& lensav, int& ier);
23int rfft2f_(const int& ldim, const int& l, const int& m, double* r, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
24int rfft2b_(const int& ldim, const int& l, const int& m, double* r, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
25
26int rfftmi_(const int& n, double* wsave, const int& lensav, int& ier);
27int rfftmf_(const int& lot, const int& jump, const int& n, const int& inc, double* r, const int& lenr, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
28int rfftmb_(const int& lot, const int& jump, const int& n, const int& inc, double* r, const int& lenr, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
29
30
31int cost1i_(const int& n, double* wsave, const int& lensav, int& ier);
32int cost1f_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
33int cost1b_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
34
35int costmi_(const int& n, double* wsave, const int& lensav, int& ier);
36int costmf_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
37int costmb_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
38
39
40int sint1i_(const int& n, double* wsave, const int& lensav, int& ier);
41int sint1f_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
42int sint1b_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
43
44int sintmi_(const int& n, double* wsave, const int& lensav, int& ier);
45int sintmf_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
46int sintmb_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
47
48
49int cosq1i_(const int& n, double* wsave, const int& lensav, int& ier);
50int cosq1f_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
51int cosq1b_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
52
53int cosqmi_(const int& n, double* wsave, const int& lensav, int& ier);
54int cosqmf_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
55int cosqmb_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
56
57
58int sinq1i_(const int& n, double* wsave, const int& lensav, int& ier);
59int sinq1f_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
60int sinq1b_(const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
61
62int sinqmi_(const int& n, double* wsave, const int& lensav, int& ier);
63int sinqmf_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
64int sinqmb_(const int& lot, const int& jump, const int& n, const int& inc, double* x, const int& lenx, double* wsave, const int& lensav, double* work, const int& lenwrk, int& ier);
65
66} // extern "C"