anchor.diff:      Implicit None
       
       integer, parameter ::  dp = kind(0.d0)
  -    integer, parameter :: i64 = selected_int_kind(18) ! At least 64-bit integer
  +    integer, parameter :: i64 = selected_int_kind(18) 
       
       real(dp) :: sysclock2ms
       integer :: k
  
positive.code:     
      real(dp) :: d(N,N),e(N,N)
  
  !    print *,'init random seed'
      call init_random_seed()
  !    print *,'fill matrices'
  
  ! https://github.com/JuliaLang/julia/blob/master/test/perf/micro/perf.f90
  
  
negative.code: 
      tmin = toc-tic
      
  print "('fortran milliseconds per matrix multiplication ',f0.6)", sysclock2ms(tmin) 
  
  end program
  
  