libflame  revision_anchor
FLA_Bsvd_sinval_v.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 // --- 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