我有一个可用的LAPACK实现,据我所知它包含BLAS。
我想要使用SPARSE BLAS,根据这个网站的理解,SPARSE BLAS是BLAS的一部分。
但当我尝试运行稀疏blas手册中下面的代码时,使用以下命令:
g++ -o sparse.x sparse_blas_example.c -L/usr/local/lib -lblas && ./sparse_ex.x
编译器(或链接器?)要求blas_sparse.h文件。当我将该文件放置在工作目录中后,出现了以下错误:
ludi@ludi-M17xR4:~/Desktop/tests$ g++ -o sparse.x sparse_blas_example.c -L/usr/local/lib -lblas && ./sparse_ex.x
In file included from sparse_blas_example.c:3:0:
blas_sparse.h:4:23: fatal error: blas_enum.h: No such file or directory
#include "blas_enum.h"
我该如何使用LAPACK的稀疏BLAS?我可以开始将许多头文件移动到工作目录,但是我想我已经在lapack中拥有它们了!
/* C example: sparse matrix/vector multiplication */
#include "blas_sparse.h"
int main()
{
const int n = 4;
const int nz = 6;
double val[] = { 1.1, 2.2, 2.4, 3.3, 4.1, 4.4 };
int indx[] = { 0, 1, 1, 2, 3, 3};
int jndx[] = { 0, 1, 4, 2, 0, 3};
double x[] = { 1.0, 1.0, 1.0, 1.0 };
double y[] = { 0.0, 0.0, 0.0, 0.0 };
blas_sparse_matrix A;
double alpha = 1.0;
int i;
/*------------------------------------*/
/* Step 1: Create Sparse BLAS Handle */
/*------------------------------------*/
A = BLAS_duscr_begin( n, n );
/*------------------------------------*/
/* Step 2: insert entries one-by-one */
/*------------------------------------*/
for (i=0; i< nz; i++)
{
BLAS_duscr_insert_entry(A, val[i], indx[i], jndx[i]);
}
/*-------------------------------------------------*/
/* Step 3: Complete construction of sparse matrix */
/*-------------------------------------------------*/
BLAS_uscr_end(A);
/*------------------------------------------------*/
/* Step 4: Compute Matrix vector product y = A*x */
/*------------------------------------------------*/
BLAS_dusmv( blas_no_trans, alpha, A, x, 1, y, 1 );
/*---------------------------------*/
/* Step 5: Release Matrix Handle */
/*---------------------------------*/
BLAS_usds(A);
/*---------------------------*/
/* Step 6: Output Solution */
/*---------------------------*/
for (i=0; i<n; i++) printf("%12.4g ",y[i]);
printf("\n");
return 0;
}