toc Function

public function toc(self)

Type Bound

timer

Arguments

Type IntentOptional Attributes Name
class(timer), intent(in) :: self

Return Value real(kind=fffc_real_kind)


Contents

Source Code

toc

Source Code

    function toc(self)
        class(timer), intent(in) :: self
        real(kind=fffc_real_kind) :: toc
        integer :: time_now, time_rate
        call system_clock(time_now, time_rate)
        toc = real(time_now - self%seed, fffc_real_kind)/time_rate
    end function toc