summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c')
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c12
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
437int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) { 437int 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
545int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) { 541int 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
751int schur_l_C(KCMAT(a), CMAT(u), CMAT(s)) { 743int 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 /////////////////////////