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 // --- MAC_Bsvd_sinval_is_converged() ------------------------------------------ 00012 00013 #define MAC_Bsvd_sinval_is_converged_ops( tol, d1, e1 ) \ 00014 fabsf( (e1) ) <= fabsf( (tol) * (d1) ) 00015 00016 #define MAC_Bsvd_sinval_is_converged_opd( tol, d1, e1 ) \ 00017 fabs( (e1) ) <= fabs( (tol) * (d1) ) 00018 00019 // --- FLA_Bsvd_sinval_v_opt_var1() -------------------------------------------- 00020 00021 FLA_Error FLA_Bsvd_sinval_v_opt_var1( FLA_Obj tol, FLA_Obj thresh, FLA_Obj G, FLA_Obj H, FLA_Obj d, FLA_Obj e, FLA_Obj n_iter ); 00022 FLA_Error FLA_Bsvd_sinval_v_ops_var1( int m_A, 00023 int n_GH, 00024 int n_iter_allowed, 00025 float tol, 00026 float thresh, 00027 scomplex* buff_G, int rs_G, int cs_G, 00028 scomplex* buff_H, int rs_H, int cs_H, 00029 float* buff_d, int inc_d, 00030 float* buff_e, int inc_e, 00031 int* n_iter ); 00032 FLA_Error FLA_Bsvd_sinval_v_opd_var1( int m_A, 00033 int n_GH, 00034 int n_iter_allowed, 00035 double tol, 00036 double thresh, 00037 dcomplex* buff_G, int rs_G, int cs_G, 00038 dcomplex* buff_H, int rs_H, int cs_H, 00039 double* buff_d, int inc_d, 00040 double* buff_e, int inc_e, 00041 int* n_iter ); 00042