libflame  revision_anchor
Functions
FLA_LU_piv_macro_task.c File Reference

(r)

Functions

FLA_Error FLA_LU_piv_macro_task (FLA_Obj A, FLA_Obj p, fla_lu_t *cntl)
 

Function Documentation

◆ FLA_LU_piv_macro_task()

FLA_Error FLA_LU_piv_macro_task ( FLA_Obj  A,
FLA_Obj  p,
fla_lu_t cntl 
)

References FLA_LU_piv_task(), FLA_Obj_free(), FLA_Obj_length(), FLASH_Copy_flat_to_hier(), and FLASH_Obj_create_flat_copy_of_hier().

Referenced by FLA_LU_piv_internal(), and FLASH_Queue_exec_task().

14 {
15  FLA_Error r_val;
16  FLA_Obj A_flat;
17 
18  if ( FLA_Obj_length( A ) > 1 )
19  {
21 
22  r_val = FLA_LU_piv_task( A_flat, p, cntl );
23 
24  FLASH_Copy_flat_to_hier( A_flat, 0, 0, A );
25 
26  FLA_Obj_free( &A_flat );
27  }
28  else
29  {
30  r_val = FLA_LU_piv_task( *FLASH_OBJ_PTR_AT( A ), p, cntl );
31  }
32 
33  return r_val;
34 }
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588
FLA_Error FLA_LU_piv_task(FLA_Obj A, FLA_Obj p, fla_lu_t *cntl)
Definition: FLA_LU_piv_task.c:15
int FLA_Error
Definition: FLA_type_defs.h:47
Definition: FLA_type_defs.h:158
FLA_Error FLASH_Copy_flat_to_hier(FLA_Obj F, dim_t i, dim_t j, FLA_Obj H)
Definition: FLASH_Copy_other.c:81
FLA_Error FLASH_Obj_create_flat_copy_of_hier(FLA_Obj H, FLA_Obj *F)
Definition: FLASH_Obj.c:623
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116