76 if( ( rowmaj || ntr ) && !( rowmaj && ntr ) ) {
106 n1, &a[(
size_t)n2*n2], n2 )
110 n2, &a[(
size_t)n1*n2], n2 );
116 if( ( rowmaj || ntr ) && !( rowmaj && ntr ) ) {
140 &a[(
size_t)k*(k+1)], k )
145 k, &a[(
size_t)k*(k+1)], k )
149 k, &a[(
size_t)k*k], k );
lapack_logical LAPACKE_lsame(char ca, char cb)
lapack_logical LAPACKE_ztr_nancheck(int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *a, lapack_int lda)
lapack_logical LAPACKE_zge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda)