anchor.diff:        call populate(pos, dim)
         call findval(pos, value, dim)
         call minmax(value, min, max)
  -      call centroid(pos, min, max, dim)
  +      call centroid(pos, min, dim)
   
         !write(*,*) pos(1,1), pos(1,2), pos(1,3), pos(1,4)
         !write(*,*) pos(2,1), pos(2,2), pos(2,3), pos(2,4)
  
positive.code:                       call contractall(pos, max, dim)
                        call findval(pos, value, dim)
                        call minmax(value, min, max)
                        call centroid(pos, min, max, dim)
                    end if
  
                end if
  
negative.code: 
        !! Initialization!
        do i = 1, dim
            do j = 1,dim - 1
                list(i,j) = j
            end do 
            do k = dim-1, 1, -1
  