anchor.diff:    ! call HYPRE_IJMatrixInitialize(A, ierr)
   #ifdef useExtSolver
     call create_Hypre_grid(MPI_COMM_WORLD, hypre_grid, ilower, iupper, &
  -          num_procs, ierr)
  +          num_procs, myid, ierr)
   #endif
   
   
  
positive.code:       MPI_COMM_WORLD, myid, num_procs, ilower, iupper, &
        hypre_grid)
    
  #ifdef useExtSolver
    ! Finalize MPI
    call MPI_Finalize(ierr)
  #endif
  
    stop 
  end program aronnax
  
negative.code:   double precision :: pi
    integer :: nwrite, avwrite
    double precision :: rjac
    ! External solver variables
    integer   :: offsets(2,5)
    integer :: i, j ! loop variables
    integer   ::  nentries, nvalues, stencil_indices(5)
    double precision, dimension(:), allocatable :: values
    integer   :: indicies(2)
    integer*8 :: hypre_grid
    integer*8 :: stencil
    integer*8 :: hypre_A
  