Make the timer calls cumulative over a full MAP65 run.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7508 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

libm65/decode0.f90

@@ -58,7 +58,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
 
   call timer('map65a  ',1)
   call timer('decode0 ',1)
-  if(nstandalone.eq.0) call timer('decode0 ',101)
 
   write(*,1010) nsum,nsave
 1010 format('<DecodeFinished>',2i4)

libm65/m65a.F90

@@ -27,6 +27,7 @@ subroutine m65a
 
   inquire(file=trim(cwd)//'/.quit',exist=fileExists)
   if(fileExists) then
+     call timer('decode0 ',101)
      call ftnquit
      i=detach_m65()
      go to 999

libm65/timer.f90

@@ -64,7 +64,7 @@ subroutine timer(dname,k)
 
 40 write(lu,1040)
 1040 format(/'     name                 time  frac     dtime',       &
-             ' dfrac  calls level parent'/73('-'))
+             ' dfrac  calls level parent'/75('-'))
 
   if(k.gt.100) then
      ndiv=k-100
@@ -96,7 +96,7 @@ subroutine timer(dname,k)
   enddo
 
   write(lu,1070) sum,sumf
-1070 format(/36x,f10.2,f6.2)
+1070 format(75('-')/36x,f10.2,f6.2)
   nmax=0
   eps=0.000001
   ntrace=0