Skip to content

Commit 1e7759a

Browse files
langoulangou
authored
Merge pull request #742 from ACSimon33/LAPACKE_xLARFB_nancheck
Lapacke x larfb nancheck
2 parents 20b45b9 + 6ef9ae9 commit 1e7759a

19 files changed

+822
-401
lines changed

‎LAPACKE/include/lapacke_utils.h‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -128,6 +128,10 @@ void LAPACKE_ctp_trans( int matrix_layout, char uplo, char diag,
128128
void LAPACKE_ctr_trans( int matrix_layout, char uplo, char diag, lapack_int n,
129129
const lapack_complex_float *in, lapack_int ldin,
130130
lapack_complex_float *out, lapack_int ldout );
131+
void LAPACKE_ctz_trans( int matrix_layout, char direct, char uplo,
132+
char diag, lapack_int m, lapack_int n,
133+
const lapack_complex_float *in, lapack_int ldin,
134+
lapack_complex_float *out, lapack_int ldout );
131135

132136
void LAPACKE_dgb_trans( int matrix_layout, lapack_int m, lapack_int n,
133137
lapack_int kl, lapack_int ku,
@@ -178,6 +182,10 @@ void LAPACKE_dtp_trans( int matrix_layout, char uplo, char diag,
178182
void LAPACKE_dtr_trans( int matrix_layout, char uplo, char diag, lapack_int n,
179183
const double *in, lapack_int ldin,
180184
double *out, lapack_int ldout );
185+
void LAPACKE_dtz_trans( int matrix_layout, char direct, char uplo,
186+
char diag, lapack_int m, lapack_int n,
187+
const double *in, lapack_int ldin,
188+
double *out, lapack_int ldout );
181189

182190
void LAPACKE_sgb_trans( int matrix_layout, lapack_int m, lapack_int n,
183191
lapack_int kl, lapack_int ku,
@@ -228,6 +236,10 @@ void LAPACKE_stp_trans( int matrix_layout, char uplo, char diag,
228236
void LAPACKE_str_trans( int matrix_layout, char uplo, char diag, lapack_int n,
229237
const float *in, lapack_int ldin,
230238
float *out, lapack_int ldout );
239+
void LAPACKE_stz_trans( int matrix_layout, char direct, char uplo,
240+
char diag, lapack_int m, lapack_int n,
241+
const float *in, lapack_int ldin,
242+
float *out, lapack_int ldout );
231243

232244
void LAPACKE_zgb_trans( int matrix_layout, lapack_int m, lapack_int n,
233245
lapack_int kl, lapack_int ku,
@@ -284,6 +296,10 @@ void LAPACKE_ztp_trans( int matrix_layout, char uplo, char diag,
284296
void LAPACKE_ztr_trans( int matrix_layout, char uplo, char diag, lapack_int n,
285297
const lapack_complex_double *in, lapack_int ldin,
286298
lapack_complex_double *out, lapack_int ldout );
299+
void LAPACKE_ztz_trans( int matrix_layout, char direct, char uplo,
300+
char diag, lapack_int m, lapack_int n,
301+
const lapack_complex_double *in, lapack_int ldin,
302+
lapack_complex_double *out, lapack_int ldout );
287303

288304
/* NaN checkers */
289305
#define LAPACK_SISNAN( x ) ( x != x )

‎LAPACKE/src/lapacke_clarfb.c‎

Lines changed: 19 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -42,67 +42,37 @@ lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct
4242
lapack_int info = 0;
4343
lapack_int ldwork;
4444
lapack_complex_float* work = NULL;
45-
lapack_int ncols_v, nrows_v;
45+
lapack_int nrows_v, ncols_v;
46+
lapack_logical left, col, forward;
47+
char uplo;
4648
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
4749
LAPACKE_xerbla( "LAPACKE_clarfb", -1 );
4850
return -1;
4951
}
5052
#ifndef LAPACK_DISABLE_NAN_CHECK
5153
if( LAPACKE_get_nancheck() ) {
5254
/* Optionally check input matrices for NaNs */
53-
lapack_int lrv, lcv; /* row, column stride */
54-
if( matrix_layout == LAPACK_COL_MAJOR ) {
55-
lrv = 1;
56-
lcv = ldv;
57-
} else {
58-
lrv = ldv;
59-
lcv = 1;
60-
}
61-
ncols_v = LAPACKE_lsame( storev, 'c' ) ? k :
62-
( ( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( side, 'l' ) ) ? m :
63-
( ( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( side, 'r' ) ) ? n : 1) );
55+
left = LAPACKE_lsame( side, 'l' );
56+
col = LAPACKE_lsame( storev, 'c' );
57+
forward = LAPACKE_lsame( direct, 'f' );
6458

65-
nrows_v = ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'l' ) ) ? m :
66-
( ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'r' ) ) ? n :
67-
( LAPACKE_lsame( storev, 'r' ) ? k : 1) );
68-
if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) {
69-
return -13;
59+
nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
60+
ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
61+
uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
62+
63+
if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
64+
LAPACKE_xerbla( "LAPACKE_clarfb", -8 );
65+
return -8;
66+
}
67+
if( LAPACKE_ctz_nancheck( matrix_layout, direct, uplo, 'u',
68+
nrows_v, ncols_v, v, ldv ) ) {
69+
return -9;
7070
}
7171
if( LAPACKE_cge_nancheck( matrix_layout, k, k, t, ldt ) ) {
7272
return -11;
7373
}
74-
if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) {
75-
if( LAPACKE_ctr_nancheck( matrix_layout, 'l', 'u', k, v, ldv ) )
76-
return -9;
77-
if( LAPACKE_cge_nancheck( matrix_layout, nrows_v-k, ncols_v,
78-
&v[k*lrv], ldv ) )
79-
return -9;
80-
} else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) {
81-
if( k > nrows_v ) {
82-
LAPACKE_xerbla( "LAPACKE_clarfb", -8 );
83-
return -8;
84-
}
85-
if( LAPACKE_ctr_nancheck( matrix_layout, 'u', 'u', k,
86-
&v[(nrows_v-k)*lrv], ldv ) )
87-
return -9;
88-
if( LAPACKE_cge_nancheck( matrix_layout, nrows_v-k, ncols_v, v, ldv ) )
89-
return -9;
90-
} else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) {
91-
if( LAPACKE_ctr_nancheck( matrix_layout, 'u', 'u', k, v, ldv ) )
92-
return -9;
93-
if( LAPACKE_cge_nancheck( matrix_layout, nrows_v, ncols_v-k,
94-
&v[k*lrv], ldv ) )
95-
return -9;
96-
} else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'b' ) ) {
97-
if( k > ncols_v ) {
98-
LAPACKE_xerbla( "LAPACKE_clarfb", -8 );
99-
return -8;
100-
}
101-
if( LAPACKE_ctr_nancheck( matrix_layout, 'l', 'u', k,
102-
&v[(ncols_v-k)*lcv], ldv ) )
103-
return -9;
104-
if( LAPACKE_cge_nancheck( matrix_layout, nrows_v, ncols_v-k, v, ldv ) )
105-
return -9;
74+
if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) {
75+
return -13;
10676
}
10777
}
10878
#endif

