2020-08-30 11:54:41 +02:00
|
|
|
#include <assert.h>
|
2021-11-20 13:41:27 +01:00
|
|
|
#include <stdint.h>
|
2020-08-30 11:54:41 +02:00
|
|
|
#include <string.h>
|
|
|
|
|
2021-11-20 13:41:27 +01:00
|
|
|
#if BLA_SIZEOF_INTEGER == 4
|
|
|
|
typedef int32_t blas_int;
|
|
|
|
#elif BLA_SIZEOF_INTEGER == 8
|
|
|
|
typedef int64_t blas_int;
|
|
|
|
#else
|
|
|
|
# error BLA_SIZEOF_INTEGER is not declared!
|
|
|
|
#endif
|
|
|
|
|
2020-08-30 11:54:41 +02:00
|
|
|
// declare what parts of the lapack C-API we need
|
2021-11-20 13:41:27 +01:00
|
|
|
void dgesv_(blas_int*, blas_int*, double*, blas_int*, blas_int*, double*,
|
|
|
|
blas_int*, blas_int*);
|
2020-08-30 11:54:41 +02:00
|
|
|
|
2024-04-14 22:45:38 +02:00
|
|
|
int main(void)
|
2020-08-30 11:54:41 +02:00
|
|
|
{
|
|
|
|
double A[8] = {
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7,
|
|
|
|
};
|
|
|
|
double B[2] = { 0, 5 };
|
2021-11-20 13:41:27 +01:00
|
|
|
blas_int ipiv[2] = { 0, 0 };
|
|
|
|
blas_int info = 0;
|
2020-08-30 11:54:41 +02:00
|
|
|
|
2021-11-20 13:41:27 +01:00
|
|
|
blas_int dim = 2;
|
|
|
|
blas_int numCols = 1;
|
2020-08-30 11:54:41 +02:00
|
|
|
dgesv_(&dim, &numCols, A, &dim, ipiv, B, &dim, &info);
|
|
|
|
return 0;
|
|
|
|
}
|