anchor.diff:    integer*8 :: hypre_grid
     integer*8 :: stencil
     integer*8 :: hypre_A
  -  ! integer*8 :: hypre_b
  -  ! integer*8 :: hypre_x
     integer   ::  nentries, nvalues, stencil_indices(5)
     double precision, dimension(:), allocatable :: values
  -  integer   :: temp(2)
  +  integer   :: indicies(2)
   
     integer :: MPI_COMM_WORLD
     integer :: myid
  
positive.code:     g_vec, nx, ny, layers, n, &
       MPI_COMM_WORLD, myid, num_procs, ilower, iupper, & 
       hypre_grid, hypre_A, ierr)
       ! , &
      ! hypre_grid, hypre_A, hypre_b, hypre_x)
    implicit none
  
    double precision, intent(inout) :: hnew(0:nx+1, 0:ny+1, layers)
  
negative.code:   integer*8 :: precond
    integer   :: nentries, nvalues, stencil_indices(5)
    double precision :: values(nx * ny)
    double precision :: hypre_out(2)
  
    integer :: MPI_COMM_WORLD
    integer :: num_procs, myid
  