jiri/LA_library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

determinant(): added workaround for openblas dgesv incompatibiility

Browse Source
This commit is contained in:
Jiri Pittner
2026-03-04 12:48:40 +01:00
parent 061880fb9f
commit 69b08da2fd
3 changed files with 32 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
nonclass.h
View File

@@ -272,16 +272,9 @@ typename LA_traits<MAT>::normtype MatrixNorm(const MAT &A, const char norm);
template<class MAT>
typename LA_traits<MAT>::normtype CondNumber(const MAT &A, const char norm);
//general determinant
template<class MAT>
const typename LA_traits<MAT>::elementtype determinant(MAT a)//passed by value
{
typename LA_traits<MAT>::elementtype det;
if(a.nrows()!=a.ncols()) laerror("determinant of non-square matrix");
linear_solve(a,NULL,&det);
return det;
}
#ifdef HAS_MKL
#define NO_OPENBLAS_WORKAROUND
#endif
//general determinant destructive on input
template<class MAT>
@@ -289,10 +282,27 @@ const typename LA_traits<MAT>::elementtype determinant_destroy(MAT &a) //passed
{
typename LA_traits<MAT>::elementtype det;
if(a.nrows()!=a.ncols()) laerror("determinant of non-square matrix");
//for openblas 0.3.31 we have to fake some RHS otherwise LU decomp. is not performed
#ifdef NO_OPENBLAS_WORKAROUND
linear_solve(a,NULL,&det);
#else
//fake rhs
NRVec<typename LA_traits<MAT>::elementtype> b(a.ncols());
for(int i=0; i<b.size(); ++i) b[i] = (typename LA_traits<MAT>::elementtype)i;
linear_solve(a,b,&det);
#endif
return det;
}
//general determinant
template<class MAT>
const typename LA_traits<MAT>::elementtype determinant(MAT a)//passed by value
{
a.copyonwrite();
return determinant_destroy(a);
}
//------------------------------------------------------------------------------
// solves set of linear equations using gesvx