Mercurial > hg > octave-nkf
diff liboctave/CMatrix.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 | f3ebc728ffd7 |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -40,30 +40,27 @@ #include "Array-util.h" #include "CMatrix.h" #include "CmplxAEPBAL.h" -#include "DET.h" +#include "CmplxCHOL.h" #include "CmplxSCHUR.h" #include "CmplxSVD.h" -#include "CmplxCHOL.h" +#include "DET.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-cm-dm.h" +#include "mx-cm-s.h" #include "mx-dm-cm.h" -#include "mx-cm-s.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" -#if defined (HAVE_FFTW3) -#include "oct-fftw.h" -#endif - // Fortran functions we call. extern "C" @@ -211,20 +208,6 @@ F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); - // Note that the original complex fft routines were not written for - // double complex arguments. They have been modified by adding an - // implicit double precision (a-h,o-z) statement at the beginning of - // each subroutine. - - F77_RET_T - F77_FUNC (zffti, ZFFTI) (const octave_idx_type&, Complex*); - - F77_RET_T - F77_FUNC (zfftf, ZFFTF) (const octave_idx_type&, Complex*, Complex*); - - F77_RET_T - F77_FUNC (zfftb, ZFFTB) (const octave_idx_type&, Complex*, Complex*); - F77_RET_T F77_FUNC (zlartg, ZLARTG) (const Complex&, const Complex&, double&, Complex&, Complex&); @@ -1217,7 +1200,7 @@ return retval; } -#if defined (HAVE_FFTW3) +#if defined (HAVE_FFTW) ComplexMatrix ComplexMatrix::fourier (void) const @@ -1307,6 +1290,23 @@ #else +extern "C" +{ + // Note that the original complex fft routines were not written for + // double complex arguments. They have been modified by adding an + // implicit double precision (a-h,o-z) statement at the beginning of + // each subroutine. + + F77_RET_T + F77_FUNC (zffti, ZFFTI) (const octave_idx_type&, Complex*); + + F77_RET_T + F77_FUNC (zfftf, ZFFTF) (const octave_idx_type&, Complex*, Complex*); + + F77_RET_T + F77_FUNC (zfftb, ZFFTB) (const octave_idx_type&, Complex*, Complex*); +} + ComplexMatrix ComplexMatrix::fourier (void) const {