The t_timer
class defines a cumulative timer. See example below.
Example:
if (timer%is_triggered()) write(*,'("This message will never be displayed")'
if (timer%is_triggered()) write(*,'("Elapsed time: ",g0," s")') timer%get_elapsed_time
write(*,'("Elapsed time: ",g0," s")') timer%get_elapsed_time()
write(*,'("Elapsed time: ",g0," s")') timer%get_elapsed_time()
if (timer%is_triggered()) write(*,'("This message will never be displayed")'