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:      INTEGER :: mat_dim
       !> The communicator for this calculation.
       INTEGER :: comm
    END TYPE ExaHelper_t
  CONTAINS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !> Compute the eigenvectors of a matrix using EigenExa.
  
negative.code:     LDZ = exa%local_rows
  
      !! Call
      CALL eigen_sx(N, N, A, LDA, W, V, LDZ, m_forward=exa%M, m_backward=exa%MB, &
           & mode=exa%MODE)
  
    END SUBROUTINE Compute
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  