我有一个很长的程序,其中我有一个使用FEAST计算大矩阵的特征值的函数。在该函数返回时,我得到一个 *堆栈粉碎检测到* 错误,我丢失了所有结果。这是我的功能
void Model::eigensolver(double* val, int* ia, int* ja, const int n, int m0, std::string outfilename)
{
// compute Eigenvalues and Eigenvectors by calling FEAST library from MKL
const char uplo='U';
MKL_INT fpm[128], loop;
feastinit(fpm);
//fpm[0]=1;
const double emin=-1,emax=100;
MKL_INT eig_found=0;
double res,epsout;
double *eigenvalues= new double [m0];
double *eig_vec = new double [m0*_dof];
int info;
std::cout << "Everything ready, making call to FEAST." << std::endl;
dfeast_scsrev(&uplo, &n, val, ia, ja, fpm, &epsout, &loop, &emin, &emax, &m0, eigenvalues, eig_vec, &eig_found, &res, &info );
if (info != 0) {
std::cout << "Something is wrong in eigensolver. Info=" << info << std::endl;
exit(0);
}
std::cout << loop << " iterations taken to converge." << std::endl;
std::cout << eig_found << " eigenvalues found in the interval." << std::endl;
std::ofstream evals;
evals.open("evals.dat");
std::cout<<"The eigenfrequencies are:"<<std::endl;
for (int i = 0; i < eig_found; i++)
evals << eigenvalues[i] << std::endl;
evals.close();
delete[] eigenvalues;
delete[] eig_vec;
std::cout << "Writen eigenvalues to file evals.dat." << std::endl;
return;
}
dfeast_scsrev是来自FEAST库(也是intel MKL的一部分)的函数。错误发生在返回时(即“文件evals.dat的写入特征值”正在打印之后)。根据我运行的问题,有时我也会在同一点上得到分段错误。
如果我删除FEAST函数调用,则没有错误。所以,我很困惑我做错了什么。我正在尝试valgrind,但由于代码的大小,它需要很长时间才能运行。
答案 0 :(得分:2)
查看https://software.intel.com/en-us/node/521749处的文档,我看到res
应指向“长度为m0的数组。您的res
只是一个double
。当然,dfeast_scsrev并不知道这一点,并且快乐地写出了边界,从而破坏了你的堆栈。
所以修复是:
double *res = new double [m0];
代替double res;