Home
Browse Files
 1 //#define CXXBLAS_DEBUG_OUT(x)      std::cerr << x << std::endl;
 2 
 3 #define STR(x)      #x
 4 #define STRING(x)   STR(x)
 5 
 6 #define FLENS_DEFAULT_INDEXTYPE int
 7 
 8 #include <flens/lapack/interface/include/config.h>
 9 
10 
11 namespace flens { namespace lapack {
12 
13 extern "C" {
14 
15 //-- dlaqge --------------------------------------------------------------------
16 void
17 LAPACK_DECL(dlaqge)(const INTEGER    *M,
18                     const INTEGER    *N,
19                     DOUBLE           *A,
20                     const INTEGER    *LDA,
21                     const DOUBLE     *R,
22                     const DOUBLE     *C,
23                     const DOUBLE     *ROWCND,
24                     const DOUBLE     *COLCND,
25                     const DOUBLE     *AMAX,
26                     char             *EQUED)
27 {
28     DEBUG_FLENS_LAPACK("dlaqge");
29 //
30 //  Call FLENS implementation
31 //
32     DGeMatrixView          _A  = DFSView(*M, *N, A, *LDA);
33     DConstDenseVectorView  _R  = DConstArrayView(*M, R, 1);
34     DConstDenseVectorView  _C  = DConstArrayView(*N, C, 1);
35 
36     const auto equed = laq(_A, _R, _C, *ROWCND, *COLCND, *AMAX);
37     *EQUED = char(equed);
38 }
39 
40 } // extern "C"
41 
42 } } // namespace lapack, flens
Home