67 if( ( colmaj || upper ) && !( colmaj && upper ) ) {
68 for( i = 1; i < n; i++ )
72 for( i = 0; i < n-1; i++ )
74 &ap[ (
size_t)i+1 + i*((
size_t)2*n-i+1)/2 ], 1 ) )
lapack_logical LAPACKE_z_nancheck(lapack_int n, const lapack_complex_double *x, lapack_int incx)
#define lapack_complex_double
lapack_logical LAPACKE_ztp_nancheck(int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *ap)
lapack_logical LAPACKE_lsame(char ca, char cb)