laqge.cc (flens/lapack/interface/src/laqge.cc)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22
     23
     24
     25
     26
     27
     28
     29
     30
     31
     32
     33
     34
     35
     36
     37

#define STR(x)      #x
#define STRING(x)   STR(x)

#include <flens/lapack/interface/include/config.h>

namespace flens { namespace lapack {

extern "C" {

//-- dlaqge --------------------------------------------------------------------
void
LAPACK_DECL(dlaqge)(const INTEGER    *M,
                    const INTEGER    *N,
                    DOUBLE           *A,
                    const INTEGER    *LDA,
                    const DOUBLE     *R,
                    const DOUBLE     *C,
                    const DOUBLE     *ROWCND,
                    const DOUBLE     *COLCND,
                    const DOUBLE     *AMAX,
                    char             *EQUED)
{
//
//  Call FLENS implementation
//
    DGeMatrixView          _A  = DFSView(*M, *N, A, *LDA);
    DConstDenseVectorView  _R  = DConstArrayView(*M, R, 1);
    DConstDenseVectorView  _C  = DConstArrayView(*N, C, 1);

    const auto equed = laq(_A, _R, _C, *ROWCND, *COLCND, *AMAX);
    *EQUED = char(equed);
}

} // extern "C"

} } // namespace lapack, flens