From 2a6107a937377010ef961434673825d10b2bacbf Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 25 Apr 2020 15:50:35 +0200 Subject: [PATCH] Define psb_free_timers() --- base/modules/psb_timers_mod.f90 | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/base/modules/psb_timers_mod.f90 b/base/modules/psb_timers_mod.f90 index 755afd24..18107d6d 100644 --- a/base/modules/psb_timers_mod.f90 +++ b/base/modules/psb_timers_mod.f90 @@ -41,7 +41,7 @@ module psb_timers_mod use psb_penv_mod public psb_init_timers, psb_get_timer_idx, psb_reset_timers,& - & psb_tic, psb_toc, psb_print_timers, psb_get_timer + & psb_tic, psb_toc, psb_print_timers, psb_get_timer, psb_free_timers private ! Reallocation @@ -187,6 +187,17 @@ contains end subroutine psb_init_timers + subroutine psb_free_timers() + implicit none + + integer(psb_ipk_) :: info + + if (allocated(nsamples)) deallocate(nsamples,stat=info) + if (allocated(timers)) deallocate(timers,stat=info) + if (allocated(timers_descr)) deallocate(timers_descr,stat=info) + + end subroutine psb_free_timers + subroutine reallocate_timers(tsz,info) implicit none integer(psb_ipk_), intent(in) :: tsz