Define psb_free_timers()

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