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_ttmm_t* fla_ttmm_cntl_leaf;
14
FLA_Ttmm_task(FLA_Uplo uplo,FLA_Obj A,fla_ttmm_t * cntl)15 FLA_Error FLA_Ttmm_task( FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t* cntl )
16 {
17 return FLA_Ttmm_internal( uplo, A,
18 fla_ttmm_cntl_leaf );
19 }
20
FLA_Ttmm_l_task(FLA_Obj A,fla_ttmm_t * cntl)21 FLA_Error FLA_Ttmm_l_task( FLA_Obj A, fla_ttmm_t* cntl )
22 {
23 //return FLA_Ttmm_unb_external( FLA_LOWER_TRIANGULAR, A );
24 return FLA_Ttmm_internal( FLA_LOWER_TRIANGULAR, A,
25 fla_ttmm_cntl_leaf );
26 }
27
FLA_Ttmm_u_task(FLA_Obj A,fla_ttmm_t * cntl)28 FLA_Error FLA_Ttmm_u_task( FLA_Obj A, fla_ttmm_t* cntl )
29 {
30 //return FLA_Ttmm_unb_external( FLA_UPPER_TRIANGULAR, A );
31 return FLA_Ttmm_internal( FLA_UPPER_TRIANGULAR, A,
32 fla_ttmm_cntl_leaf );
33 }
34
35