Іноді під час оптимізації коду потрібно проводити час на певні частини коду, я використовую наступні роки, але мені було цікаво, чи існує простіший / кращий спосіб зробити це?
call system_clock(count_rate=clock_rate) !Find the time rate
call system_clock(count=clock_start) !Start Timer
call do_something_subroutine !This is what gets timed
call system_clock(count=clock_stop) ! Stop Timer
e_time = real(clock_stop-clock_start)/real(clock_rate)