anchor.diff:      write (*,*) "Mandelbrot set"
       write (*,*) "--------------"
       call system_clock(tic)
  +    res_img_small = create(width_small, height_small, -0.5, 0.0, 4.0/width_small)
  +    call system_clock(toc)
  +    write (*,333) "mandelbrot_set (", width_small, ", ", height_small, ")", &
  +        & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  +
  +    call system_clock(tic)
       res_img = create(width, height, -0.5, 0.0, 4.0/width)
       call system_clock(toc)
       write (*,333) "mandelbrot_set (", width, ", ", height, ")", &
  
positive.code: 
      implicit none
  
      integer, parameter :: width = 1920
      integer, parameter :: height = 1600
  
  
negative.code:     111 format (A25, I20, A, F0.3, A)
      222 format (A25, I8, A, A, /, A, F0.3, A)
      333 format (A35, I5, A, I5, A, 10X, A, F0.3, A)
      444 format (A48, 10X, A, F0.3, A)
  
  end program benchmark
  