anchor.diff:       INTEGER :: mat_dim
        !> The communicator for this calculation.
        INTEGER :: comm
  +     !> Householder transform block size
  +     INTEGER :: MB
  +     !> Householder backward transformation block size
  +     INTEGER :: M
  +     !> Mode of the solver
  +     CHARACTER :: MODE
     END TYPE ExaHelper_t
   CONTAINS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     !> Compute the eigenvectors of a matrix using EigenExa.
  
positive.code:     LDZ = exa%local_rows
  
      !! Call
      CALL eigen_s(N, N, A, LDA, W, V, LDZ)
  
    END SUBROUTINE Compute
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
negative.code:     ALLOCATE(AD(exa%local_rows, exa%local_cols))
      ALLOCATE(VD(exa%local_rows, exa%local_cols))
      ALLOCATE(WD(exa%mat_dim))
  
      !> Default blocking parameters
      exa%MB = 128
      exa%M = 48
      exa%MODE = 'A'
  
    END SUBROUTINE InitializeEigenExa
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  