From 9e0a54650ea09e82f5938d56175bc032bccea3ee Mon Sep 17 00:00:00 2001 From: eric bylaska Date: Fri, 9 Aug 2024 12:57:37 -0700 Subject: [PATCH] ...EJB --- Nwpw/nwpwlib/blas/blas.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Nwpw/nwpwlib/blas/blas.h b/Nwpw/nwpwlib/blas/blas.h index c7ea4a1e..a15beb91 100644 --- a/Nwpw/nwpwlib/blas/blas.h +++ b/Nwpw/nwpwlib/blas/blas.h @@ -59,7 +59,7 @@ #define IZAMAX_PWDFT(nn, hml, one) cblas_izamax(nn, hml, one) #define ZEIGEN_PWDFT(n, hml, eig, xtmp, nn, rtmp,ierr) \ - ierr = LAPACKE_zheev(LAPACK_COL_MAJOR, 'V', 'L', n, hml, n, eig) + ierr = LAPACKE_zheev(LAPACK_COL_MAJOR, 'V', 'L', n, reinterpret_cast (hml), n, eig) #define ZLACPY_PWDFT(s1, m, n, a, ida, b, idb) \ auto ierr0 = LAPACKE_dlacpy(LAPACK_COL_MAJOR, (s1)[0], m, n, a, ida, b, idb)