49 LAPACK_sgges3( &jobvsl, &jobvsr, &sort, selctg, &n, a, &lda, b, &ldb,
50 sdim, alphar, alphai, beta, vsl, &ldvsl, vsr, &ldvsr,
51 work, &lwork, bwork, &info );
87 LAPACK_sgges3( &jobvsl, &jobvsr, &sort, selctg, &n, a, &lda_t, b,
88 &ldb_t, sdim, alphar, alphai, beta, vsl, &ldvsl_t,
89 vsr, &ldvsr_t, work, &lwork, bwork, &info );
90 return (info < 0) ? (info - 1) : info;
106 if( vsl_t == NULL ) {
114 if( vsr_t == NULL ) {
123 LAPACK_sgges3( &jobvsl, &jobvsr, &sort, selctg, &n, a_t, &lda_t, b_t,
124 &ldb_t, sdim, alphar, alphai, beta, vsl_t, &ldvsl_t,
125 vsr_t, &ldvsr_t, work, &lwork, bwork, &info );
void LAPACKE_sge_trans(int matrix_layout, lapack_int m, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout)
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
void LAPACK_sgges3(char *jobvsl, char *jobvsr, char *sort, LAPACK_S_SELECT3 selctg, lapack_int *n, float *a, lapack_int *lda, float *b, lapack_int *ldb, lapack_int *sdim, float *alphar, float *alphai, float *beta, float *vsl, lapack_int *ldvsl, float *vsr, lapack_int *ldvsr, float *work, lapack_int *lwork, lapack_logical *bwork, lapack_int *info)