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_Tevd_iteracc_n.h" 00012 #include "FLA_Tevd_eigval_n.h" 00013 #include "FLA_Tevd_francis_n.h" 00014 00015 // --- FLA_Tevd_find_submatrix() ----------------------------------------------- 00016 00017 FLA_Error FLA_Tevd_find_submatrix_ops( int m_A, 00018 int ij_begin, 00019 float* buff_d, int inc_d, 00020 float* buff_e, int inc_e, 00021 int* ijTL, 00022 int* ijBR ); 00023 FLA_Error FLA_Tevd_find_submatrix_opd( int m_A, 00024 int ij_begin, 00025 double* buff_d, int inc_d, 00026 double* buff_e, int inc_e, 00027 int* ijTL, 00028 int* ijBR ); 00029 00030 // --- FLA_Norm1_tridiag() ----------------------------------------------------- 00031 00032 FLA_Error FLA_Norm1_tridiag( FLA_Obj d, FLA_Obj e, FLA_Obj norm ); 00033 FLA_Error FLA_Norm1_tridiag_ops( int m_A, 00034 float* buff_d, int inc_d, 00035 float* buff_e, int inc_e, 00036 float* norm ); 00037 FLA_Error FLA_Norm1_tridiag_opd( int m_A, 00038 double* buff_d, int inc_d, 00039 double* buff_e, int inc_e, 00040 double* norm ); 00041 00042 // --- FLA_Tevd_n_opt_var1() --------------------------------------------------- 00043 00044 FLA_Error FLA_Tevd_n_opt_var1( dim_t n_iter_max, FLA_Obj d, FLA_Obj e, FLA_Obj G, FLA_Obj U ); 00045 FLA_Error FLA_Tevd_n_ops_var1( int m_A, 00046 int m_U, 00047 int n_G, 00048 int n_iter_max, 00049 float* buff_d, int inc_d, 00050 float* buff_e, int inc_e, 00051 scomplex* buff_G, int rs_G, int cs_G ); 00052 FLA_Error FLA_Tevd_n_opd_var1( int m_A, 00053 int m_U, 00054 int n_G, 00055 int n_iter_max, 00056 double* buff_d, int inc_d, 00057 double* buff_e, int inc_e, 00058 dcomplex* buff_G, int rs_G, int cs_G ); 00059 FLA_Error FLA_Tevd_n_opc_var1( int m_A, 00060 int m_U, 00061 int n_G, 00062 int n_iter_max, 00063 float* buff_d, int inc_d, 00064 float* buff_e, int inc_e, 00065 scomplex* buff_G, int rs_G, int cs_G ); 00066 FLA_Error FLA_Tevd_n_opz_var1( int m_A, 00067 int m_U, 00068 int n_G, 00069 int n_iter_max, 00070 double* buff_d, int inc_d, 00071 double* buff_e, int inc_e, 00072 dcomplex* buff_G, int rs_G, int cs_G ); 00073 00074