geequ.cc (flens/lapack/interface/src/geequ.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
     38
     39
     40
     41
     42
     43
     44
     45
     46
     47
     48
     49
     50
     51
     52
     53
     54
     55
     56
     57
     58
     59
     60
     61
     62
     63
     64
     65
     66
     67
     68
     69
     70
     71
     72
     73
     74
     75
     76
     77
     78
     79
     80
     81
     82
     83
     84
     85
     86
     87
     88
     89
     90
     91
     92
     93

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

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

namespace flens { namespace lapack {

extern "C" {

//-- dgeequ --------------------------------------------------------------------
void
LAPACK_DECL(dgeequ)(const INTEGER    *M,
                    const INTEGER    *N,
                    const DOUBLE     *A,
                    const INTEGER    *LDA,
                    DOUBLE           *R,
                    DOUBLE           *C,
                    DOUBLE           *ROWCND,
                    DOUBLE           *COLCND,
                    DOUBLE           *AMAX,
                    INTEGER          *INFO)
{
//
//  Call FLENS implementation
//
    *INFO = 0;
    if (*M<0) {
        *INFO = 1;
    } else if (*N<0) {
        *INFO = 2;
    } else if (*LDA<std::max(INTEGER(1),*M)) {
        *INFO = 4;
    }

    if (*INFO!=0) {
        LAPACK_ERROR("DGEEQU", INFO);
        *INFO = -(*INFO);
        return;
    }

    DConstGeMatrixView  _A  = DConstFSView(*M, *N, A, *LDA);
    DDenseVectorView    _R  = DArrayView(*M, R, 1);
    DDenseVectorView    _C  = DArrayView(*N, C, 1);

    *INFO = equ(_A, _R, _C, *ROWCND, *COLCND, *AMAX);
}

//-- zgeequ --------------------------------------------------------------------
/*
void
LAPACK_DECL(zgeequ)(const INTEGER            *M,
                    const INTEGER            *N,
                    const DOUBLE_COMPLEX     *A,
                    const INTEGER            *LDA,
                    DOUBLE                   *R,
                    DOUBLE                   *C,
                    DOUBLE                   *ROWCND,
                    DOUBLE                   *COLCND,
                    DOUBLE                   *AMAX,
                    INTEGER                  *INFO)
{
//
//  Call FLENS implementation
//
    *INFO = 0;
    if (*M<0) {
        *INFO = 1;
    } else if (*N<0) {
        *INFO = 2;
    } else if (*LDA<std::max(INTEGER(1),*M)) {
        *INFO = 4;
    }

    if (*INFO!=0) {
        LAPACK_ERROR("ZGEEQU", INFO);
        *INFO = -(*INFO);
        return;
    }

    const auto *zA = reinterpret_cast<const CXX_DOUBLE_COMPLEX *>(A);
    ZConstGeMatrixView  _A  = ZConstFSView(*M, *N, zA, *LDA);

    DDenseVectorView    _R  = DArrayView(*M, R, 1);
    DDenseVectorView    _C  = DArrayView(*N, C, 1);

    *INFO = equ(_A, _R, _C, *ROWCND, *COLCND, *AMAX);
}
*/

} // extern "C"

} } // namespace lapack, flens