Mercurial > octave-nkf

comparison liboctave/eigs-base.cc @ 12275:35c55d1241c7 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove configure checks for ARPACK
author John W. Eaton <jwe@octave.org>
date Fri, 28 Jan 2011 14:05:09 -0500
parents 12df7854fa7c
children 30ca5a0b0e2f
comparison
equal deleted inserted replaced
12274:9f5d2ef078e8 12275:35c55d1241c7
42 #include "dbleCHOL.h" 42 #include "dbleCHOL.h"
43 #include "CmplxCHOL.h" 43 #include "CmplxCHOL.h"
44 #include "dbleLU.h" 44 #include "dbleLU.h"
45 #include "CmplxLU.h" 45 #include "CmplxLU.h"
46 46
47 #ifdef HAVE_ARPACK
48 typedef ColumnVector (*EigsFunc) (const ColumnVector &x, int &eigs_error); 47 typedef ColumnVector (*EigsFunc) (const ColumnVector &x, int &eigs_error);
49 typedef ComplexColumnVector (*EigsComplexFunc) 48 typedef ComplexColumnVector (*EigsComplexFunc)
50 (const ComplexColumnVector &x, int &eigs_error); 49 (const ComplexColumnVector &x, int &eigs_error);
51 50
52 // Arpack and blas fortran functions we call. 51 // Arpack and blas fortran functions we call.
199 static ComplexMatrix 198 static ComplexMatrix
200 utsolve (const ComplexMatrix&, const ColumnVector&, const ComplexMatrix&); 199 utsolve (const ComplexMatrix&, const ColumnVector&, const ComplexMatrix&);
201 200
202 static Matrix 201 static Matrix
203 utsolve (const Matrix&, const ColumnVector&, const Matrix&); 202 utsolve (const Matrix&, const ColumnVector&, const Matrix&);
204
205 #endif
206 203
207 template <class M, class SM> 204 template <class M, class SM>
208 static octave_idx_type 205 static octave_idx_type
209 lusolve (const SM& L, const SM& U, M& m) 206 lusolve (const SM& L, const SM& U, M& m)
210 { 207 {