anchor.diff:      vec2(1, :) = [1.0_dp, -4.0_dp]
       is_close = vector_close(2, vec1, vec2, eps)
       if (.NOT. is_close) then
  -       write (*, "(A)") "vector_close: Case 2 success"
  +       write (*, "(A)") " vector_close: Case 2 success"
       else
  -       write (*, "(A)") "vector_close: Case 2 failure"
  +       write (*, "(A)") " vector_close: Case 2 failure"
          success = .FALSE.
       end if
   
  
positive.code:     vec2(1, :) = 0.5_dp**45 * [3.0_dp, 4.0_dp]
      is_close = vector_close(2, vec1, vec2, eps)
      if (is_close) then
         write (*, "(A)") "vector_close: Case 5 success"
      else
         write (*, "(A)") "vector_close: Case 5 failure"
         success = .FALSE.
      end if
  
  
negative.code:     vec2(1, :) = vec1(1, :) + 0.5_dp**43 * [-5.0_dp, 12.0_dp]
      is_close = vector_close(2, vec1, vec2, eps)
      if (is_close) then
         write (*, "(A)") " vector_close: Case 3 success"
      else
         write (*, "(A)") " vector_close: Case 3 failure"
         success = .FALSE.
      end if
  
  