LAPACK QR分解

Question

我正在尝试从LAPACK zgeqrf和zungqr例程中获取Q矩阵。

我有一个Nw-by-Nw的复数矩阵，它的列上有非正交的向量。这是我的C++代码。(矩阵命名为vr_tr)

//QR Fact.
complex<double> TAU[Nw*Nw];
zgeqrf_(&Nw, &Nw, vr_tr, &Nw, TAU, &wkopt, &lwork, &info);
lwork = (int)wkopt.real();
work = new complex<double> [lwork];
zgeqrf_(&Nw, &Nw, vr_tr, &Nw, TAU, work, &lwork, &info);
zungqr_(&Nw, &Nw, &Nw, vr_tr, &Nw, TAU, &wkopt, &lwork, &info);
lwork = (int)wkopt.real();
work = new complex<double> [lwork];
zungqr_(&Nw, &Nw, &Nw, vr_tr, &Nw, TAU, work, &lwork, &info);

//Checking if vr_tr * vr_tr' = I
complex<double> one = 1,zer=0,res[Nw*Nw]; char Tchar = 'T', Nchar = 'N';
zgemm_( &Nchar, &Tchar, &Nw, &Nw, &Nw, &one, vr_tr, &Nw, vr_tr, &Nw, &zer, res, &Nw );
for(i=0;i<Nw;i++){
    for(j=0;j<Nw;j++){
        cout<<res[i*Nw+j]<<"\t";
    }
    cout<<"\n\n";
}

运行这段代码后，我得到的不是单位矩阵，因为它应该从zgeqrf计算QR分解，并从zungqr获得Q矩阵，所以Q矩阵必须是正交的，所以Q*Q'=I。

这段代码有什么问题？

Answer 1

我用zunmqr而不是znugqr解决了这个问题。

尽管我真的不知道为什么zungqr不能工作。