Lapack例程中的分割错误dstev

我目前正在编写一个小程序，用C++中的有限差分方法求解微分方程。问题是我正在使用lapack来解决我的三角对角矩阵，但是在例程被调用后我得到了一个Segmentation Fault。该例程仍然退出info = 0，所以我不知道问题是什么。这是该计划。Lapack例程中的分割错误dstev

#include <iostream> 
#include <cmath> 
#include <vector> 

#define pi 3.14159265358979323846 

using namespace std; 

extern "C" void dstev_(char* job, int* N, double* D, double* OFFD, double* EV, int* VDIM, double* WORK, int* INFO); 

int main(){ 

int i = 0; 

// systems parameters 
double a = 2e10-6; 
double k = pi/1.55e-6; 
double n1_sq = pow(3.0, 2), n2_sq = pow(3.1, 2); 
double step = 1e-6; 
double factor = 1/(k*k*step*step); 


// parameters for lapack 
char job = 'V'; 
int N = 80, vdim = 100, info; 

// create and initialize vector arrays for lapack routine 
vector<double> d, offd, work; 
vector< vector<double> > ev(vdim, vector<double>(N)); 

// set up diagonal elements 
d.push_back(n1_sq - factor); 
for(i=1; i<N-1; i++){ 
    if(i<N/4 || i>=3*N/4){ 
     d.push_back(n1_sq - 2*factor); 
    } 
    else{ 
     d.push_back(n2_sq - 2*factor); 
    } 
} 
d.push_back(n1_sq - factor); 

// set up off diagonal elements 
for(i=0; i<N-1; i++){ 
    offd.push_back(factor); 
} 

// initialize other arrays 
for(i=0; i<vdim; i++){ 
    work.push_back(0.0); 
} 


cout << "Before routine" << endl; 

dstev_(&job, &N, &*d.begin(), &*offd.begin(), &*(ev.begin()->begin()), &vdim, &*work.begin(), &info); 

cout << "After routine"<< endl; 

return 0; 
}

这是我第一次使用lapack，所以我不知道什么是错误/正确的关于此代码，但任何帮助表示赞赏。另外，为了将一个向量传入例程，为什么我们需要传入begin（）迭代器？这是我学习的方式，但我不认为我完全理解它。

来源

2017-03-05 James Delaney

我不知道如果这个代码的唯一问题，但std::vector< std::vector< double> >不分配连续的内存...因此，LAPACK将无法访问矩阵ev的所有元素。您应该给出一个大小为n*n的矢量，其矩阵的条目(i,j)为i+j*n。

来源

2017-03-05 15:17:58 PinkFloyd

Lapack例程中的分割错误dstev

回答

相关问题