anchor.diff:          & " 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)
  
positive.code: 
      implicit none
  
      integer, parameter :: width = 1920
      integer, parameter :: height = 1600
  
  
negative.code:     integer :: res_int
      integer (kind=pr) :: res_int_pr
      integer, dimension(:), allocatable :: res_pn
      type(ImageRGB) :: res_img, res_img_small
  
      character(:), allocatable :: file_name, res_pn_str
  
  