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: ! ---------------------------------------------------------------------------
  
  subroutine create_Hypre_grid(MPI_COMM_WORLD, hypre_grid, ilower, iupper, &
            num_procs, ierr)
  
    integer, intent(in) :: MPI_COMM_WORLD
    integer*8 :: hypre_grid
    integer :: num_procs
    integer :: ilower(0:num_procs-1,2), iupper(0:num_procs-1,2)
  
    call Hypre_StructGridCreate(MPI_COMM_WORLD, 2, hypre_grid, ierr)
  
  
negative.code:       MPI_COMM_WORLD, myid, num_procs, ilower, iupper, &
        hypre_grid)
    
    ! Finalize MPI
    call MPI_Finalize(ierr)
  
    stop 
  end program aronnax
  