‎LAPACKE/src/lapacke_clarfb_work.c‎

Lines changed: 17 additions & 40 deletions
Original file line numberDiff line numberDiff line change
@@ -42,6 +42,8 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans,
4242
{
4343
lapack_int info = 0;
4444
lapack_int nrows_v, ncols_v;
45+
lapack_logical left, col, forward;
46+
char uplo;
4547
lapack_int ldc_t, ldt_t, ldv_t;
4648
lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL;
4749
if( matrix_layout == LAPACK_COL_MAJOR ) {
@@ -52,16 +54,14 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans,
5254
info = info - 1;
5355
}
5456
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
55-
nrows_v = ( LAPACKE_lsame( storev, 'c' ) &&
56-
LAPACKE_lsame( side, 'l' ) ) ? m :
57-
( ( LAPACKE_lsame( storev, 'c' ) &&
58-
LAPACKE_lsame( side, 'r' ) ) ? n :
59-
( LAPACKE_lsame( storev, 'r' ) ? k : 1) );
60-
ncols_v = LAPACKE_lsame( storev, 'c' ) ? k :
61-
( ( LAPACKE_lsame( storev, 'r' ) &&
62-
LAPACKE_lsame( side, 'l' ) ) ? m :
63-
( ( LAPACKE_lsame( storev, 'r' ) &&
64-
LAPACKE_lsame( side, 'r' ) ) ? n : 1) );
57+
left = LAPACKE_lsame( side, 'l' );
58+
col = LAPACKE_lsame( storev, 'c' );
59+
forward = LAPACKE_lsame( direct, 'f' );
60+
61+
nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
62+
ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
63+
uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
64+
6565
ldc_t = MAX(1,m);
6666
ldt_t = MAX(1,k);
6767
ldv_t = MAX(1,nrows_v);
@@ -81,6 +81,11 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans,
8181
LAPACKE_xerbla( "LAPACKE_clarfb_work", info );
8282
return info;
8383
}
84+
if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
85+
info = -8;
86+
LAPACKE_xerbla( "LAPACKE_clarfb_work", info );
87+
return info;
88+
}
8489
/* Allocate memory for temporary array(s) */
8590
v_t = (lapack_complex_float*)
8691
LAPACKE_malloc( sizeof(lapack_complex_float) *
@@ -102,36 +107,8 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans,
102107
goto exit_level_2;
103108
}
104109
/* Transpose input matrices */
105-
if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) {
106-
LAPACKE_ctr_trans( matrix_layout, 'l', 'u', k, v, ldv, v_t, ldv_t );
107-
LAPACKE_cge_trans( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv,
108-
&v_t[k], ldv_t );
109-
} else if( LAPACKE_lsame( storev, 'c' ) &&
110-
LAPACKE_lsame( direct, 'b' ) ) {
111-
if( k > nrows_v ) {
112-
LAPACKE_xerbla( "LAPACKE_clarfb_work", -8 );
113-
return -8;
114-
}
115-
LAPACKE_ctr_trans( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv],
116-
ldv, &v_t[nrows_v-k], ldv_t );
117-
LAPACKE_cge_trans( matrix_layout, nrows_v-k, ncols_v, v, ldv, v_t,
118-
ldv_t );
119-
} else if( LAPACKE_lsame( storev, 'r' ) &&
120-
LAPACKE_lsame( direct, 'f' ) ) {
121-
LAPACKE_ctr_trans( matrix_layout, 'u', 'u', k, v, ldv, v_t, ldv_t );
122-
LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv,
123-
&v_t[k*ldv_t], ldv_t );
124-
} else if( LAPACKE_lsame( storev, 'r' ) &&
125-
LAPACKE_lsame( direct, 'b' ) ) {
126-
if( k > ncols_v ) {
127-
LAPACKE_xerbla( "LAPACKE_clarfb_work", -8 );
128-
return -8;
129-
}
130-
LAPACKE_ctr_trans( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv,
131-
&v_t[(ncols_v-k)*ldv_t], ldv_t );
132-
LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v-k, v, ldv, v_t,
133-
ldv_t );
134-
}
110+
LAPACKE_ctz_trans( matrix_layout, direct, uplo, 'u', nrows_v, ncols_v,
111+
v, ldv, v_t, ldv_t );
135112
LAPACKE_cge_trans( matrix_layout, k, k, t, ldt, t_t, ldt_t );
136113
LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t );
137114
/* Call LAPACK function and adjust info */

