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 "FLA_Tevd_iteracc_n.h" 12 #include "FLA_Tevd_eigval_n.h" 13 #include "FLA_Tevd_francis_n.h" 14 15 // --- FLA_Tevd_find_submatrix() ----------------------------------------------- 16 17 FLA_Error FLA_Tevd_find_submatrix_ops( int m_A, 18 int ij_begin, 19 float* buff_d, int inc_d, 20 float* buff_e, int inc_e, 21 int* ijTL, 22 int* ijBR ); 23 FLA_Error FLA_Tevd_find_submatrix_opd( int m_A, 24 int ij_begin, 25 double* buff_d, int inc_d, 26 double* buff_e, int inc_e, 27 int* ijTL, 28 int* ijBR ); 29 30 // --- FLA_Norm1_tridiag() ----------------------------------------------------- 31 32 FLA_Error FLA_Norm1_tridiag( FLA_Obj d, FLA_Obj e, FLA_Obj norm ); 33 FLA_Error FLA_Norm1_tridiag_ops( int m_A, 34 float* buff_d, int inc_d, 35 float* buff_e, int inc_e, 36 float* norm ); 37 FLA_Error FLA_Norm1_tridiag_opd( int m_A, 38 double* buff_d, int inc_d, 39 double* buff_e, int inc_e, 40 double* norm ); 41 42 // --- FLA_Tevd_n_opt_var1() --------------------------------------------------- 43 44 FLA_Error FLA_Tevd_n_opt_var1( dim_t n_iter_max, FLA_Obj d, FLA_Obj e, FLA_Obj G, FLA_Obj U ); 45 FLA_Error FLA_Tevd_n_ops_var1( int m_A, 46 int m_U, 47 int n_G, 48 int n_iter_max, 49 float* buff_d, int inc_d, 50 float* buff_e, int inc_e, 51 scomplex* buff_G, int rs_G, int cs_G ); 52 FLA_Error FLA_Tevd_n_opd_var1( int m_A, 53 int m_U, 54 int n_G, 55 int n_iter_max, 56 double* buff_d, int inc_d, 57 double* buff_e, int inc_e, 58 dcomplex* buff_G, int rs_G, int cs_G ); 59 FLA_Error FLA_Tevd_n_opc_var1( int m_A, 60 int m_U, 61 int n_G, 62 int n_iter_max, 63 float* buff_d, int inc_d, 64 float* buff_e, int inc_e, 65 scomplex* buff_G, int rs_G, int cs_G ); 66 FLA_Error FLA_Tevd_n_opz_var1( int m_A, 67 int m_U, 68 int n_G, 69 int n_iter_max, 70 double* buff_d, int inc_d, 71 double* buff_e, int inc_e, 72 dcomplex* buff_G, int rs_G, int cs_G ); 73 74 75