OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
lapacke_nancheck.c File Reference
#include "lapacke_utils.h"

Go to the source code of this file.

Functions

void LAPACKE_set_nancheck (int flag)
int LAPACKE_get_nancheck ()

Variables

static int nancheck_flag = -1

Function Documentation

◆ LAPACKE_get_nancheck()

int LAPACKE_get_nancheck ( void )

Definition at line 42 of file lapacke_nancheck.c.

43{
44 char* env;
45 if ( nancheck_flag != -1 ) {
46 return nancheck_flag;
47 }
48
49 /* Check environment variable, once and only once */
50 env = getenv( "LAPACKE_NANCHECK" );
51 if ( !env ) {
52 /* By default, NaN checking is enabled */
53 nancheck_flag = 1;
54 } else {
55 nancheck_flag = atoi( env ) ? 1 : 0;
56 }
57
58 return nancheck_flag;
59}
static int nancheck_flag

◆ LAPACKE_set_nancheck()

void LAPACKE_set_nancheck ( int flag)

Definition at line 37 of file lapacke_nancheck.c.

38{
39 nancheck_flag = ( flag ) ? 1 : 0;
40}
*fortran !University of Stuttgart All rights reserved Inc All rights reserved ! $COPYRIGHT$ !Additional copyrights may follow ! $HEADER$ !WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING !Do ***not ***copy this file to the directory where your Fortran !fortran application is compiled unless it is absolutely necessary !Most !modern Fortran compilers now support the I command line flag
Definition mpif.h:26

Variable Documentation

◆ nancheck_flag

int nancheck_flag = -1
static

Definition at line 35 of file lapacke_nancheck.c.