some windows support

1 files changed, 10 insertions, 0 deletions

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 /////////////////////////