Бенчмаркинг fortran loop

Question

Мне нужно проверить часть программы fortran, чтобы понять и количественно оценить влияние конкретных изменений (чтобы сделать код более удобным для обслуживания, мы хотели бы сделать его более OO, воспользовавшись указателями функций для пример).

У меня есть цикл, вызывающий несколько раз те же подпрограммы для выполнения вычислений на конечных элементах. Я хочу увидеть влияние использования указателей на функции, а не только жестко закодированных функций.

do i=1,n_of_finite_elements 
    ! Need to benchmark execution time of this code 
end do 

Что было бы простым способом получить время выполнения такого цикла и отформатировать его в идеальном режиме?

Answer 1

У меня есть GitHub проект, который измеряет производительность проходящих различных массивов на https://github.com/jlokimlin/array_passing_performance.git

Он использует CpuTimer полученного типа данных из https://github.com/jlokimlin/cpu_timer.git.

Использование:

use, intrinsic :: iso_fortran_env, only: & 
    wp => REAL64, & 
    ip => INT32 

use type_CpuTimer, only: & 
    CpuTimer 

type (CpuTimer) :: timer 
real (wp)  :: wall_clock_time 
real (wp)  :: total_processor_time 
integer (ip) :: units = 0 ! (optional argument) = 0 for seconds, or 1 for minutes, or 2 for hours 

! Starting the timer 
call timer%start() 

do i = 1, n 

    !...some big calculation... 

end do 

! Stopping the timer 
call timer%stop() 

! Reading the time 
wall_clock_time = timer%get_elapsed_time(units) 

total_processor_time = timer%get_total_cpu_time(units) 

! Write time stamp to standard output 
call timer%print_time_stamp() 

! Write compiler info to standard output 
call timer%print_compiler_info()