Home
Browse Files
 1 #include <cassert>
 2 #include <cctype>
 3 
 4 #include <flens/lapack/interface/include/config.h>
 5 
 6 #define ASSERT(x)   assert(x)
 7 
 8 extern "C" {
 9 
10 #include <flens/lapack/interface/include/dummy.in.cc>
11 
12 
13 //
14 // for "ilaenv" we have to reverse the pass-through such that the
15 // ilaenv version from the testsuit gets called
16 //
17 INTEGER
18 LAPACK_IMPL(ilaenv)(const INTEGER *SPEC,
19                     const char *NAME,
20                     const char *OPTS,
21                     const INTEGER *N1,
22                     const INTEGER *N2,
23                     const INTEGER *N3,
24                     const INTEGER *N4,
25                     int NAME_LEN,
26                     int OPTS_LEN)
27 {
28     return LAPACK_DECL(ilaenv)(SPEC,
29                                NAME,
30                                OPTS,
31                                N1,
32                                N2,
33                                N3,
34                                N4,
35                                NAME_LEN,
36                                OPTS_LEN);
37 }
38 
39 void
40 LAPACK_IMPL(xerbla)(const char      *SRNAME,
41                     const INTEGER   *INFO,
42                     int             SRNAME_LEN)
43 {
44     return LAPACK_DECL(xerbla)(SRNAME,
45                                INFO,
46                                SRNAME_LEN);
47 }
48 
49 } // extern "C"
Home