16 int r_val = FLA_SUCCESS;
27 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
29 if ( *buff_alpha <= 0.0F || isnan(*buff_alpha) )
32 *buff_alpha = ( float ) sqrt( *buff_alpha );
39 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
41 if ( *buff_alpha <= 0.0 || isnan(*buff_alpha) )
44 *buff_alpha = ( double ) sqrt( *buff_alpha );
53 if ( buff_alpha->
real <= 0.0F || isnan(buff_alpha->
real) )
56 buff_alpha->
real = ( float ) sqrt( buff_alpha->
real );
61 case FLA_DOUBLE_COMPLEX:
65 if ( buff_alpha->
real <= 0.0 || isnan(buff_alpha->
real) )
68 buff_alpha->
real = ( double ) sqrt( buff_alpha->
real );
float real
Definition: blis_type_defs.h:134
double real
Definition: blis_type_defs.h:139
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
Definition: blis_type_defs.h:132
FLA_Error FLA_Sqrt_check(FLA_Obj alpha)
Definition: FLA_Sqrt_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Datatype
Definition: FLA_type_defs.h:49
Definition: blis_type_defs.h:137