40{
44 float *a_t = NULL, *c_t = NULL;
46
47 LAPACK_sormqr( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
48 &lwork, &info );
49 if( info < 0 ) {
50 info = info - 1;
51 }
56
57 if( lda < k ) {
58 info = -8;
60 return info;
61 }
62 if( ldc < n ) {
63 info = -11;
65 return info;
66 }
67
68 if( lwork == -1 ) {
69 LAPACK_sormqr( &side, &trans, &m, &n, &k, a, &lda_t, tau, c, &ldc_t,
70 work, &lwork, &info );
71 return (info < 0) ? (info - 1) : info;
72 }
73
75 if( a_t == NULL ) {
77 goto exit_level_0;
78 }
80 if( c_t == NULL ) {
82 goto exit_level_1;
83 }
84
87
88 LAPACK_sormqr( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t,
89 work, &lwork, &info );
90 if( info < 0 ) {
91 info = info - 1;
92 }
93
95
97exit_level_1:
99exit_level_0:
102 }
103 } else {
104 info = -1;
106 }
107 return info;
108}
#define LAPACK_sormqr(...)
#define LAPACKE_malloc(size)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int 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)