{
lapack_int info = 0;
lapack_int r;
- lapack_int lda_t, ldc_t;
- lapack_complex_float* a_t = NULL;
- lapack_complex_float* c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_cunmlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
r = LAPACKE_lsame( side, 'l' ) ? m : n;
- lda_t = MAX(1,k);
- ldc_t = MAX(1,m);
+ lapack_int lda_t = MAX(1,k);
+ lapack_int ldc_t = MAX(1,m);
+ lapack_complex_float* a_t = NULL;
+ lapack_complex_float* c_t = NULL;
/* Check leading dimension(s) */
if( lda < r ) {
info = -8;
{
lapack_int info = 0;
lapack_int r;
- lapack_int lda_t, ldc_t;
- double *a_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_dormlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
r = LAPACKE_lsame( side, 'l' ) ? m : n;
- lda_t = MAX(1,k);
- ldc_t = MAX(1,m);
+ lapack_int lda_t = MAX(1,k);
+ lapack_int ldc_t = MAX(1,m);
+ double *a_t = NULL;
+ double *c_t = NULL;
/* Check leading dimension(s) */
if( lda < r ) {
info = -8;
{
lapack_int info = 0;
lapack_int r;
- lapack_int lda_t, ldc_t;
- float *a_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_sormlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
r = LAPACKE_lsame( side, 'l' ) ? m : n;
- lda_t = MAX(1,k);
- ldc_t = MAX(1,m);
+ lapack_int lda_t = MAX(1,k);
+ lapack_int ldc_t = MAX(1,m);
+ float *a_t = NULL;
+ float *c_t = NULL;
/* Check leading dimension(s) */
if( lda < r ) {
info = -8;
{
lapack_int info = 0;
lapack_int r;
- lapack_int lda_t, ldc_t;
- lapack_complex_double* a_t = NULL;
- lapack_complex_double* c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_zunmlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
r = LAPACKE_lsame( side, 'l' ) ? m : n;
- lda_t = MAX(1,k);
- ldc_t = MAX(1,m);
+ lapack_int lda_t = MAX(1,k);
+ lapack_int ldc_t = MAX(1,m);
+ lapack_complex_double* a_t = NULL;
+ lapack_complex_double* c_t = NULL;
/* Check leading dimension(s) */
if( lda < r ) {
info = -8;