42{
45
46 LAPACK_ztrevc( &side, &howmny, select, &n, t, &ldt, vl, &ldvl, vr,
47 &ldvr, &mm, m, work, rwork, &info );
48 if( info < 0 ) {
49 info = info - 1;
50 }
58
59 if( ldt < n ) {
60 info = -7;
62 return info;
63 }
64 if( ldvl < mm ) {
65 info = -9;
67 return info;
68 }
69 if( ldvr < mm ) {
70 info = -11;
72 return info;
73 }
74
77 if( t_t == NULL ) {
79 goto exit_level_0;
80 }
85 if( vl_t == NULL ) {
87 goto exit_level_1;
88 }
89 }
94 if( vr_t == NULL ) {
96 goto exit_level_2;
97 }
98 }
99
104 }
108 }
109
110 LAPACK_ztrevc( &side, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t,
111 vr_t, &ldvr_t, &mm, m, work, rwork, &info );
112 if( info < 0 ) {
113 info = info - 1;
114 }
115
119 ldvl );
120 }
123 ldvr );
124 }
125
128 }
129exit_level_2:
132 }
133exit_level_1:
135exit_level_0:
138 }
139 } else {
140 info = -1;
142 }
143 return info;
144}
#define lapack_complex_double
#define LAPACK_ztrevc(...)
#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_zge_trans(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout)
1.9.5