Merge pull request #2935 from martin-frbg/lapack458

martin-frbg · web-flow · commit 7e265c50bf63 · 2020-10-22T19:25:58.000+02:00
Fix macro used in argument conversion (LAPACK PR 458)
diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c b/lapack-netlib/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 );`