Exemplo n.º 1
0
FLA_Error FLA_Scalc_check( FLA_Conj conjalpha, FLA_Obj alpha, FLA_Obj A )
{
    FLA_Error e_val;

    e_val = FLA_Check_valid_conj( conjalpha );
    FLA_Check_error_code( e_val );

    e_val = FLA_Check_floating_object( A );
    FLA_Check_error_code( e_val );

    e_val = FLA_Check_nonconstant_object( A );
    FLA_Check_error_code( e_val );

    if ( FLA_Obj_is_real( A ) )
    {
        e_val = FLA_Check_consistent_object_datatype( A, alpha );
        FLA_Check_error_code( e_val );
    }
    else
    {
        e_val = FLA_Check_identical_object_precision( A, alpha );
        FLA_Check_error_code( e_val );
    }

    e_val = FLA_Check_if_scalar( alpha );
    FLA_Check_error_code( e_val );

    return FLA_SUCCESS;
}
Exemplo n.º 2
0
FLA_Error FLA_Dotc_check( FLA_Conj conj, FLA_Obj x, FLA_Obj y, FLA_Obj rho )
{
  FLA_Error e_val;

  e_val = FLA_Check_valid_conj( conj );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_floating_object( x );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_nonconstant_object( x );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_identical_object_datatype( x, y );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_identical_object_datatype( x, rho );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_if_vector( x );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_if_vector( y );
  FLA_Check_error_code( e_val );

  e_val = FLA_Check_equal_vector_dims( x, y );
  FLA_Check_error_code( e_val );

  return FLA_SUCCESS;
}