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