timer_object Derived Type

type, private :: timer_object


Contents

Variables

Source Code

timer_object

Components

Type Visibility Attributes Name Initial
character(len=25), public :: timer_name
integer, public :: ncalls = 0
real(kind=dp), public :: time_cpu = 0.0_dp
real(kind=dp), public :: sum_time_cpu = 0.0_dp
logical, public :: timing_on = .false.

Source Code

    type timer_object
        character(25) :: timer_name
        integer :: ncalls = 0
        real(dp) :: time_cpu = 0.0_dp     ! For timing of the current call to the procedure.
        real(dp) :: sum_time_cpu = 0.0_dp    ! Sum of time spent in the procedure.
        logical :: timing_on = .false.   ! true whilst the timer is active.
    end type timer_object