libflame  revision_anchor
Functions
FLA_Hess_UT_internal.c File Reference

(r)

Functions

FLA_Error FLA_Hess_UT_internal (FLA_Obj A, FLA_Obj T, fla_hessut_t *cntl)
 

Function Documentation

◆ FLA_Hess_UT_internal()

FLA_Error FLA_Hess_UT_internal ( FLA_Obj  A,
FLA_Obj  T,
fla_hessut_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
18  FLA_Hess_UT_internal_check( A, T, cntl );
19 
20  {
21  if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Hess_UT_unb_var1( A, T );
24  }
25  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
26  {
27  r_val = FLA_Hess_UT_unb_var2( A, T );
28  }
29  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
30  {
31  r_val = FLA_Hess_UT_unb_var3( A, T );
32  }
33  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
34  {
35  r_val = FLA_Hess_UT_unb_var4( A, T );
36  }
37  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
38  {
39  r_val = FLA_Hess_UT_unb_var5( A, T );
40  }
41  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
42  {
43  r_val = FLA_Hess_UT_opt_var1( A, T );
44  }
45  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
46  {
47  r_val = FLA_Hess_UT_opt_var2( A, T );
48  }
49  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT3 )
50  {
51  r_val = FLA_Hess_UT_opt_var3( A, T );
52  }
53  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 )
54  {
55  r_val = FLA_Hess_UT_opt_var4( A, T );
56  }
57  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
58  {
59  r_val = FLA_Hess_UT_opt_var5( A, T );
60  }
61  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
62  {
63  r_val = FLA_Hess_UT_blk_var1( A, T );
64  }
65  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
66  {
67  r_val = FLA_Hess_UT_blk_var2( A, T );
68  }
69  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
70  {
71  r_val = FLA_Hess_UT_blk_var3( A, T );
72  }
73  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
74  {
75  r_val = FLA_Hess_UT_blk_var4( A, T );
76  }
77  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
78  {
79  r_val = FLA_Hess_UT_blk_var5( A, T );
80  }
81  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT2 )
82  {
83  r_val = FLA_Hess_UT_blf_var2( A, T );
84  }
85  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT3 )
86  {
87  r_val = FLA_Hess_UT_blf_var3( A, T );
88  }
89  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT4 )
90  {
91  r_val = FLA_Hess_UT_blf_var4( A, T );
92  }
93  else
94  {
95  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
96  }
97  }
98 
99  return r_val;
100 }
FLA_Error FLA_Hess_UT_blf_var2(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blf_var2.c:13
FLA_Error FLA_Hess_UT_blf_var3(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blf_var3.c:13
FLA_Error FLA_Hess_UT_blf_var4(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blf_var4.c:13
FLA_Error FLA_Hess_UT_blk_var1(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blk_var1.c:13
FLA_Error FLA_Hess_UT_blk_var2(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blk_var2.c:13
FLA_Error FLA_Hess_UT_blk_var3(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blk_var3.c:13
FLA_Error FLA_Hess_UT_blk_var4(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blk_var4.c:13
FLA_Error FLA_Hess_UT_blk_var5(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_blk_var5.c:13
FLA_Error FLA_Hess_UT_internal_check(FLA_Obj A, FLA_Obj T, fla_hessut_t *cntl)
Definition: FLA_Hess_UT_internal_check.c:13
FLA_Error FLA_Hess_UT_opt_var1(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_opt_var1.c:13
FLA_Error FLA_Hess_UT_opt_var2(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_opt_var2.c:13
FLA_Error FLA_Hess_UT_opt_var3(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_opt_var3.c:13
FLA_Error FLA_Hess_UT_opt_var4(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_opt_var4.c:13
FLA_Error FLA_Hess_UT_opt_var5(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_opt_var5.c:13
FLA_Error FLA_Hess_UT_unb_var1(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_unb_var1.c:13
FLA_Error FLA_Hess_UT_unb_var2(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_unb_var2.c:13
FLA_Error FLA_Hess_UT_unb_var3(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_unb_var3.c:13
FLA_Error FLA_Hess_UT_unb_var4(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_unb_var4.c:13
FLA_Error FLA_Hess_UT_unb_var5(FLA_Obj A, FLA_Obj T)
Definition: FLA_Hess_UT_unb_var5.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Check_error_level(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_internal_check(), FLA_Hess_UT_opt_var1(), FLA_Hess_UT_opt_var2(), FLA_Hess_UT_opt_var3(), FLA_Hess_UT_opt_var4(), FLA_Hess_UT_opt_var5(), FLA_Hess_UT_unb_var1(), FLA_Hess_UT_unb_var2(), FLA_Hess_UT_unb_var3(), FLA_Hess_UT_unb_var4(), and FLA_Hess_UT_unb_var5().

Referenced by FLA_Hess_UT().