39{
42
44 if( info < 0 ) {
45 info = info - 1;
46 }
50
51 if( lda < n ) {
52 info = -5;
54 return info;
55 }
56
59 if( a_t == NULL ) {
61 goto exit_level_0;
62 }
63
65
67 if( info < 0 ) {
68 info = info - 1;
69 }
70
72
74exit_level_0:
77 }
78 } else {
79 info = -1;
81 }
82 return info;
83}
#define LAPACK_csytri(...)
#define lapack_complex_float
#define LAPACKE_malloc(size)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
void LAPACKE_xerbla(const char *name, lapack_int info)
void LAPACKE_csy_trans(int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout)