anchor.diff:          call system_clock(tic)
           res_int = fib_naive(35)
           call system_clock(toc)
  -        write (*,*) "fib_naive(35) = ", res_int, &
  +        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 (*,*) "fib_iter(35) = ", res_int_pr, &
  +        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 (*,*) "fib_iter(1000) = ", res_int_pr, &
  +        write (*,111) "fib_iter(1000) = ", res_int_pr, &
             & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
   
           write (*,*) ""
  
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: 
          use fibonacci
          use perfect_number
          !use color_map
          use mandelbrot
  
          implicit none
  