‎LAPACKE/src/lapacke_dlarfb.c‎

Lines changed: 19 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -41,67 +41,37 @@ lapack_int LAPACKE_dlarfb( int matrix_layout, char side, char trans, char direct
4141
lapack_int info = 0;
4242
lapack_int ldwork;
4343
double* work = NULL;
44-
lapack_int ncols_v, nrows_v;
44+
lapack_int nrows_v, ncols_v;
45+
lapack_logical left, col, forward;
46+
char uplo;
4547
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
4648
LAPACKE_xerbla( "LAPACKE_dlarfb", -1 );
4749
return -1;
4850
}
4951
#ifndef LAPACK_DISABLE_NAN_CHECK
5052
if( LAPACKE_get_nancheck() ) {
5153
/* Optionally check input matrices for NaNs */
52-
lapack_int lrv, lcv; /* row, column stride */
53-
if( matrix_layout == LAPACK_COL_MAJOR ) {
54-
lrv = 1;
55-
lcv = ldv;
56-
} else {
57-
lrv = ldv;
58-
lcv = 1;
59-
}
60-
ncols_v = LAPACKE_lsame( storev, 'c' ) ? k :
61-
( ( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( side, 'l' ) ) ? m :
62-
( ( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( side, 'r' ) ) ? n : 1) );
54+
left = LAPACKE_lsame( side, 'l' );
55+
col = LAPACKE_lsame( storev, 'c' );
56+
forward = LAPACKE_lsame( direct, 'f' );
6357

64-
nrows_v = ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'l' ) ) ? m :
65-
( ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'r' ) ) ? n :
66-
( LAPACKE_lsame( storev, 'r' ) ? k : 1) );
67-
if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) {
68-
return -13;
58+
nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
59+
ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
60+
uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
61+
62+
if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
63+
LAPACKE_xerbla( "LAPACKE_dlarfb", -8 );
64+
return -8;
65+
}
66+
if( LAPACKE_dtz_nancheck( matrix_layout, direct, uplo, 'u',
67+
nrows_v, ncols_v, v, ldv ) ) {
68+
return -9;
6969
}
7070
if( LAPACKE_dge_nancheck( matrix_layout, k, k, t, ldt ) ) {
7171
return -11;
7272
}
73-
if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) {
74-
if( LAPACKE_dtr_nancheck( matrix_layout, 'l', 'u', k, v, ldv ) )
75-
return -9;
76-
if( LAPACKE_dge_nancheck( matrix_layout, nrows_v-k, ncols_v,
77-
&v[k*lrv], ldv ) )
78-
return -9;
79-
} else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) {
80-
if( k > nrows_v ) {
81-
LAPACKE_xerbla( "LAPACKE_dlarfb", -8 );
82-
return -8;
83-
}
84-
if( LAPACKE_dtr_nancheck( matrix_layout, 'u', 'u', k,
85-
&v[(nrows_v-k)*lrv], ldv ) )
86-
return -9;
87-
if( LAPACKE_dge_nancheck( matrix_layout, nrows_v-k, ncols_v, v, ldv ) )
88-
return -9;
89-
} else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) {
90-
if( LAPACKE_dtr_nancheck( matrix_layout, 'u', 'u', k, v, ldv ) )
91-
return -9;
92-
if( LAPACKE_dge_nancheck( matrix_layout, nrows_v, ncols_v-k,
93-
&v[k*lrv], ldv ) )
94-
return -9;
95-
} else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'b' ) ) {
96-
if( k > ncols_v ) {
97-
LAPACKE_xerbla( "LAPACKE_dlarfb", -8 );
98-
return -8;
99-
}
100-
if( LAPACKE_dtr_nancheck( matrix_layout, 'l', 'u', k,
101-
&v[(ncols_v-k)*lcv], ldv ) )
102-
return -9;
103-
if( LAPACKE_dge_nancheck( matrix_layout, nrows_v, ncols_v-k, v, ldv ) )
104-
return -9;
73+
if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) {
74+
return -13;
10575
}
10676
}
10777
#endif

