timer_obj_EndRun Subroutine

private pure subroutine timer_obj_EndRun(this)

Changes run status to finished.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(timer_obj),	intent(inout)			::	this	Timer

Source Code

    pure subroutine timer_obj_EndRun(this)
      !> Changes run status to finished.
      implicit none
      class(timer_obj), intent(inout) :: this                                  !! Timer

      this%finish = .true.

      return
    end subroutine timer_obj_EndRun