From: julie Date: Tue, 19 Nov 2013 09:43:31 +0000 (+0000) Subject: Apply patch submitted by Matthew Faverge, INRIA on Nov 19th 2013 X-Git-Tag: submit/tizen/20180313.231549~445 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d7eb9b6123eecf73f0699e2cb25ffab26c633557;p=platform%2Fupstream%2Flapack.git Apply patch submitted by Matthew Faverge, INRIA on Nov 19th 2013 There are problems in LAPACKE complex lacn2 interfaces. Those functions don't have a "isgn" parmeter in LAPACK. This exists only for real interface. The problem is present in the four files of C and Z functions. In Lapack: SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) In Lapacke: LAPACK_zlacn2( &n, v, x, isgn, est, kase, isave ); --- diff --git a/lapacke/example/example_DGESV_colmajor.c b/lapacke/example/example_DGESV_colmajor.c index 22675649..be0432c0 100644 --- a/lapacke/example/example_DGESV_colmajor.c +++ b/lapacke/example/example_DGESV_colmajor.c @@ -34,6 +34,7 @@ /* Includes */ #include #include +#include #include "lapacke.h" #include "lapacke_example_aux.h" diff --git a/lapacke/example/example_DGESV_rowmajor.c b/lapacke/example/example_DGESV_rowmajor.c index fd8eb1c0..4406733a 100644 --- a/lapacke/example/example_DGESV_rowmajor.c +++ b/lapacke/example/example_DGESV_rowmajor.c @@ -33,6 +33,7 @@ */ #include #include +#include #include #include "lapacke_example_aux.h" diff --git a/lapacke/example/lapacke_example_aux.c b/lapacke/example/lapacke_example_aux.c index d659d6a4..dfd60eb1 100644 --- a/lapacke/example/lapacke_example_aux.c +++ b/lapacke/example/lapacke_example_aux.c @@ -1,4 +1,5 @@ #include +#include /* Auxiliary routine: printing a matrix */ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) { diff --git a/lapacke/include/lapacke.h b/lapacke/include/lapacke.h index b723adfa..9b9e8b43 100644 --- a/lapacke/include/lapacke.h +++ b/lapacke/include/lapacke.h @@ -2107,10 +2107,10 @@ lapack_int LAPACKE_slacn2( lapack_int n, float* v, float* x, lapack_int* isgn, lapack_int LAPACKE_dlacn2( lapack_int n, double* v, double* x, lapack_int* isgn, double* est, lapack_int* kase, lapack_int* isave ); lapack_int LAPACKE_clacn2( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, lapack_int* isgn, + lapack_complex_float* x, float* est, lapack_int* kase, lapack_int* isave ); lapack_int LAPACKE_zlacn2( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, lapack_int* isgn, + lapack_complex_double* x, double* est, lapack_int* kase, lapack_int* isave ); lapack_int LAPACKE_slacpy( int matrix_order, char uplo, lapack_int m, @@ -6908,11 +6908,11 @@ lapack_int LAPACKE_dlacn2_work( lapack_int n, double* v, double* x, lapack_int* isgn, double* est, lapack_int* kase, lapack_int* isave ); lapack_int LAPACKE_clacn2_work( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, lapack_int* isgn, + lapack_complex_float* x, float* est, lapack_int* kase, lapack_int* isave ); lapack_int LAPACKE_zlacn2_work( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, lapack_int* isgn, + lapack_complex_double* x, double* est, lapack_int* kase, lapack_int* isave ); diff --git a/lapacke/src/lapacke_clacn2.c b/lapacke/src/lapacke_clacn2.c index 9c045a4f..890c486f 100644 --- a/lapacke/src/lapacke_clacn2.c +++ b/lapacke/src/lapacke_clacn2.c @@ -34,7 +34,7 @@ #include "lapacke_utils.h" lapack_int LAPACKE_clacn2( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, lapack_int* isgn, + lapack_complex_float* x, float* est, lapack_int* kase, lapack_int* isave ) { #ifndef LAPACK_DISABLE_NAN_CHECK @@ -46,5 +46,5 @@ lapack_int LAPACKE_clacn2( lapack_int n, lapack_complex_float* v, return -3; } #endif - return LAPACKE_clacn2_work( n, v, x, isgn, est, kase, isave ); + return LAPACKE_clacn2_work( n, v, x, est, kase, isave ); } diff --git a/lapacke/src/lapacke_clacn2_work.c b/lapacke/src/lapacke_clacn2_work.c index 6691a598..970b7d7d 100644 --- a/lapacke/src/lapacke_clacn2_work.c +++ b/lapacke/src/lapacke_clacn2_work.c @@ -34,12 +34,12 @@ #include "lapacke_utils.h" lapack_int LAPACKE_clacn2_work( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, lapack_int* isgn, + lapack_complex_float* x, float* est, lapack_int* kase, lapack_int* isave ) { lapack_int info = 0; /* Call LAPACK function and adjust info */ - LAPACK_clacn2( &n, v, x, isgn, est, kase, isave ); + LAPACK_clacn2( &n, v, x, est, kase, isave ); return info; } diff --git a/lapacke/src/lapacke_zlacn2.c b/lapacke/src/lapacke_zlacn2.c index 41810aa4..e64c0716 100644 --- a/lapacke/src/lapacke_zlacn2.c +++ b/lapacke/src/lapacke_zlacn2.c @@ -34,7 +34,7 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zlacn2( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, lapack_int* isgn, + lapack_complex_double* x, double* est, lapack_int* kase, lapack_int* isave ) { #ifndef LAPACK_DISABLE_NAN_CHECK @@ -46,5 +46,5 @@ lapack_int LAPACKE_zlacn2( lapack_int n, lapack_complex_double* v, return -3; } #endif - return LAPACKE_zlacn2_work( n, v, x, isgn, est, kase, isave ); + return LAPACKE_zlacn2_work( n, v, x, est, kase, isave ); } diff --git a/lapacke/src/lapacke_zlacn2_work.c b/lapacke/src/lapacke_zlacn2_work.c index 9e65c599..6babae5a 100644 --- a/lapacke/src/lapacke_zlacn2_work.c +++ b/lapacke/src/lapacke_zlacn2_work.c @@ -34,12 +34,12 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zlacn2_work( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, lapack_int* isgn, + lapack_complex_double* x, double* est, lapack_int* kase, lapack_int* isave ) { lapack_int info = 0; /* Call LAPACK function and adjust info */ - LAPACK_zlacn2( &n, v, x, isgn, est, kase, isave ); + LAPACK_zlacn2( &n, v, x, est, kase, isave ); return info; }