xdummy.cc (flens/lapack/interface/src/xdummy.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

#include <cxxstd/cassert.h>

#include <cxxstd/cctype.h>

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

#ifdef LAPACK_IMPL

#   undef   LAPACK_IMPL

#endif

#define  LAPACK_IMPL(x)     x

extern "C" {

INTEGER

LAPACK_DECL(ilaenv)(const INTEGER *SPEC,

                    const char *NAME,

                    const char *OPTS,

                    const INTEGER *N1,

                    const INTEGER *N2,

                    const INTEGER *N3,

                    const INTEGER *N4,

                    int NAME_LEN,

                    int OPTS_LEN);

//

// for "ilaenv" and "xerbla" LAPACK_IMPL(..) calls the LAPACK_DECL(..)

// such that the routines from the LAPACK test suite get called

//

INTEGER

LAPACK_IMPL(ilaenv)(const INTEGER *SPEC,

                    const char *NAME,

                    const char *OPTS,

                    const INTEGER *N1,

                    const INTEGER *N2,

                    const INTEGER *N3,

                    const INTEGER *N4,

                    int NAME_LEN,

                    int OPTS_LEN)

{

    return LAPACK_DECL(ilaenv)(SPEC,

                               NAME,

                               OPTS,

                               N1,

                               N2,

                               N3,

                               N4,

                               NAME_LEN,

                               OPTS_LEN);

}

void

LAPACK_IMPL(xerbla)(const char      *SRNAME,

                    const INTEGER   *INFO,

                    int             SRNAME_LEN)

{

    return LAPACK_DECL(xerbla)(SRNAME,

                               INFO,

                               SRNAME_LEN);

}

} // extern "C"