libflame  revision_anchor
FLA_Tridiag_UT.h
Go to the documentation of this file.
00001 /*
00002 
00003     Copyright (C) 2014, The University of Texas at Austin
00004 
00005     This file is part of libflame and is available under the 3-Clause
00006     BSD license, which can be found in the LICENSE file at the top-level
00007     directory, or at http://opensource.org/licenses/BSD-3-Clause
00008 
00009 */
00010 
00011 #include "FLA_Tridiag_UT_l.h"
00012 //#include "FLA_Tridiag_UT_u.h"
00013 
00014 FLA_Error FLA_Tridiag_UT( FLA_Uplo uplo, FLA_Obj A, FLA_Obj T );
00015 
00016 FLA_Error FLA_Tridiag_UT_internal( FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, fla_tridiagut_t* cntl );
00017 
00018 FLA_Error FLA_Tridiag_UT_l( FLA_Obj A, FLA_Obj T, fla_tridiagut_t* cntl );
00019 FLA_Error FLA_Tridiag_UT_u( FLA_Obj A, FLA_Obj T, fla_tridiagut_t* cntl );
00020 
00021 FLA_Error FLA_Tridiag_UT_create_T( FLA_Obj A, FLA_Obj* T );
00022 FLA_Error FLA_Tridiag_UT_recover_tau( FLA_Obj T, FLA_Obj t );
00023 
00024 FLA_Error FLA_Tridiag_UT_scale_diagonals( FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A );
00025 
00026 FLA_Error FLA_Tridiag_UT_extract_diagonals( FLA_Uplo uplo, FLA_Obj A, FLA_Obj d, FLA_Obj e );
00027 FLA_Error FLA_Tridiag_UT_extract_real_diagonals( FLA_Uplo uplo, FLA_Obj A, FLA_Obj d, FLA_Obj e );
00028 //// FLA_Error FLA_Tridiag_UT_l_extract_diagonals( FLA_Obj A, FLA_Obj d, FLA_Obj e );
00029 //// FLA_Error FLA_Tridiag_UT_u_extract_diagonals( FLA_Obj A, FLA_Obj d, FLA_Obj e );
00030 
00031 FLA_Error FLA_Tridiag_UT_realify( FLA_Uplo uplo, FLA_Obj A, FLA_Obj d );
00032 FLA_Error FLA_Tridiag_UT_l_realify_unb( FLA_Obj A, FLA_Obj d );
00033 FLA_Error FLA_Tridiag_UT_l_realify_opt( FLA_Obj A, FLA_Obj d );
00034 FLA_Error FLA_Tridiag_UT_u_realify_unb( FLA_Obj A, FLA_Obj d );
00035 FLA_Error FLA_Tridiag_UT_u_realify_opt( FLA_Obj A, FLA_Obj d );
00036 
00037 FLA_Error FLA_Tridiag_UT_realify_subdiagonal( FLA_Obj b, FLA_Obj d );
00038 FLA_Error FLA_Tridiag_UT_realify_subdiagonal_opt( FLA_Obj b, FLA_Obj d );
00039 
00040 FLA_Error FLA_Tridiag_UT_shift_U( FLA_Uplo uplo, FLA_Obj A );
00041 FLA_Error FLA_Tridiag_UT_shift_U_l_ops( int       m_A,
00042                                         float*    buff_A, int rs_A, int cs_A );
00043 FLA_Error FLA_Tridiag_UT_shift_U_u_ops( int       m_A,
00044                                         float*    buff_A, int rs_A, int cs_A );
00045 FLA_Error FLA_Tridiag_UT_shift_U_l_opd( int       m_A,
00046                                         double*   buff_A, int rs_A, int cs_A );
00047 FLA_Error FLA_Tridiag_UT_shift_U_u_opd( int       m_A,
00048                                         double*   buff_A, int rs_A, int cs_A );
00049 FLA_Error FLA_Tridiag_UT_shift_U_l_opc( int       m_A,
00050                                         scomplex* buff_A, int rs_A, int cs_A );
00051 FLA_Error FLA_Tridiag_UT_shift_U_u_opc( int       m_A,
00052                                         scomplex* buff_A, int rs_A, int cs_A );
00053 FLA_Error FLA_Tridiag_UT_shift_U_l_opz( int       m_A,
00054                                         dcomplex* buff_A, int rs_A, int cs_A );
00055 FLA_Error FLA_Tridiag_UT_shift_U_u_opz( int       m_A,
00056                                         dcomplex* buff_A, int rs_A, int cs_A );
00057 
00058 FLA_Error FLA_Tridiag_UT_form_Q( FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, FLA_Obj Q );
00059 FLA_Error FLA_Tridiag_UT_form_Q_l_blk_var1( FLA_Obj A, FLA_Obj T, FLA_Obj W );
00060 FLA_Error FLA_Tridiag_UT_form_Q_u_blk_var1( FLA_Obj A, FLA_Obj T, FLA_Obj W );
00061 FLA_Error FLA_Tridiag_UT_form_Q_l_opt_var1( FLA_Obj A, FLA_Obj T );
00062 FLA_Error FLA_Tridiag_UT_form_Q_l_ops_var1( int       m_A,
00063                                             int       n_AT,
00064                                             float*    buff_A, int rs_A, int cs_A,
00065                                             float*    buff_T, int rs_T, int cs_T );
00066 FLA_Error FLA_Tridiag_UT_form_Q_l_opd_var1( int       m_A,
00067                                             int       n_AT,
00068                                             double*   buff_A, int rs_A, int cs_A,
00069                                             double*   buff_T, int rs_T, int cs_T );
00070 FLA_Error FLA_Tridiag_UT_form_Q_l_opc_var1( int       m_A,
00071                                             int       n_AT,
00072                                             scomplex* buff_A, int rs_A, int cs_A,
00073                                             scomplex* buff_T, int rs_T, int cs_T );
00074 FLA_Error FLA_Tridiag_UT_form_Q_l_opz_var1( int       m_A,
00075                                             int       n_AT,
00076                                             dcomplex* buff_A, int rs_A, int cs_A,
00077                                             dcomplex* buff_T, int rs_T, int cs_T );