Skip to content

Commit 750a599

Browse files
committed
Fix complex float inputs for lstsq
Resolves compile error when lstsq is called with complex float arguments.
1 parent d7feb5b commit 750a599

File tree

2 files changed

+30
-30
lines changed

2 files changed

+30
-30
lines changed

include/xflens/cxxlapack/netlib/interface/dummy.in.cc

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1026,21 +1026,21 @@ LAPACK_DECL(cgels)(const char *TRANS,
10261026

10271027
//-- cgelsd --------------------------------------------------------------------
10281028
void
1029-
LAPACK_DECL(cgelsd)(const INTEGER *M,
1030-
const INTEGER *N,
1031-
const INTEGER *NRHS,
1032-
FLOAT_COMPLEX *A,
1033-
const INTEGER *LDA,
1034-
FLOAT_COMPLEX *B,
1035-
const INTEGER *LDB,
1036-
FLOAT *S,
1037-
const FLOAT *RCOND,
1038-
INTEGER *RANK,
1039-
FLOAT_COMPLEX *WORK,
1040-
const INTEGER *LWORK,
1041-
FLOAT *RWORK,
1042-
INTEGER *IWORK,
1043-
INTEGER *INFO)
1029+
LAPACK_DECL(cgelsd)(const INTEGER *M,
1030+
const INTEGER *N,
1031+
const INTEGER *NRHS,
1032+
const FLOAT_COMPLEX *A,
1033+
const INTEGER *LDA,
1034+
FLOAT_COMPLEX *B,
1035+
const INTEGER *LDB,
1036+
FLOAT *S,
1037+
const FLOAT *RCOND,
1038+
INTEGER *RANK,
1039+
FLOAT_COMPLEX *WORK,
1040+
const INTEGER *LWORK,
1041+
FLOAT *RWORK,
1042+
INTEGER *IWORK,
1043+
INTEGER *INFO)
10441044
{
10451045
DEBUG_LAPACK_STUB("cgelsd");
10461046
LAPACK_IMPL(cgelsd)(M,

include/xflens/cxxlapack/netlib/interface/lapack.in.h

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -579,21 +579,21 @@ LAPACK_IMPL(cgels)(const char *TRANS,
579579

580580
//-- cgelsd --------------------------------------------------------------------
581581
void
582-
LAPACK_IMPL(cgelsd)(const INTEGER *M,
583-
const INTEGER *N,
584-
const INTEGER *NRHS,
585-
FLOAT_COMPLEX *A,
586-
const INTEGER *LDA,
587-
FLOAT_COMPLEX *B,
588-
const INTEGER *LDB,
589-
FLOAT *S,
590-
const FLOAT *RCOND,
591-
INTEGER *RANK,
592-
FLOAT_COMPLEX *WORK,
593-
const INTEGER *LWORK,
594-
FLOAT *RWORK,
595-
INTEGER *IWORK,
596-
INTEGER *INFO);
582+
LAPACK_IMPL(cgelsd)(const INTEGER *M,
583+
const INTEGER *N,
584+
const INTEGER *NRHS,
585+
const FLOAT_COMPLEX *A,
586+
const INTEGER *LDA,
587+
FLOAT_COMPLEX *B,
588+
const INTEGER *LDB,
589+
FLOAT *S,
590+
const FLOAT *RCOND,
591+
INTEGER *RANK,
592+
FLOAT_COMPLEX *WORK,
593+
const INTEGER *LWORK,
594+
FLOAT *RWORK,
595+
INTEGER *IWORK,
596+
INTEGER *INFO);
597597

598598
//-- cgelss --------------------------------------------------------------------
599599
void

0 commit comments

Comments
 (0)