end_timing Subroutine

public subroutine end_timing()

Arguments

None

Contents

Source Code


Source Code

    subroutine end_timing()
        != Stop global timer for timing the total calculation time.

        real(dp) :: t

        if (time_at_all) then
            if (global_timing_on) then
                t = MPI_WTIME()
                global_time = t - global_time
                global_timing_on = .false.
            else
                call warning_neci('end_timing', 'Global timing never initialised via call to init_timing.')
            end if
        end if

    end subroutine end_timing