Skip to content

Commit 561e5bd

Browse files
dbielichdbielich
committed
Requested changes for typos and convention errors in branch
1 parent fd82c87 commit 561e5bd

6 files changed

+21
-21
lines changed

‎LAPACKE/include/lapacke.h

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -5720,7 +5720,7 @@ lapack_int LAPACKE_sgedmd_work( int matrix_layout, char jobs, char jobz,
57205720
lapack_int ldz, float* res, float* b,
57215721
lapack_int ldb, float* w, lapack_int ldw,
57225722
float* s, lapack_int lds, float* work,
5723-
lapack_int lwork, float* iwork,
5723+
lapack_int lwork, lapack_int* iwork,
57245724
lapack_int liwork );
57255725

57265726
lapack_int LAPACKE_dgedmd_work( int matrix_layout, char jobs, char jobz,
@@ -5731,7 +5731,7 @@ lapack_int LAPACKE_dgedmd_work( int matrix_layout, char jobs, char jobz,
57315731
lapack_int ldz, double* res, double* b,
57325732
lapack_int ldb, double* w, lapack_int ldw,
57335733
double* s, lapack_int lds, double* work,
5734-
lapack_int lwork, double* iwork,
5734+
lapack_int lwork, lapack_int* iwork,
57355735
lapack_int liwork );
57365736

57375737
lapack_int LAPACKE_cgedmd_work( int matrix_layout, char jobs, char jobz,
@@ -5747,7 +5747,7 @@ lapack_int LAPACKE_cgedmd_work( int matrix_layout, char jobs, char jobz,
57475747
lapack_complex_float* w, lapack_int ldw,
57485748
lapack_complex_float* s, lapack_int lds,
57495749
lapack_complex_float* work, lapack_int lwork,
5750-
lapack_complex_float* iwork, lapack_int liwork );
5750+
lapack_int* iwork, lapack_int liwork );
57515751

57525752
lapack_int LAPACKE_zgedmd_work( int matrix_layout, char jobs, char jobz,
57535753
char jobf, lapack_int whtsvd, lapack_int m,
@@ -5762,7 +5762,7 @@ lapack_int LAPACKE_zgedmd_work( int matrix_layout, char jobs, char jobz,
57625762
lapack_complex_double* w, lapack_int ldw,
57635763
lapack_complex_double* s, lapack_int lds,
57645764
lapack_complex_double* work, lapack_int lwork,
5765-
lapack_complex_double* iwork, lapack_int liwork );
5765+
lapack_int* iwork, lapack_int liwork );
57665766

57675767
lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz,
57685768
char jobr, char jobq, char jobt, char jobf,
@@ -5774,7 +5774,7 @@ lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz,
57745774
lapack_int ldz, float* res, float* b,
57755775
lapack_int ldb, float* v, lapack_int ldv,
57765776
float* s, lapack_int lds, float* work,
5777-
lapack_int lwork, float* iwork,
5777+
lapack_int lwork, lapack_int* iwork,
57785778
lapack_int liwork );
57795779

57805780
lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz,
@@ -5787,7 +5787,7 @@ lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz,
57875787
lapack_int ldz, double* res, double* b,
57885788
lapack_int ldb, double* v, lapack_int ldv,
57895789
double* s, lapack_int lds, double* work,
5790-
lapack_int lwork, double* iwork,
5790+
lapack_int lwork, lapack_int* iwork,
57915791
lapack_int liwork );
57925792

57935793
lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
@@ -5805,7 +5805,7 @@ lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
58055805
lapack_complex_float* v, lapack_int ldv,
58065806
lapack_complex_float* s, lapack_int lds,
58075807
lapack_complex_float* work, lapack_int lwork,
5808-
lapack_complex_float* iwork,
5808+
lapack_int* iwork,
58095809
lapack_int liwork );
58105810

58115811
lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
@@ -5823,7 +5823,7 @@ lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
58235823
lapack_complex_double* v, lapack_int ldv,
58245824
lapack_complex_double* s, lapack_int lds,
58255825
lapack_complex_double* work, lapack_int lwork,
5826-
lapack_complex_double* iwork,
5826+
lapack_int* iwork,
58275827
lapack_int liwork );
58285828

58295829
lapack_int LAPACKE_sgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs,

‎LAPACKE/src/lapacke_cgedmdq_work.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@ lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz,
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, reig,
57+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
5858
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5959
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( 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, reig,
117+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
118118
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
119119
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, reig,
168+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
169169
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
170170
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,
52+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
5353
imeig, 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,
112+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
113113
imeig, 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,
163+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
164164
imeig, 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,
52+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
5353
imeig, 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,
112+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
113113
imeig, 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,
163+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
164164
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
165165
work, &lwork, iwork, &liwork, &info );
166166
if( info < 0 ) {

‎LAPACKE/src/lapacke_zgedmdq.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -100,7 +100,7 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
100100
info = LAPACK_WORK_MEMORY_ERROR;
101101
goto exit_level_0;
102102
}
103-
iwork = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * liwork );
103+
iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );
104104
if( iwork == NULL ) {
105105
info = LAPACK_WORK_MEMORY_ERROR;
106106
goto exit_level_1;

‎LAPACKE/src/lapacke_zgedmdq_work.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@ lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz,
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, reig,
57+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
5858
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
5959
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, reig,
117+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
118118
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
119119
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, reig,
168+
&n, f, &ldf, x, &ldx, y, &ldy, &nrnk, &tol, &k, reig,
169169
imeig, z, &ldz, res, b, &ldb, v, &ldv, s, &lds,
170170
work, &lwork, iwork, &liwork, &info );
171171
if( info < 0 ) {

0 commit comments

Comments
 (0)