41 float* beta,
float* q,
lapack_int ldq,
float* z,
43 float* pr,
float* dif,
float* work,
50 LAPACK_stgsen( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb,
51 alphar, alphai, beta, q, &ldq, z, &ldz, m, pl, pr, dif,
52 work, &lwork, iwork, &liwork, &info );
87 if( liwork == -1 || lwork == -1 ) {
88 LAPACK_stgsen( &ijob, &wantq, &wantz, select, &n, a, &lda_t, b,
89 &ldb_t, alphar, alphai, beta, q, &ldq_t, z, &ldz_t,
90 m, pl, pr, dif, work, &lwork, iwork, &liwork,
92 return (info < 0) ? (info - 1) : info;
129 LAPACK_stgsen( &ijob, &wantq, &wantz, select, &n, a_t, &lda_t, b_t,
130 &ldb_t, alphar, alphai, beta, q_t, &ldq_t, z_t, &ldz_t,
131 m, pl, pr, dif, work, &lwork, iwork, &liwork, &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_int LAPACKE_stgsen_work(int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical *select, lapack_int n, float *a, lapack_int lda, float *b, lapack_int ldb, float *alphar, float *alphai, float *beta, float *q, lapack_int ldq, float *z, lapack_int ldz, lapack_int *m, float *pl, float *pr, float *dif, float *work, lapack_int lwork, lapack_int *iwork, lapack_int liwork)
void LAPACKE_xerbla(const char *name, lapack_int info)
void LAPACK_stgsen(lapack_int *ijob, lapack_logical *wantq, lapack_logical *wantz, const lapack_logical *select, lapack_int *n, float *a, lapack_int *lda, float *b, lapack_int *ldb, float *alphar, float *alphai, float *beta, float *q, lapack_int *ldq, float *z, lapack_int *ldz, lapack_int *m, float *pl, float *pr, float *dif, float *work, lapack_int *lwork, lapack_int *iwork, lapack_int *liwork, lapack_int *info)
#define LAPACK_TRANSPOSE_MEMORY_ERROR