Mercurial > hg > octave-nkf

comparison liboctave/fCMatrix.cc @ 9523:0ce82753dd72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more configure changes for libraries
author John W. Eaton <jwe@octave.org>
date Thu, 13 Aug 2009 18:20:31 -0400
parents c6edba80dfae
children f3ebc728ffd7
comparison
equal deleted inserted replaced
9522:e79470be3ecb 9523:0ce82753dd72
36 #ifdef HAVE_SYS_TYPES_H 36 #ifdef HAVE_SYS_TYPES_H
37 #include <sys/types.h> 37 #include <sys/types.h>
38 #endif 38 #endif
39 39
40 #include "Array-util.h" 40 #include "Array-util.h"
41 #include "DET.h"
42 #include "f77-fcn.h"
41 #include "fCMatrix.h" 43 #include "fCMatrix.h"
42 #include "DET.h" 44 #include "fCmplxCHOL.h"
43 #include "fCmplxSCHUR.h" 45 #include "fCmplxSCHUR.h"
44 #include "fCmplxSVD.h" 46 #include "fCmplxSVD.h"
45 #include "fCmplxCHOL.h"
46 #include "f77-fcn.h"
47 #include "functor.h" 47 #include "functor.h"
48 #include "lo-error.h" 48 #include "lo-error.h"
49 #include "oct-locbuf.h"
50 #include "lo-ieee.h" 49 #include "lo-ieee.h"
51 #include "lo-mappers.h" 50 #include "lo-mappers.h"
52 #include "lo-utils.h" 51 #include "lo-utils.h"
53 #include "mx-base.h" 52 #include "mx-base.h"
54 #include "mx-fcm-fdm.h" 53 #include "mx-fcm-fdm.h"
54 #include "mx-fcm-fs.h"
55 #include "mx-fdm-fcm.h" 55 #include "mx-fdm-fcm.h"
56 #include "mx-fcm-fs.h"
57 #include "mx-inlines.cc" 56 #include "mx-inlines.cc"
58 #include "mx-op-defs.h" 57 #include "mx-op-defs.h"
59 #include "oct-cmplx.h" 58 #include "oct-cmplx.h"
59 #include "oct-fftw.h"
60 #include "oct-locbuf.h"
60 #include "oct-norm.h" 61 #include "oct-norm.h"
61
62 #if defined (HAVE_FFTW3)
63 #include "oct-fftw.h"
64 #endif
65 62
66 // Fortran functions we call. 63 // Fortran functions we call.
67 64
68 extern "C" 65 extern "C"
69 { 66 {
207 const octave_idx_type&, FloatComplex*, 204 const octave_idx_type&, FloatComplex*,
208 const octave_idx_type&, octave_idx_type& 205 const octave_idx_type&, octave_idx_type&
209 F77_CHAR_ARG_LEN_DECL 206 F77_CHAR_ARG_LEN_DECL
210 F77_CHAR_ARG_LEN_DECL 207 F77_CHAR_ARG_LEN_DECL
211 F77_CHAR_ARG_LEN_DECL); 208 F77_CHAR_ARG_LEN_DECL);
212
213 F77_RET_T
214 F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*);
215
216 F77_RET_T
217 F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*);
218
219 F77_RET_T
220 F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*);
221 209
222 F77_RET_T 210 F77_RET_T
223 F77_FUNC (clartg, CLARTG) (const FloatComplex&, const FloatComplex&, 211 F77_FUNC (clartg, CLARTG) (const FloatComplex&, const FloatComplex&,
224 float&, FloatComplex&, FloatComplex&); 212 float&, FloatComplex&, FloatComplex&);
225 213
1209 } 1197 }
1210 1198
1211 return retval; 1199 return retval;
1212 } 1200 }
1213 1201
1214 #if defined (HAVE_FFTW3) 1202 #if defined (HAVE_FFTW)
1215 1203
1216 FloatComplexMatrix 1204 FloatComplexMatrix
1217 FloatComplexMatrix::fourier (void) const 1205 FloatComplexMatrix::fourier (void) const
1218 { 1206 {
1219 size_t nr = rows (); 1207 size_t nr = rows ();
1298 1286
1299 return retval; 1287 return retval;
1300 } 1288 }
1301 1289
1302 #else 1290 #else
1291
1292 extern "C"
1293 {
1294 F77_RET_T
1295 F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*);
1296
1297 F77_RET_T
1298 F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*);
1299
1300 F77_RET_T
1301 F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*);
1302 }
1303 1303
1304 FloatComplexMatrix 1304 FloatComplexMatrix
1305 FloatComplexMatrix::fourier (void) const 1305 FloatComplexMatrix::fourier (void) const
1306 { 1306 {
1307 FloatComplexMatrix retval; 1307 FloatComplexMatrix retval;