anchor.diff:      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
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
positive.code:     LDZ = exa%local_rows
  
      !! Call
      CALL eigen_s(N, N, A, LDA, W, V, LDZ)
  
    END SUBROUTINE Compute
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
negative.code:      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.
  