fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Define psb_free_timers()

Browse Source
This commit is contained in:
Salvatore Filippone
2020-04-25 15:50:35 +02:00
parent 98349319e8
commit 2a6107a937
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_timers_mod.f90
+12 -1
View File
@@ -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