Skip to content

Commit b85e2bd

Browse files
martin-frbgmartin-frbg
authored
fix types of work and zwork array in c/zgedmd interfaces
1 parent 6eecdf6 commit b85e2bd

8 files changed

+23
-23
lines changed

‎LAPACKE/src/lapacke_cgedmd.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,7 @@ lapack_int LAPACKE_cgedmd( int matrix_layout, char jobs, char jobz, char jobr,
5151
float* work = NULL;
5252
lapack_int* iwork = NULL;
5353
lapack_complex_float zwork_query;
54-
lapack_complex_float work_query;
54+
float work_query;
5555
lapack_int iwork_query;
5656
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
5757
LAPACKE_xerbla( "LAPACKE_cgedmd", -1 );

‎LAPACKE/src/lapacke_cgedmdq.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -49,10 +49,10 @@ lapack_int LAPACKE_cgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
4949
lapack_int liwork = -1;
5050
lapack_int lzwork = -1;
5151
lapack_complex_float* zwork = NULL;
52-
lapack_complex_float* work = NULL;
52+
float* work = NULL;
5353
lapack_int* iwork = NULL;
5454
lapack_complex_float zwork_query;
55-
lapack_complex_float work_query;
55+
float work_query;
5656
lapack_int iwork_query;
5757
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
5858
LAPACKE_xerbla( "LAPACKE_cgedmdq", -1 );
@@ -103,7 +103,7 @@ lapack_int LAPACKE_cgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
103103
info = LAPACK_WORK_MEMORY_ERROR;
104104
goto exit_level_0;
105105
}
106-
work = (lapack_complex_float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
106+
work = (float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
107107
if( work == NULL ) {
108108
info = LAPACK_WORK_MEMORY_ERROR;
109109
goto exit_level_1;

‎LAPACKE/src/lapacke_cgedmdq_work.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -46,15 +46,15 @@ lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
4646
lapack_int ldb, lapack_complex_float* v,
4747
lapack_int ldv, lapack_complex_float* s,
4848
lapack_int lds, lapack_complex_float *zwork,
49-
lapack_int lzwork, lapack_complex_float* work,
49+
lapack_int lzwork, float* work,
5050
lapack_int lwork, lapack_int* iwork,
5151
lapack_int liwork )
5252
{
5353
lapack_int info = 0;
5454
if( matrix_layout == LAPACK_COL_MAJOR ) {
5555
/* Call LAPACK function and adjust info */
5656
LAPACK_cgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
57-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
57+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
5858
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5959
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
6060
if( info < 0 ) {
@@ -114,7 +114,7 @@ lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
114114
/* Query optimal working array(s) size if requested */
115115
if( lzwork == -1 || lwork == -1 || liwork == -1 ) {
116116
LAPACK_cgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
117-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
117+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
118118
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
119119
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
120120
return (info < 0) ? (info - 1) : info;
@@ -165,7 +165,7 @@ lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
165165
LAPACKE_cge_trans( matrix_layout, m, n, s, lds, s_t, lds_t );
166166
/* Call LAPACK function and adjust info */
167167
LAPACK_cgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
168-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
168+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
169169
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
170170
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
171171
if( info < 0 ) {

‎LAPACKE/src/lapacke_dgedmdq_work.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -49,7 +49,7 @@ lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz,
4949
if( matrix_layout == LAPACK_COL_MAJOR ) {
5050
/* Call LAPACK function and adjust info */
5151
LAPACK_dgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
52-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
52+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
5353
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5454
work, &lwork, iwork, &liwork, &info );
5555
if( info < 0 ) {
@@ -109,7 +109,7 @@ lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz,
109109
/* Query optimal working array(s) size if requested */
110110
if( lwork == -1 || liwork == -1 ) {
111111
LAPACK_dgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
112-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
112+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
113113
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
114114
work, &lwork, iwork, &liwork, &info );
115115
return (info < 0) ? (info - 1) : info;
@@ -160,7 +160,7 @@ lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz,
160160
LAPACKE_dge_trans( matrix_layout, m, n, s, lds, s_t, lds_t );
161161
/* Call LAPACK function and adjust info */
162162
LAPACK_dgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
163-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
163+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
164164
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
165165
work, &lwork, iwork, &liwork, &info );
166166
if( info < 0 ) {

‎LAPACKE/src/lapacke_sgedmdq_work.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -49,7 +49,7 @@ lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz,
4949
if( matrix_layout == LAPACK_COL_MAJOR ) {
5050
/* Call LAPACK function and adjust info */
5151
LAPACK_sgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
52-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
52+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
5353
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5454
work, &lwork, iwork, &liwork, &info );
5555
if( info < 0 ) {
@@ -109,7 +109,7 @@ lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz,
109109
/* Query optimal working array(s) size if requested */
110110
if( lwork == -1 || liwork == -1 ) {
111111
LAPACK_sgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
112-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
112+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
113113
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
114114
work, &lwork, iwork, &liwork, &info );
115115
return (info < 0) ? (info - 1) : info;
@@ -160,7 +160,7 @@ lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz,
160160
LAPACKE_sge_trans( matrix_layout, m, n, s, lds, s_t, lds_t );
161161
/* Call LAPACK function and adjust info */
162162
LAPACK_sgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
163-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig, imeig,
163+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, reig, imeig,
164164
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
165165
work, &lwork, iwork, &liwork, &info );
166166
if( info < 0 ) {

‎LAPACKE/src/lapacke_zgedmd.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -51,9 +51,9 @@ lapack_int LAPACKE_zgedmd( int matrix_layout, char jobs, char jobz, char jobr,
5151
lapack_complex_double* zwork = NULL;
5252
double* work = NULL;
5353
lapack_int* iwork = NULL;
54-
lapack_complex_double work_query;
54+
double work_query;
5555
lapack_int iwork_query;
56-
lapack_int zwork_query;
56+
lapack_complex_double zwork_query;
5757
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
5858
LAPACKE_xerbla( "LAPACKE_zgedmd", -1 );
5959
return -1;

‎LAPACKE/src/lapacke_zgedmdq.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -49,9 +49,9 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
4949
lapack_int liwork = -1;
5050
lapack_int lzwork = -1;
5151
lapack_complex_double* zwork = NULL;
52-
lapack_complex_double* work = NULL;
52+
double* work = NULL;
5353
lapack_int* iwork = NULL;
54-
lapack_complex_double work_query;
54+
double work_query;
5555
lapack_complex_double zwork_query;
5656
lapack_int iwork_query;
5757
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -103,7 +103,7 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
103103
info = LAPACK_WORK_MEMORY_ERROR;
104104
goto exit_level_0;
105105
}
106-
work = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );
106+
work = (double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );
107107
if( work == NULL ) {
108108
info = LAPACK_WORK_MEMORY_ERROR;
109109
goto exit_level_1;

‎LAPACKE/src/lapacke_zgedmdq_work.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -46,15 +46,15 @@ lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
4646
lapack_int ldb, lapack_complex_double* v,
4747
lapack_int ldv, lapack_complex_double* s,
4848
lapack_int lds, lapack_complex_double* zwork,
49-
lapack_int lzwork, lapack_complex_double* work,
49+
lapack_int lzwork, double* work,
5050
lapack_int lwork, lapack_int* iwork,
5151
lapack_int liwork )
5252
{
5353
lapack_int info = 0;
5454
if( matrix_layout == LAPACK_COL_MAJOR ) {
5555
/* Call LAPACK function and adjust info */
5656
LAPACK_zgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
57-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
57+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
5858
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5959
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
6060
if( info < 0 ) {
@@ -114,7 +114,7 @@ lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
114114
/* Query optimal working array(s) size if requested */
115115
if( lwork == -1 || liwork == -1 ) {
116116
LAPACK_zgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
117-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
117+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
118118
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
119119
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
120120
return (info < 0) ? (info - 1) : info;
@@ -165,7 +165,7 @@ lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
165165
LAPACKE_zge_trans( matrix_layout, m, n, s, lds, s_t, lds_t );
166166
/* Call LAPACK function and adjust info */
167167
LAPACK_zgedmdq( &jobs, &jobz, &jobr, &jobq, &jobt, &jobf, &whtsvd, &m,
168-
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, eigs,
168+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, tol, &k, eigs,
169169
z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
170170
zwork, &lzwork, work, &lwork, iwork, &liwork, &info );
171171
if( info < 0 ) {

0 commit comments

Comments
 (0)