From 9adf5ded237339dbe41db6c486993c4547396a22 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 15 Oct 2007 10:31:45 +0000
Subject: some windows support

---
 lib/Numeric/GSL/gsl-aux.c                     |  6 +++---
 lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 10 ++++++++++
 2 files changed, 13 insertions(+), 3 deletions(-)

(limited to 'lib/Numeric')

diff --git a/lib/Numeric/GSL/gsl-aux.c b/lib/Numeric/GSL/gsl-aux.c
index 83c3bf8..bd0a6bd 100644
--- a/lib/Numeric/GSL/gsl-aux.c
+++ b/lib/Numeric/GSL/gsl-aux.c
@@ -116,9 +116,9 @@ int mapR(int code, KRVEC(x), RVEC(r)) {
         OP(7,sinh)
         OP(8,cosh)
         OP(9,tanh)
-        OP(10,asinh)
-        OP(11,acosh)
-        OP(12,atanh)
+        OP(10,gsl_asinh)
+        OP(11,gsl_acosh)
+        OP(12,gsl_atanh)
         OP(13,exp)
         OP(14,log)
         OP(15,sign)
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