Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Fortran
integer, parameter :: i8 = selected_int_kind(15)
integer(kind=i8) :: start, finish, rate

call system_clock (count_rate=rate)
call system_clock (count=start)
call f()
call system_clock (count=finish)
print *,(finish-start)/real(rate)
(time (f))

New implementation...
< >
programming-idioms.org