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:     integer :: res_int
      integer (kind=pr) :: res_int_pr
      integer, dimension(:), allocatable :: res_pn
      type(ImageRGB) :: res_img
  
      character(:), allocatable :: file_name, res_pn_str
  
  
negative.code:         & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      file_name = "mandelbrot_small.png"
      call res_img_small%write_png(file_name)
      call system_clock(toc)
      write (*,444) "mandelbrot_set (small) written to file(PNG)", &
          & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      file_name = "mandelbrot.png"
      call res_img%write_png(file_name)
      call system_clock(toc)
  