[med-svn] [Git][med-team/ghmm][master] Try harder to port to LAPACKE, but failed anyway

[Andreas Tille (@tille)]

Andreas Tille pushed to branch master at Debian Med / ghmm


Commits:
8e490e66 by Andreas Tille at 2024-01-11T17:42:27+01:00
Try harder to port to LAPACKE, but failed anyway

- - - - -


1 changed file:

- debian/patches/lapacke.patch


Changes:

=====================================
debian/patches/lapacke.patch
=====================================
@@ -44,3 +44,30 @@ FIXME: This is not sufficient and needs more changes inside the code
  #endif
  
  /*============================================================================*/
+@@ -99,7 +99,7 @@ int ighmm_invert_det(double *sigmainv, d
+   memcpy(sigmainv, cov, length * length * sizeof *cov);
+   
+   /* perform in-place LU factorization of covariance matrix */
+-  info = clapack_dgetrf(CblasRowMajor, length, length, sigmainv, length, ipiv);
++  info = LAPACKE_dgetrf(LAPACK_ROW_MAJOR, length, length, sigmainv, length, ipiv);
+   
+   /* determinant */
+   sign = 1;
+@@ -112,7 +112,7 @@ int ighmm_invert_det(double *sigmainv, d
+   *det = det_tmp * sign;
+   
+   /* use the LU factorization to get inverse */
+-  info = clapack_dgetri(CblasRowMajor, length, sigmainv, length, ipiv);
++  info = LAPACKE_dgetri(LAPACK_ROW_MAJOR, length, sigmainv, length, ipiv);
+   
+   free(ipiv);
+ #else
+@@ -235,7 +235,7 @@ int ighmm_cholesky_decomposition (double
+   int info;
+   /* copy cov. matrix entries to result matrix, the rest is done in-place */
+   memcpy(sigmacd, cov, dim * dim * sizeof *cov);
+-  info = clapack_dpotrf(CblasRowMajor, CblasUpper, dim, sigmacd, dim);
++  info = LAPACK_dpotrf(LAPACK_ROW_MAJOR, LAPACK_UPPER, dim, sigmacd, dim);
+ #else
+   int row, j, k;
+   double sum;



View it on GitLab: https://salsa.debian.org/med-team/ghmm/-/commit/8e490e66cddbbbd6146c50aad0b686e770973324

-- 
View it on GitLab: https://salsa.debian.org/med-team/ghmm/-/commit/8e490e66cddbbbd6146c50aad0b686e770973324
You're receiving this email because of your account on salsa.debian.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/debian-med-commit/attachments/20240111/334cc53c/attachment-0001.htm>