libflame
revision_anchor
src
lapack
red
tridiagut
front
flamec
Functions
FLA_Tridiag_UT_u.c File Reference
(r)
Functions
FLA_Error
FLA_Tridiag_UT_u
(
FLA_Obj
A,
FLA_Obj
T,
fla_tridiagut_t
*cntl)
Function Documentation
◆
FLA_Tridiag_UT_u()
FLA_Error
FLA_Tridiag_UT_u
(
FLA_Obj
A
,
FLA_Obj
T
,
fla_tridiagut_t
*
cntl
)
14
{
15
FLA_Error
r_val = FLA_SUCCESS;
16
17
/*
18
if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
19
{
20
r_val = FLA_Tridiag_UT_u_unb_var1( A, T );
21
}
22
else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
23
{
24
r_val = FLA_Tridiag_UT_u_unb_var2( A, T );
25
}
26
else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
27
{
28
r_val = FLA_Tridiag_UT_u_unb_var3( A, T );
29
}
30
else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
31
{
32
r_val = FLA_Tridiag_UT_u_opt_var1( A, T );
33
}
34
else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
35
{
36
r_val = FLA_Tridiag_UT_u_opt_var2( A, T );
37
}
38
else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT3 )
39
{
40
r_val = FLA_Tridiag_UT_u_opt_var3( A, T );
41
}
42
else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
43
{
44
r_val = FLA_Tridiag_UT_u_blk_var1( A, T );
45
}
46
else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
47
{
48
r_val = FLA_Tridiag_UT_u_blk_var2( A, T );
49
}
50
else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
51
{
52
r_val = FLA_Tridiag_UT_u_blk_var3( A, T );
53
}
54
else
55
*/
56
{
57
FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
58
}
59
60
return
r_val;
61
}
FLA_Error
int FLA_Error
Definition:
FLA_type_defs.h:47
Generated on Thu Sep 23 2021 17:46:17 for libflame by
1.9.1