eigenvalues_symmetric() [1/2]

bool Lapack::eigenvalues_symmetric ( const DMatRR * A, DMatRR * eigenvals )

static

Definition at line 462 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);
      return true;
    }
 
  bool ret = true;
  char dont = 'N';
  char triangle = 'U'; /* Upper triangular part makes symmetric matrix. */
  int info;
 
  int wsize = 3 * size - 1;
  double * workspace = new double[wsize];
 
  std::vector<double> copyA = make_lapack_array(*A);
  std::vector<double> evals(size);
 
  dsyev_(
         &dont, &triangle, &size, copyA.data(), &size, evals.data(), workspace, &wsize, &info);
 
  if (info < 0)
    {
      ERROR("argument passed to dsyev had an illegal value");
      ret = false;
    }
  else if (info > 0)
    {
      ERROR("dsyev did not converge");
      ret = false;
    }
  else
    {
      // Copy eigenvalues back to eigvals
      eigvals->resize(size, 1);
      fill_from_lapack_array(evals, *eigvals);
    }
 
  delete [] workspace;
 
  return ret;
}

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