48 LAPACK_sorbdb( &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12,
49 x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2,
50 tauq1, tauq2, work, &lwork, &info );
90 LAPACK_sorbdb( &trans, &signs, &m, &p, &q, x11, &ldx11_t, x12,
91 &ldx12_t, x21, &ldx21_t, x22, &ldx22_t, theta, phi,
92 taup1, taup2, tauq1, tauq2, work, &lwork, &info );
93 return (info < 0) ? (info - 1) : info;
102 if( x12_t == NULL ) {
107 if( x21_t == NULL ) {
112 if( x22_t == NULL ) {
126 LAPACK_sorbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t,
127 &ldx12_t, x21_t, &ldx21_t, x22_t, &ldx22_t, theta, phi,
128 taup1, taup2, tauq1, tauq2, work, &lwork, &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)
void LAPACK_sorbdb(char *trans, char *signs, lapack_int *m, lapack_int *p, lapack_int *q, float *x11, lapack_int *ldx11, float *x12, lapack_int *ldx12, float *x21, lapack_int *ldx21, float *x22, lapack_int *ldx22, float *theta, float *phi, float *taup1, float *taup2, float *tauq1, float *tauq2, float *work, lapack_int *lwork, lapack_int *info)
#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