eigenvectors() [1/4]

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

static

Definition at line 1296 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 dont = 'N';
  char doit = 'V';
  int wsize = 2 * size;
  int rsize = 2 * size;
  double *workspace = new double[2*wsize]; 
  double *rwork = new double[rsize];
  int info;
 
  std::vector<double> copyA = make_lapack_array(*A);
  std::vector<double> evals(2 * size);
  std::vector<double> evecs(2 * size * size);
 
  zgeev_(&dont,
         &doit,
         &size,
         copyA.data(),
         &size,
         evals.data(),
         static_cast<double *>(nullptr),
         &size, /* left eigvecs */
         evecs.data(),
         &size, /* right eigvecs */
         workspace,
         &wsize,
         rwork,
         &info);
 
  if (info < 0)
    {
      ERROR("argument passed to zgeev had an illegal value");
      ret = false;
    }
  else if (info > 0)
    {
      ERROR("the QR algorithm in zgeev failed to compute all eigvals");
      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 zgeev_().