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