clock_start Subroutine

private subroutine clock_start(me)

Start the clock

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(clock),	intent(inout)			::	me

Source Code

    subroutine clock_start(me)
        class(clock),intent(inout) :: me
        call system_clock(me%begin, me%rate)
    end subroutine clock_start