1 /*
2
3 Copyright (C) 2014, The University of Texas at Austin
4
5 This file is part of libflame and is available under the 3-Clause
6 BSD license, which can be found in the LICENSE file at the top-level
7 directory, or at http://opensource.org/licenses/BSD-3-Clause
8
9 */
10
11 #include "FLAME.h"
12
13 extern fla_trinv_t* fla_trinv_cntl_leaf;
14
FLA_Trinv_task(FLA_Uplo uplo,FLA_Diag diag,FLA_Obj A,fla_trinv_t * cntl)15 FLA_Error FLA_Trinv_task( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl )
16 {
17 return FLA_Trinv_internal( uplo, diag, A,
18 fla_trinv_cntl_leaf );
19 }
20
FLA_Trinv_ln_task(FLA_Obj A,fla_trinv_t * cntl)21 FLA_Error FLA_Trinv_ln_task( FLA_Obj A, fla_trinv_t* cntl )
22 {
23 //return FLA_Trinv_unb_external( FLA_LOWER_TRIANGULAR, FLA_NONUNIT_DIAG, A );
24 return FLA_Trinv_internal( FLA_LOWER_TRIANGULAR, FLA_NONUNIT_DIAG, A,
25 fla_trinv_cntl_leaf );
26 }
27
FLA_Trinv_lu_task(FLA_Obj A,fla_trinv_t * cntl)28 FLA_Error FLA_Trinv_lu_task( FLA_Obj A, fla_trinv_t* cntl )
29 {
30 //return FLA_Trinv_unb_external( FLA_LOWER_TRIANGULAR, FLA_UNIT_DIAG, A );
31 return FLA_Trinv_internal( FLA_LOWER_TRIANGULAR, FLA_UNIT_DIAG, A,
32 fla_trinv_cntl_leaf );
33 }
34
FLA_Trinv_un_task(FLA_Obj A,fla_trinv_t * cntl)35 FLA_Error FLA_Trinv_un_task( FLA_Obj A, fla_trinv_t* cntl )
36 {
37 //return FLA_Trinv_unb_external( FLA_UPPER_TRIANGULAR, FLA_NONUNIT_DIAG, A );
38 return FLA_Trinv_internal( FLA_UPPER_TRIANGULAR, FLA_NONUNIT_DIAG, A,
39 fla_trinv_cntl_leaf );
40 }
41
FLA_Trinv_uu_task(FLA_Obj A,fla_trinv_t * cntl)42 FLA_Error FLA_Trinv_uu_task( FLA_Obj A, fla_trinv_t* cntl )
43 {
44 //return FLA_Trinv_unb_external( FLA_UPPER_TRIANGULAR, FLA_UNIT_DIAG, A );
45 return FLA_Trinv_internal( FLA_UPPER_TRIANGULAR, FLA_UNIT_DIAG, A,
46 fla_trinv_cntl_leaf );
47 }
48
49