fixed accuracy problem in cv::invert() (Cholesky method)

diff --git a/3rdparty/lapack/dgemv_custom.c b/3rdparty/lapack/dgemv_custom.c
index 70b5ef4d2617e21ae8ea497f820852398229a1db..7a42f3059fb523f9573392548751df15d229cc96 100644 (file)
--- a/3rdparty/lapack/dgemv_custom.c
+++ b/3rdparty/lapack/dgemv_custom.c
@@ -117,7 +117,7 @@
     char trans = lapack_toupper(_trans[0]);
     integer i, j, m = *_m, n = *_n, lda = *_lda, incx = *_incx, incy = *_incy;
     integer leny = trans == 'N' ? m : n, lenx = trans == 'N' ? n : m;
-    real alpha = *_alpha, beta = *_beta;
+    doublereal alpha = *_alpha, beta = *_beta;
     
     integer info = 0;
     if (trans != 'N' && trans != 'T' && trans != 'C')