41{
44 float* rwork = NULL;
48 return -1;
49 }
50#ifndef LAPACK_DISABLE_NAN_CHECK
52
54 return -6;
55 }
58 return -8;
59 }
60 }
63 return -10;
64 }
65 }
66 }
67#endif
68
71 if( rwork == NULL ) {
73 goto exit_level_0;
74 }
75 }
79 ldwork *
MAX(1,n+6) );
80 if( work == NULL ) {
82 goto exit_level_1;
83 }
84 }
85
87 vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork,
88 rwork );
89
92 }
93exit_level_1:
96 }
97exit_level_0:
100 }
101 return info;
102}
#define lapack_complex_float
lapack_int LAPACKE_ctrsna_work(int matrix_layout, char job, char howmny, const lapack_logical *select, lapack_int n, const lapack_complex_float *t, lapack_int ldt, const lapack_complex_float *vl, lapack_int ldvl, const lapack_complex_float *vr, lapack_int ldvr, float *s, float *sep, lapack_int mm, lapack_int *m, lapack_complex_float *work, lapack_int ldwork, float *rwork)
#define LAPACK_WORK_MEMORY_ERROR
int LAPACKE_get_nancheck(void)
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_logical LAPACKE_cge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda)
1.9.5