anchor.diff:    integer :: grid, A, B, w, X
   
     ! Process grid information
  -  integer :: r, c, p, row, col, rank
  +  integer :: r, c, row, col
   
     ! Our process's local matrix size (for A and B)
     integer :: mLoc, nLoc, mPad, nPad, mPadLoc, nPadLoc
  
positive.code: 
    ! Useful constants
    integer :: iOne = 1, iZero = 0
    integer :: n = 10                ! problem size
    integer :: nb = 96               ! algorithmic blocksize
    integer :: comm = MPI_COMM_WORLD ! global communicator
  
  
negative.code:   call elem_symmetric_axbx( A, B, w, X )
  
    ! Print the eigenvalues and eigenvectors
    call elem_print_dist_mat_star_star( w )
  
    ! Shut down Elemental and MPI
  