LAPACKE_get_nancheck()

int LAPACKE_get_nancheck

(

void

)

Definition at line 42 of file lapacke_nancheck.c.

{
    char* env;
    if ( nancheck_flag != -1 ) {
        return nancheck_flag;
    }
 
    /* Check environment variable, once and only once */
    env = getenv( "LAPACKE_NANCHECK" );
    if ( !env ) {
        /* By default, NaN checking is enabled */
        nancheck_flag = 1;
    } else {
        nancheck_flag = atoi( env ) ? 1 : 0;
    }
 
    return nancheck_flag;
}