determinant(): added workaround for openblas dgesv incompatibiility

This commit is contained in:
2026-03-04 12:48:40 +01:00
parent 061880fb9f
commit 69b08da2fd
3 changed files with 32 additions and 16 deletions

View File

@@ -648,6 +648,7 @@ int clapack_dgesv(const CBLAS_ORDER Order, const int N, const int NRHS,
double *A, const int lda, int *ipiv,
double *B, const int ldb)
{
std::cout <<"In MY clapack_dgesv, N and NRHS = "<< N<<" "<< NRHS<<"\n";
FINT INFO=0;
if(Order!=CblasRowMajor) laerror("CblasRowMajor order asserted");
//B should be in the same physical order, just transpose A in place and the LU result on output