LAPACKE_zge_nancheck()

lapack_logical LAPACKE_zge_nancheck	(	int	matrix_layout,
		lapack_int	m,
		lapack_int	n,
		const lapack_complex_double *	a,
		lapack_int	lda
	)

Definition at line 36 of file lapacke_zge_nancheck.c.

{
    lapack_int i, j;
 
    if( a == NULL ) return (lapack_logical) 0;
 
    if( matrix_layout == LAPACK_COL_MAJOR ) {
        for( j = 0; j < n; j++ ) {
            for( i = 0; i < MIN( m, lda ); i++ ) {
                if( LAPACK_ZISNAN( a[i+(size_t)j*lda] ) )
                    return (lapack_logical) 1;
            }
        }
    } else if ( matrix_layout == LAPACK_ROW_MAJOR ) {
        for( i = 0; i < m; i++ ) {
            for( j = 0; j < MIN( n, lda ); j++ ) {
                if( LAPACK_ZISNAN( a[(size_t)i*lda+j] ) )
                    return (lapack_logical) 1;
            }
        }
    }
    return (lapack_logical) 0;