47 if( in == NULL || out == NULL ) return ;
72 if( ( colmaj || upper ) && !( colmaj && upper ) ) {
73 for( j = st; j < n; j++ ) {
74 for( i = 0; i < j+1-st; i++ ) {
75 out[ j-i + (i*(2*n-i+1))/2 ] = in[ ((j+1)*j)/2 + i ];
79 for( j = 0; j < n-st; j++ ) {
80 for( i = j+st; i < n; i++ ) {
81 out[ j + ((i+1)*i)/2 ] = in[ (j*(2*n-j+1))/2 + i-j ];
#define lapack_complex_float
void LAPACKE_ctp_trans(int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out)
lapack_logical LAPACKE_lsame(char ca, char cb)