Mercurial > hg > octave-lyh
diff liboctave/fMatrix.cc @ 9523:0ce82753dd72
more configure changes for libraries
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 13 Aug 2009 18:20:31 -0400 |
parents | c6edba80dfae |
children | 6a9fd5f653c9 |
line wrap: on
line diff
--- a/liboctave/fMatrix.cc +++ b/liboctave/fMatrix.cc @@ -33,32 +33,29 @@ #include <vector> #include "Array-util.h" +#include "DET.h" #include "byte-swap.h" +#include "f77-fcn.h" #include "fMatrix.h" -#include "DET.h" +#include "floatCHOL.h" #include "floatSCHUR.h" #include "floatSVD.h" -#include "floatCHOL.h" -#include "f77-fcn.h" #include "functor.h" #include "lo-error.h" -#include "oct-locbuf.h" #include "lo-ieee.h" #include "lo-mappers.h" #include "lo-utils.h" #include "mx-base.h" +#include "mx-fdm-fm.h" #include "mx-fm-fdm.h" -#include "mx-fdm-fm.h" #include "mx-inlines.cc" #include "mx-op-defs.h" #include "oct-cmplx.h" +#include "oct-fftw.h" +#include "oct-locbuf.h" #include "oct-norm.h" #include "quit.h" -#if defined (HAVE_FFTW3) -#include "oct-fftw.h" -#endif - // Fortran functions we call. extern "C" @@ -191,20 +188,6 @@ F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); - // Note that the original complex fft routines were not written for - // float complex arguments. They have been modified by adding an - // implicit float precision (a-h,o-z) statement at the beginning of - // each subroutine. - - F77_RET_T - F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*); - - F77_RET_T - F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*); - - F77_RET_T - F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*); - F77_RET_T F77_FUNC (slartg, SLARTG) (const float&, const float&, float&, float&, float&); @@ -893,7 +876,7 @@ } } -#if defined (HAVE_FFTW3) +#if defined (HAVE_FFTW) FloatComplexMatrix FloatMatrix::fourier (void) const @@ -981,6 +964,23 @@ #else +extern "C" +{ + // Note that the original complex fft routines were not written for + // float complex arguments. They have been modified by adding an + // implicit float precision (a-h,o-z) statement at the beginning of + // each subroutine. + + F77_RET_T + F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*); + + F77_RET_T + F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*); + + F77_RET_T + F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*); +} + FloatComplexMatrix FloatMatrix::fourier (void) const {