anchor.diff:      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"
  +    & " 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, ")", &
  -        & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  +    & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
   
       call system_clock(tic)
       res_img = create_omp(width, height, -0.5, 0.0, 4.0/width)
       call system_clock(toc)
       write (*,333) "mandelbrot_set (OpenMP) (", width, ", ", height, ")", &
  -        & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  +    & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
   
       call system_clock(tic)
       file_name = "mandelbrot.ppm"
       call res_img%write_ppm(file_name)
       call system_clock(toc)
       write (*,444) "mandelbrot_set written to file (PPM)", &
  -        & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  +    & " 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"
  +    & " 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)
       write (*,444) "mandelbrot_set written to file(PNG)", &
  -        & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  +    & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
   
       write (*,*) ""
   
       write (*,*) " done!"
   
  -    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)
  +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
  
positive.code:     write (*, *) 'Compiler options: ', compiler_options()
  #endif
  
      !$omp parallel
      !$omp master
      write (*, '(x, a, i2)') "OpenMP threads: ", omp_get_num_threads()
  
negative.code: 
  program benchmark
  
      use iso_fortran_env, only: compiler_version, compiler_options
      use omp_lib, only: omp_get_thread_num, omp_get_num_threads
  
      use fibonacci
  