anchor.diff:  
           write (*,*) " done!"
   
  +        111 format (A25, I20, A, F0.3, A)
  +        222 format (A25, I5, I5, I5, I5, A, F0.3, A)
   
         end program benchmark
   
  
positive.code: 
          write (*,*) "Mandelbrot set"
          write (*,*) "=============="
          write (*,*) cm(:,1)
          write (*,*) cm(:,2)
          write (*,*) cm(:,256)
          call system_clock(tic)
          res_img = image(width, height, -0.5, 0.0, 4.0/width)
          call system_clock(toc)
  
negative.code:         call system_clock(tic)
          res_int = fib_naive(35)
          call system_clock(toc)
          write (*,111) "fib_naive(35) = ", res_int, &
            & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
          call system_clock(tic)
          res_int_pr = fib_iter(35)
          call system_clock(toc)
          write (*,111) "fib_iter(35) = ", res_int_pr, &
            & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
          call system_clock(tic)
          res_int_pr = fib_iter(1000)
          call system_clock(toc)
          write (*,111) "fib_iter(1000) = ", res_int_pr, &
            & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
          write (*,*) ""
  