anchor.diff:  
       !! 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)
  
positive.code: 
    END SUBROUTINE EigenToNT
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !> The routine which calls the eigenexa driver.
    !! @param[in] A the matrix to decompose.
    !! @param[inout] V the eigenvectors.
  
negative.code:     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
  