libflame
revision_anchor
|
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 );