Same for c,s,z
See http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=5018
Thanks to pysmile@lapack-forum for bug report
}
/* Transpose input matrices */
LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
}
/* Transpose input matrices */
LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
- LAPACKE_cge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t );
+ LAPACKE_che_trans( matrix_layout, uplo, n, b, ldb, b_t, ldb_t );
/* Call LAPACK function and adjust info */
LAPACK_chegvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
/* Call LAPACK function and adjust info */
LAPACK_chegvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
}
/* Transpose output matrices */
LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
}
/* Transpose output matrices */
LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
- LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, b_t, ldb_t, b, ldb );
+ LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, b_t, ldb_t, b, ldb );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
}
/* Transpose input matrices */
LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
}
/* Transpose input matrices */
LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
- LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t );
+ LAPACKE_dsy_trans( matrix_layout, uplo, n, b, ldb, b_t, ldb_t );
/* Call LAPACK function and adjust info */
LAPACK_dsygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
/* Call LAPACK function and adjust info */
LAPACK_dsygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
}
/* Transpose output matrices */
LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
}
/* Transpose output matrices */
LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
- LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, n, b_t, ldb_t, b, ldb );
+ LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, b_t, ldb_t, b, ldb );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
}
/* Transpose input matrices */
LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
}
/* Transpose input matrices */
LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
- LAPACKE_sge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t );
+ LAPACKE_ssy_trans( matrix_layout, uplo, n, b, ldb, b_t, ldb_t );
/* Call LAPACK function and adjust info */
LAPACK_ssygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
/* Call LAPACK function and adjust info */
LAPACK_ssygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
}
/* Transpose output matrices */
LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
}
/* Transpose output matrices */
LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
- LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, n, b_t, ldb_t, b, ldb );
+ LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, b_t, ldb_t, b, ldb );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
}
/* Transpose input matrices */
LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
}
/* Transpose input matrices */
LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
- LAPACKE_zge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t );
+ LAPACKE_zhe_trans( matrix_layout, uplo, n, b, ldb, b_t, ldb_t );
/* Call LAPACK function and adjust info */
LAPACK_zhegvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
/* Call LAPACK function and adjust info */
LAPACK_zhegvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t,
&ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t,
}
/* Transpose output matrices */
LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
}
/* Transpose output matrices */
LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
- LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, n, b_t, ldb_t, b, ldb );
+ LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, b_t, ldb_t, b, ldb );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );
if( LAPACKE_lsame( jobz, 'v' ) ) {
LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, ncols_z, z_t, ldz_t, z,
ldz );