Merge pull request #458 from nforro/master

langou · web-flow · commit 4fbb4f8d9e82 · 2020-10-22T08:10:57.000-06:00
Fix macro used in LAPACKE_zgesvdq
diff --git a/LAPACKE/src/lapacke_zgesvdq.c b/LAPACKE/src/lapacke_zgesvdq.c
@@ -71,7 +71,7 @@ lapack_int LAPACKE_zgesvdq( int matrix_layout, char joba, char jobp,
         goto exit_level_0;
     }
     liwork = iwork_query;
-    lcwork = LAPACK_C2INT(cwork_query);
+    lcwork = LAPACK_Z2INT(cwork_query);
     lrwork = (lapack_int)rwork_query;
     /* Allocate memory for work arrays */
     iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,7 @@ lapack_int LAPACKE_zgesvdq( int matrix_layout, char joba, char jobp,`
`71`	`71`	`goto exit_level_0;`
`72`	`72`	`}`
`73`	`73`	`liwork = iwork_query;`
`74`		`- lcwork = LAPACK_C2INT(cwork_query);`
	`74`	`+ lcwork = LAPACK_Z2INT(cwork_query);`
`75`	`75`	`lrwork = (lapack_int)rwork_query;`
`76`	`76`	`/* Allocate memory for work arrays */`
`77`	`77`	`iwork = (lapack_int)LAPACKE_malloc( sizeof(lapack_int) liwork );`