GNU Octave  4.2.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lo-fftpack-proto.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2017 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_fftpack_proto_h)
24 #define octave_lo_fftpack_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 
30 extern "C"
31 {
32  // Note that the original complex fft routines were not written for
33  // float or double complex arguments. They have been modified by
34  // adding an implicit float or double precision (a-h,o-z) statement
35  // at the beginning of each subroutine.
36 
37  // FFTB
38 
39  F77_RET_T
40  F77_FUNC (cfftb, CFFTB) (const F77_INT&, F77_CMPLX*, F77_CMPLX*);
41 
42  F77_RET_T
43  F77_FUNC (zfftb, ZFFTB) (const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*);
44 
45  // FFTF
46 
47  F77_RET_T
48  F77_FUNC (cfftf, CFFTF) (const F77_INT&, F77_CMPLX*, F77_CMPLX*);
49 
50  F77_RET_T
51  F77_FUNC (zfftf, ZFFTF) (const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*);
52 
53  // FFTI
54 
55  F77_RET_T
56  F77_FUNC (cffti, CFFTI) (const F77_INT&, F77_CMPLX*);
57 
58  F77_RET_T
59  F77_FUNC (zffti, ZFFTI) (const F77_INT&, F77_DBLE_CMPLX*);
60 }
61 
62 #endif
subroutine zffti(n, wsave)
Definition: zffti.f:1
subroutine cfftb(n, c, wsave)
Definition: cfftb.f:1
F77_RET_T F77_FUNC(cfftb, CFFTB)(const F77_INT &
subroutine zfftb(n, c, wsave)
Definition: zfftb.f:1
subroutine cffti(n, wsave)
Definition: cffti.f:1
#define F77_CMPLX
Definition: f77-fcn.h:334
subroutine cfftf(n, c, wsave)
Definition: cfftf.f:1
#define F77_INT
Definition: f77-fcn.h:335
#define F77_DBLE_CMPLX
Definition: f77-fcn.h:333
subroutine zfftf(n, c, wsave)
Definition: zfftf.f:1