From 9adf5ded237339dbe41db6c486993c4547396a22 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 15 Oct 2007 10:31:45 +0000 Subject: some windows support --- lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lib/Numeric/LinearAlgebra/LAPACK') diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c index bf0cfba..9b6c1db 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c @@ -29,6 +29,8 @@ #define SINGULAR 2004 #define NOCONVER 2005 #define NODEFPOS 2006 +#define NOSPRTD 2007 + //////////////////// real svd //////////////////////////////////// @@ -423,6 +425,9 @@ int linearSolveLSR_l(KDMAT(a),KDMAT(b),DMAT(x)) { //////////////////// least squares complex linear system //////////// int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { + #ifdef _WIN32 + return NOSPRTD; + #else integer m = ar; integer n = ac; integer nrhs = bc; @@ -463,6 +468,7 @@ int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { free(work); free(AC); OK + #endif } //////////////////// least squares real linear system using SVD //////////// @@ -527,6 +533,9 @@ int zgelss_(integer *m, integer *n, integer *nhrs, integer *info); int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { + #ifdef _WIN32 + return NOSPRTD; + #else integer m = ar; integer n = ac; integer nrhs = bc; @@ -577,6 +586,7 @@ int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { free(S); free(AC); OK + #endif } //////////////////// Cholesky factorization ///////////////////////// -- cgit v1.2.3