anchor.diff:  
       integer :: L
       integer :: R
  +    integer :: n_iteration
       real(8) :: testval
   
       L = 1
  
positive.code:        elseif (val < testval) then
            R = array_index
         end if
      end do
  
      array_index = L
  
negative.code:   use constants, only: ONE, MAX_LINE_LEN
    use error,     only: fatal_error
    use global,    only: message
  
    integer, parameter :: MAX_ITERATION = 64
  
  contains
  
  