‎LAPACKE/src/lapacke_dlarfb_work.c‎

Lines changed: 17 additions & 40 deletions
Original file line numberDiff line numberDiff line change
@@ -41,6 +41,8 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans,
4141
{
4242
lapack_int info = 0;
4343
lapack_int nrows_v, ncols_v;
44+
lapack_logical left, col, forward;
45+
char uplo;
4446
lapack_int ldc_t, ldt_t, ldv_t;
4547
double *v_t = NULL, *t_t = NULL, *c_t = NULL;
4648
if( matrix_layout == LAPACK_COL_MAJOR ) {
@@ -51,16 +53,14 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans,
5153
info = info - 1;
5254
}
5355
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
54-
nrows_v = ( LAPACKE_lsame( storev, 'c' ) &&
55-
LAPACKE_lsame( side, 'l' ) ) ? m :
56-
( ( LAPACKE_lsame( storev, 'c' ) &&
57-
LAPACKE_lsame( side, 'r' ) ) ? n :
58-
( LAPACKE_lsame( storev, 'r' ) ? k : 1) );
59-
ncols_v = LAPACKE_lsame( storev, 'c' ) ? k :
60-
( ( LAPACKE_lsame( storev, 'r' ) &&
61-
LAPACKE_lsame( side, 'l' ) ) ? m :
62-
( ( LAPACKE_lsame( storev, 'r' ) &&
63-
LAPACKE_lsame( side, 'r' ) ) ? n : 1) );
56+
left = LAPACKE_lsame( side, 'l' );
57+
col = LAPACKE_lsame( storev, 'c' );
58+
forward = LAPACKE_lsame( direct, 'f' );
59+
60+
nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
61+
ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
62+
uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
63+
6464
ldc_t = MAX(1,m);
6565
ldt_t = MAX(1,k);
6666
ldv_t = MAX(1,nrows_v);
@@ -80,6 +80,11 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans,
8080
LAPACKE_xerbla( "LAPACKE_dlarfb_work", info );
8181
return info;
8282
}
83+
if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
84+
info = -8;
85+
LAPACKE_xerbla( "LAPACKE_dlarfb_work", info );
86+
return info;
87+
}
8388
/* Allocate memory for temporary array(s) */
8489
v_t = (double*)
8590
LAPACKE_malloc( sizeof(double) * ldv_t * MAX(1,ncols_v) );
@@ -98,36 +103,8 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans,
98103
goto exit_level_2;
99104
}
100105
/* Transpose input matrices */
101-
if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) {
102-
LAPACKE_dtr_trans( matrix_layout, 'l', 'u', k, v, ldv, v_t, ldv_t );
103-
LAPACKE_dge_trans( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv,
104-
&v_t[k], ldv_t );
105-
} else if( LAPACKE_lsame( storev, 'c' ) &&
106-
LAPACKE_lsame( direct, 'b' ) ) {
107-
if( k > nrows_v ) {
108-
LAPACKE_xerbla( "LAPACKE_dlarfb_work", -8 );
109-
return -8;
110-
}
111-
LAPACKE_dtr_trans( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv],
112-
ldv, &v_t[nrows_v-k], ldv_t );
113-
LAPACKE_dge_trans( matrix_layout, nrows_v-k, ncols_v, v, ldv, v_t,
114-
ldv_t );
115-
} else if( LAPACKE_lsame( storev, 'r' ) &&
116-
LAPACKE_lsame( direct, 'f' ) ) {
117-
LAPACKE_dtr_trans( matrix_layout, 'u', 'u', k, v, ldv, v_t, ldv_t );
118-
LAPACKE_dge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv,
119-
&v_t[k*ldv_t], ldv_t );
120-
} else if( LAPACKE_lsame( storev, 'r' ) &&
121-
LAPACKE_lsame( direct, 'b' ) ) {
122-
if( k > ncols_v ) {
123-
LAPACKE_xerbla( "LAPACKE_dlarfb_work", -8 );
124-
return -8;
125-
}
126-
LAPACKE_dtr_trans( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv,
127-
&v_t[(ncols_v-k)*ldv_t], ldv_t );
128-
LAPACKE_dge_trans( matrix_layout, nrows_v, ncols_v-k, v, ldv, v_t,
129-
ldv_t );
130-
}
106+
LAPACKE_dtz_trans( matrix_layout, direct, uplo, 'u', nrows_v, ncols_v,
107+
v, ldv, v_t, ldv_t );
131108
LAPACKE_dge_trans( matrix_layout, k, k, t, ldt, t_t, ldt_t );
132109
LAPACKE_dge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t );
133110
/* Call LAPACK function and adjust info */

0 commit comments

Comments
 (0)