Print_timers: check for allocated timers.

6 years ago · 2bd9e4ffa6
parent fcc8a88112
commit 2bd9e4ffa6
1 changed files with 13 additions and 11 deletions
--- a/base/modules/psb_timers_mod.f90
+++ b/base/modules/psb_timers_mod.f90
@ -127,6 +127,7 @@ contains
    end if
      
    if (global_) then
+      if (allocated(timers)) then 
        allocate(ptimers(timer_entries_,size(timers,2)),stat=info)
        if (info /= 0) then
          write(0,*) 'Error while trying to allocate temporary ',info
@ -139,6 +140,7 @@ contains
            call print_timer(me, ptimers(:,i), timers_descr(i), iout)
          end do
        end if
+      end if
    else
      if ((proc_ == -1).or.(me==proc_)) then
        do i=idxmin_, idxmax_