libflame  revision_anchor
Functions | Variables
FLA_CAQR2_UT_internal.c File Reference

(r)

Functions

FLA_Error FLA_CAQR2_UT_internal (FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_caqr2ut_t *cntl)
 

Variables

fla_caqr2ut_tflash_caqr2ut_cntl
 
fla_caqr2ut_tfla_caqr2ut_cntl_leaf
 

Function Documentation

◆ FLA_CAQR2_UT_internal()

FLA_Error FLA_CAQR2_UT_internal ( FLA_Obj  B,
FLA_Obj  D,
FLA_Obj  T,
fla_caqr2ut_t cntl 
)

References FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR2_UT_internal_check(), FLA_CAQR2_UT_opt_var1(), FLA_CAQR2_UT_unb_var1(), fla_caqr2ut_cntl_leaf, FLA_Check_error_level(), FLA_Obj_elemtype(), FLA_Obj_structure(), FLA_QR2_UT_task(), and FLASH_Queue_get_enabled().

Referenced by FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR2_UT_task(), and FLA_CAQR_UT_inc_blk_var1().

18 {
19  FLA_Error r_val = FLA_SUCCESS;
20 
21  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
22  FLA_CAQR2_UT_internal_check( B, D, T, cntl );
23 
24  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25  FLA_Obj_elemtype( B ) == FLA_MATRIX &&
26  FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
27  {
28  // Recurse
29  r_val = FLA_CAQR2_UT_internal( *FLASH_OBJ_PTR_AT( B ),
30  *FLASH_OBJ_PTR_AT( D ),
31  *FLASH_OBJ_PTR_AT( T ),
33  }
34  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
35  FLA_Obj_elemtype( B ) == FLA_SCALAR &&
37  {
38  // Enqueue
39  if ( FLA_Obj_structure( D ) == FLA_FULL_MATRIX )
40  {
41  ENQUEUE_FLASH_QR2_UT( B, D, T, cntl );
42  }
43  else if ( FLA_Obj_structure( D ) == FLA_UPPER_TRIANGULAR )
44  {
45  ENQUEUE_FLASH_CAQR2_UT( B, D, T, cntl );
46  }
47  else if ( FLA_Obj_structure( D ) == FLA_ZERO_MATRIX )
48  {
49  // Don't enqueue any tasks for zero blocks.
50  }
51  else
52  {
53  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
54  }
55  }
56  else
57  {
58  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
59  FLA_Obj_elemtype( B ) == FLA_SCALAR &&
61  {
62  // Execute leaf.
63  if ( FLA_Obj_structure( D ) == FLA_FULL_MATRIX )
64  {
65  FLA_QR2_UT_task( B, D, T, NULL );
66  return FLA_SUCCESS;
67  }
68  else if ( FLA_Obj_structure( D ) == FLA_UPPER_TRIANGULAR )
69  cntl = fla_caqr2ut_cntl_leaf;
70  else if ( FLA_Obj_structure( D ) == FLA_ZERO_MATRIX )
71  return FLA_SUCCESS;
72  else
73  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
74  }
75 
76  if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
77  {
78  r_val = FLA_CAQR2_UT_unb_var1( B, D, T );
79  }
80  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
81  {
82  r_val = FLA_CAQR2_UT_opt_var1( B, D, T );
83  }
84  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
85  {
86  r_val = FLA_CAQR2_UT_blk_var1( B, D, T, cntl );
87  }
88  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
89  {
90  r_val = FLA_CAQR2_UT_blk_var2( B, D, T, cntl );
91  }
92  else
93  {
94  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
95  }
96  }
97 
98  return r_val;
99 }
FLA_Error FLA_CAQR2_UT_opt_var1(FLA_Obj U, FLA_Obj D, FLA_Obj T)
Definition: FLA_CAQR2_UT_opt_var1.c:13
FLA_Error FLA_CAQR2_UT_blk_var1(FLA_Obj U, FLA_Obj D, FLA_Obj T, fla_caqr2ut_t *cntl)
Definition: FLA_CAQR2_UT_blk_var1.c:13
fla_caqr2ut_t * flash_caqr2ut_cntl
Definition: FLASH_CAQR2_UT_cntl_init.c:14
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_CAQR2_UT_blk_var2(FLA_Obj U, FLA_Obj D, FLA_Obj T, fla_caqr2ut_t *cntl)
Definition: FLA_CAQR2_UT_blk_var2.c:13
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_CAQR2_UT_unb_var1(FLA_Obj U, FLA_Obj D, FLA_Obj T)
Definition: FLA_CAQR2_UT_unb_var1.c:13
FLA_Error FLA_CAQR2_UT_internal(FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_caqr2ut_t *cntl)
Definition: FLA_CAQR2_UT_internal.c:16
FLA_Error FLA_QR2_UT_task(FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_qr2ut_t *cntl)
Definition: FLA_QR2_UT_task.c:15
FLA_Error FLA_CAQR2_UT_internal_check(FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_caqr2ut_t *cntl)
Definition: FLA_CAQR2_UT_internal_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
fla_caqr2ut_t * fla_caqr2ut_cntl_leaf
Definition: FLA_CAQR2_UT_cntl_init.c:20
FLA_Uplo FLA_Obj_structure(FLA_Obj obj)
Definition: FLA_Query.c:130
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51

Variable Documentation

◆ fla_caqr2ut_cntl_leaf

fla_caqr2ut_t* fla_caqr2ut_cntl_leaf

Referenced by FLA_CAQR2_UT_internal().

◆ flash_caqr2ut_cntl

fla_caqr2ut_t* flash_caqr2ut_cntl