anchor.diff:      CALL EigenToNT(VD, eigenvectors, solver_parameters, exa)
       CALL StopTimer("EigenToNT")
   
  +    IF (PRESENT(eigenvalues_out)) THEN
  +       CALL ExtractEigenvalues(WD, eigenvalues_out, exa)
  +    END IF
  +
       CALL CleanUp(AD, VD, WD)
   
       IF (solver_parameters%be_verbose) THEN
  
positive.code:      INTEGER :: M
       !> Mode of the solver
       CHARACTER :: MODE
       INTEGER :: offset
    END TYPE ExaHelper_t
  CONTAINS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
negative.code: 
      !! Setup the MPI Communicator
      CALL MPI_Comm_dup(A%process_grid%global_comm, exa%comm, ierr)
      CALL MPI_Comm_rank(exa%comm, exa%global_rank, ierr)
  
      !! Build EigenExa Process Grid
      CALL eigen_init(exa%comm)
  