Fix: remove rwork parameter from heevx function call

Kai Luo · Kai Luo · commit b0cf071e2a87 · 2025-10-27T19:53:51.000+08:00
diff --git a/source/source_base/module_container/base/third_party/lapack.h b/source/source_base/module_container/base/third_party/lapack.h
@@ -338,7 +338,7 @@ void heevx(const char jobz, const char range, const char uplo, const int n,
     ssyevx_(&jobz, &range, &uplo, &n,
             a, &lda, &vl, &vu, &il, &iu,
             &abstol, &m, w, z, &ldz,
-            work, &lwork, rwork, iwork, ifail, &info);
+            work, &lwork,  iwork, ifail, &info);
 }
 // wrap function of fortran lapack routine zheevx.
 static inline

Original file line number	Diff line number	Diff line change
`@@ -338,7 +338,7 @@ void heevx(const char jobz, const char range, const char uplo, const int n,`
`338`	`338`	`ssyevx_(&jobz, &range, &uplo, &n,`
`339`	`339`	`a, &lda, &vl, &vu, &il, &iu,`
`340`	`340`	`&abstol, &m, w, z, &ldz,`
`341`		`- work, &lwork, rwork, iwork, ifail, &info);`
	`341`	`+ work, &lwork, iwork, ifail, &info);`
`342`	`342`	`}`
`343`	`343`	`// wrap function of fortran lapack routine zheevx.`
`344`	`344`	`static inline`