libflame  revision_anchor
Functions
FLA_Bsvd_ext_check.c File Reference

(r)

Functions

FLA_Error FLA_Bsvd_ext_check (FLA_Uplo uplo, FLA_Obj d, FLA_Obj e, FLA_Obj G, FLA_Obj H, FLA_Svd_type jobu, FLA_Obj U, FLA_Svd_type jobv, FLA_Obj V, FLA_Bool apply_Uh2C, FLA_Obj C)

Function Documentation

FLA_Error FLA_Bsvd_ext_check ( FLA_Uplo  uplo,
FLA_Obj  d,
FLA_Obj  e,
FLA_Obj  G,
FLA_Obj  H,
FLA_Svd_type  jobu,
FLA_Obj  U,
FLA_Svd_type  jobv,
FLA_Obj  V,
FLA_Bool  apply_Uh2C,
FLA_Obj  C 
)

References FLA_Bsvd_check(), FLA_Check_identical_object_datatype(), FLA_Check_object_length_equals(), and FLA_Obj_length().

Referenced by FLA_Bsvd_ext().

{
  FLA_Error e_val = FLA_SUCCESS;
  
  FLA_Bsvd_check( uplo, d, e, G, H, jobu, U, jobv, V );

  if ( apply_Uh2C != FALSE ) 
  {
    FLA_Check_identical_object_datatype( U, C );
    FLA_Check_error_code( e_val );

    FLA_Check_object_length_equals( C, FLA_Obj_length( U ) );
    FLA_Check_error_code( e_val );
  }

  return FLA_SUCCESS;
}