clock_end Subroutine

private subroutine clock_end(me, case_str)

Print runtime in milliseconds form the start of the clock.

Type Bound

clock

Arguments

Type IntentOptional Attributes Name
class(clock), intent(inout) :: me
character(len=*), intent(in) :: case_str

description of the case

Called by

proc~~clock_end~~CalledByGraph proc~clock_end aoc_utilities::clock%clock_end program~problem_1 problem_1 program~problem_1->proc~clock_end program~problem_10 problem_10 program~problem_10->proc~clock_end program~problem_11 problem_11 program~problem_11->proc~clock_end program~problem_12 problem_12 program~problem_12->proc~clock_end program~problem_12b problem_12b program~problem_12b->proc~clock_end program~problem_13 problem_13 program~problem_13->proc~clock_end program~problem_15 problem_15 program~problem_15->proc~clock_end program~problem_16 problem_16 program~problem_16->proc~clock_end program~problem_17 problem_17 program~problem_17->proc~clock_end program~problem_17~2 problem_17 program~problem_17~2->proc~clock_end program~problem_18 problem_18 program~problem_18->proc~clock_end program~problem_19 problem_19 program~problem_19->proc~clock_end program~problem_19b problem_19b program~problem_19b->proc~clock_end program~problem_2 problem_2 program~problem_2->proc~clock_end program~problem_21 problem_21 program~problem_21->proc~clock_end program~problem_22 problem_22 program~problem_22->proc~clock_end program~problem_23 problem_23 program~problem_23->proc~clock_end program~problem_25 problem_25 program~problem_25->proc~clock_end program~problem_3 problem_3 program~problem_3->proc~clock_end program~problem_4 problem_4 program~problem_4->proc~clock_end program~problem_5 problem_5 program~problem_5->proc~clock_end program~problem_6 problem_6 program~problem_6->proc~clock_end program~problem_7 problem_7 program~problem_7->proc~clock_end program~problem_8 problem_8 program~problem_8->proc~clock_end program~problem_9 problem_9 program~problem_9->proc~clock_end

Source Code

    subroutine clock_end(me, case_str)
        class(clock),intent(inout) :: me
        character(len=*),intent(in) :: case_str !! description of the case
        integer :: itime !! time in integer milliseconds
        call system_clock(me%end)
        itime = int(1000*(me%end - me%begin) / real(me%rate, wp))
        write(*,'(a,I4,a)') trim(case_str)//' runtime: ', itime, ' ms'
        write(*,'(a)') '---------------------------'
        write(*,*) ''
    end subroutine clock_end