| d->V_new_s = d->V_new_e; |
| /* Solve the projected problem */ |
| if (d->size_H>0) { |
| if (DVD_IS(d->sEP, DVD_EP_STD)) { |
| if (DVD_IS(d->sEP, DVD_EP_HERMITIAN)) { |
| ierr = dvd_calcpairs_projeig_eig(d); CHKERRQ(ierr); |
| } else { |
| ierr = dvd_calcpairs_projeig_qz_gen(d); CHKERRQ(ierr); |
| } |
| } |
| /* Check consistency */ |
| if (d->size_V != d->V_new_e || d->size_V+d->cX_in_H != d->size_H || d->cX_in_V != d->cX_in_H || |