diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c')
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c index d7248d1..f18bbed 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | |||
@@ -435,9 +435,6 @@ int linearSolveLSR_l(KDMAT(a),KDMAT(b),DMAT(x)) { | |||
435 | //////////////////// least squares complex linear system //////////// | 435 | //////////////////// least squares complex linear system //////////// |
436 | 436 | ||
437 | int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { | 437 | int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { |
438 | #ifdef _WIN32 | ||
439 | return NOSPRTD; | ||
440 | #else | ||
441 | integer m = ar; | 438 | integer m = ar; |
442 | integer n = ac; | 439 | integer n = ac; |
443 | integer nrhs = bc; | 440 | integer nrhs = bc; |
@@ -478,7 +475,6 @@ int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { | |||
478 | free(work); | 475 | free(work); |
479 | free(AC); | 476 | free(AC); |
480 | OK | 477 | OK |
481 | #endif | ||
482 | } | 478 | } |
483 | 479 | ||
484 | //////////////////// least squares real linear system using SVD //////////// | 480 | //////////////////// least squares real linear system using SVD //////////// |
@@ -543,9 +539,6 @@ int zgelss_(integer *m, integer *n, integer *nhrs, | |||
543 | integer *info); | 539 | integer *info); |
544 | 540 | ||
545 | int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { | 541 | int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { |
546 | #ifdef _WIN32 | ||
547 | return NOSPRTD; | ||
548 | #else | ||
549 | integer m = ar; | 542 | integer m = ar; |
550 | integer n = ac; | 543 | integer n = ac; |
551 | integer nrhs = bc; | 544 | integer nrhs = bc; |
@@ -596,7 +589,6 @@ int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { | |||
596 | free(S); | 589 | free(S); |
597 | free(AC); | 590 | free(AC); |
598 | OK | 591 | OK |
599 | #endif | ||
600 | } | 592 | } |
601 | 593 | ||
602 | //////////////////// Cholesky factorization ///////////////////////// | 594 | //////////////////// Cholesky factorization ///////////////////////// |
@@ -749,9 +741,6 @@ int schur_l_R(KDMAT(a), DMAT(u), DMAT(s)) { | |||
749 | } | 741 | } |
750 | 742 | ||
751 | int schur_l_C(KCMAT(a), CMAT(u), CMAT(s)) { | 743 | int schur_l_C(KCMAT(a), CMAT(u), CMAT(s)) { |
752 | #ifdef _WIN32 | ||
753 | return NOSPRTD; | ||
754 | #else | ||
755 | integer m = ar; | 744 | integer m = ar; |
756 | integer n = ac; | 745 | integer n = ac; |
757 | REQUIRES(m>=1 && n==m && ur==n && uc==n && sr==n && sc==n, BAD_SIZE); | 746 | REQUIRES(m>=1 && n==m && ur==n && uc==n && sr==n && sc==n, BAD_SIZE); |
@@ -776,7 +765,6 @@ int schur_l_C(KCMAT(a), CMAT(u), CMAT(s)) { | |||
776 | free(BWORK); | 765 | free(BWORK); |
777 | free(WORK); | 766 | free(WORK); |
778 | OK | 767 | OK |
779 | #endif | ||
780 | } | 768 | } |
781 | 769 | ||
782 | //////////////////// LU factorization ///////////////////////// | 770 | //////////////////// LU factorization ///////////////////////// |