eigenvectors_hermitian() [1/2]

bool Lapack::eigenvectors_hermitian ( const DMatCC * A, DMatRR * eigenvals, DMatCC * eigenvecs )

static

Definition at line 1426 of file lapack.cpp.

{
  int size = static_cast<int>(A->numRows());
  if (size != static_cast<int>(A->numColumns()))
    {
      ERROR("expected a square matrix");
      return false;
    }
 
  if (size == 0)
    {
      eigvals->resize(0, 1);
      eigvecs->resize(0, 0);
      return true;
    }
 
  bool ret = true;
  char doit = 'V';
  char triangle = 'U'; /* Upper triangular part makes symmetric matrix */
 
  int wsize = 2 * size - 1;
  double *workspace = new double[2*wsize];
  double *rwork = new double[3 * size - 2];
  int info;
 
  std::vector<double> evecs = make_lapack_array(*A);
  std::vector<double> evals(size);
 
  zheev_(&doit,
         &triangle,
         &size,
         evecs.data(),
         &size,
         evals.data(),
         workspace,
         &wsize,
         rwork,
         &info);
 
  if (info < 0)
    {
      ERROR("argument passed to zheev had an illegal value");
      ret = false;
    }
  else if (info > 0)
    {
      ERROR("zheev did not converge");
      ret = false;
    }
  else
    {
      eigvals->resize(size, 1);
      fill_from_lapack_array(evals, *eigvals);
      eigvecs->resize(size, size);
      fill_from_lapack_array(evecs, *eigvecs);
    }
 
  delete[] workspace;
  delete[] rwork;
 
  return ret;
}

References ERROR, fill_from_lapack_array(), make_lapack_array(), DMat< ACoeffRing >::numColumns(), DMat< ACoeffRing >::numRows(), DMat< ACoeffRing >::resize(), and zheev_().