From fa76da9691d7a06702f70a8d4eebc7e0a8312eca Mon Sep 17 00:00:00 2001
From: Gard Spreemann <gard.spreemann@epfl.ch>
Date: Mon, 6 Nov 2017 17:17:22 +0100
Subject: Output dimension parameter when starting computation.

---
 src/main.cpp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/main.cpp b/src/main.cpp
index d5a731f..682cbb5 100644
--- a/src/main.cpp
+++ b/src/main.cpp
@@ -42,6 +42,15 @@ int main(int argc, char ** argv)
   err = EPSSetWhichEigenpairs(eps, EPS_SMALLEST_MAGNITUDE); CHKERRQ(err);
   err = EPSSetFromOptions(eps); CHKERRQ(err);
 
+  PetscInt nev;
+  PetscInt ncv;
+  PetscInt mpd;
+  err = EPSGetDimensions(eps, &nev, &ncv, &mpd); CHKERRQ(err);
+
+  PetscPrintf(PETSC_COMM_WORLD, "nev=%d\n", nev);
+  PetscPrintf(PETSC_COMM_WORLD, "ncv=%d\n", ncv);
+  PetscPrintf(PETSC_COMM_WORLD, "mpd=%d\n", mpd);
+
   PetscPrintf(PETSC_COMM_WORLD, "Solving...\n");
   err = EPSSolve(eps); CHKERRQ(err);
 
-- 
cgit v1.2.3