Fortran: najlepszy sposób na czasowe sekcje kodu?

Czasami podczas optymalizacji kodu wymagane jest odmierzanie czasu niektórych fragmentów kodu, korzystam z poniższych od lat, ale zastanawiałem się, czy istnieje prostszy / lepszy sposób na zrobienie tego? call system_clock(count_rate=clock_rate) !Find the time rate call