anchor.diff:  !  DEFINITIONS
   !!----------------------------------------------------------------------------!!
   
  -      integer, parameter             :: dim = 4
  +      integer, parameter             :: dim = 8
         integer                        :: min, max, i
         integer, dimension(dim, dim-1) :: list
         real*8, dimension(2, dim)      :: pos
  
positive.code:       end interface
  
        interface
            subroutine findval_santa(pos, list, dim)
                real*8, dimension(:,:) :: pos
                integer, dimension(:,:):: list
                real*8, dimension(:)   :: value
                integer                :: dim
            end subroutine findval_santa
        end interface
  
        interface
  
negative.code:       do while (dist > cutoff)
        !do while (i < 10)
            !! Reflection first
            write(*,*) i
            minsave = min
            minval = value(min)
            xsave = pos(1, min)
  