eigenvalues_hermitian() [1/2]

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

static

Definition at line 1366 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 wsize = 2 * size - 1;
  double *workspace = new double[2*wsize]; 
  double *rwork = new double[3 * size - 2];
  int info;
 
  std::vector<double> copyA = make_lapack_array(*A);
  std::vector<double> evals(size);
 
  zheev_(&dont,
         &triangle,
         &size,
         copyA.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);
    }
 
  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_().