Print_timers: check for allocated timers.

base/modules/psb_timers_mod.f90

@@ -127,17 +127,19 @@ contains
     end if
       
     if (global_) then
-      allocate(ptimers(timer_entries_,size(timers,2)),stat=info)
+      if (allocated(timers)) then 
-      if (info /= 0) then
+        allocate(ptimers(timer_entries_,size(timers,2)),stat=info)
-        write(0,*) 'Error while trying to allocate temporary ',info
+        if (info /= 0) then
-        call psb_abort(ictxt)
+          write(0,*) 'Error while trying to allocate temporary ',info
-      end if
+          call psb_abort(ictxt)
-      ptimers = timers
+        end if
-      call psb_max(ictxt,ptimers)
+        ptimers = timers
-      if (me == psb_root_) then
+        call psb_max(ictxt,ptimers)
-        do i=idxmin_, idxmax_
+        if (me == psb_root_) then
-          call print_timer(me, ptimers(:,i), timers_descr(i), iout)
+          do i=idxmin_, idxmax_
-        end do
+            call print_timer(me, ptimers(:,i), timers_descr(i), iout)
+          end do
+        end if
       end if
     else
       if ((proc_ == -1).or.(me==proc_)) then