libflame  revision_anchor
FLA_Tevd.h
Go to the documentation of this file.
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_n.h"
12 #include "FLA_Tevd_v.h"
13 
14 // --- MAC_Tevd_eigval_converged() ---------------------------------------------
15 
16 #define MAC_Tevd_eigval_converged_ops( eps, safmin, d1, e1, d2 ) \
17  fabsf( e1 ) <= (eps) * sqrt( fabsf( d1 ) ) * sqrt( fabsf( d2 ) ) + (safmin)
18 
19 #define MAC_Tevd_eigval_converged_opd( eps, safmin, d1, e1, d2 ) \
20  fabs( e1 ) <= (eps) * sqrt( fabs( d1 ) ) * sqrt( fabs( d2 ) ) + (safmin)
21 
22 // --- MAC_Tevd_eigval_converged2() ---------------------------------------------
23 
24 #define MAC_Tevd_eigval_converged2_ops( eps2, safmin, d1, e1, d2 ) \
25  (e1) * (e1) <= (eps2) * fabsf( (d1) * (d2) ) + (safmin)
26 
27 #define MAC_Tevd_eigval_converged2_opd( eps2, safmin, d1, e1, d2 ) \
28  (e1) * (e1) <= (eps2) * fabs( (d1) * (d2) ) + (safmin)
29 
31 
FLA_Error FLA_Tevd(FLA_Evd_type jobz, FLA_Obj U, FLA_Obj d, FLA_Obj e, FLA_Obj l)
Definition: FLA_Tevd.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
int FLA_Evd_type
Definition: FLA_type_defs.h:64
Definition: FLA_type_defs.h:159