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