Separate out the final call to timer(), using new "all_done()" function.

qmap/libqmap/q65c.f90

@@ -33,12 +33,6 @@ subroutine q65c(itimer)
   nparams=nparams0                     !Copy parameters into common/npar/
   datetime(12:)='00       '
 
-  if(itimer.ne.0) then
-     call timer('decode0 ',101)
-     call fini_timer
-     return
-  endif
-
   npatience=1
   newdat=1                          !Always on ??
 
@@ -78,3 +72,15 @@ subroutine q65c(itimer)
 
   return
 end subroutine q65c
+
+subroutine all_done
+
+  use timer_module, only: timer
+  use timer_impl, only: fini_timer
+
+  call timer('decode0 ',101)
+  call fini_timer
+  print*,'All Done'
+
+  return
+end subroutine all_done

qmap/mainwindow.cpp

@@ -186,8 +186,7 @@ MainWindow::MainWindow(QWidget *parent) :
 MainWindow::~MainWindow()
 {
   writeSettings();
-  int one=1;
-  q65c_(&one);
+  all_done_();
 
   if (soundInThread.isRunning()) {
     soundInThread.quit();

qmap/mainwindow.h

@@ -200,6 +200,10 @@ extern "C" {
                     const char* mygrid, int* ndop00, int len1);
 
   void q65c_(int* itimer);
+//             void q65c_(const char* fname, const char* revision, int* itimer,
+//             int len1, int len2);
+
+  void all_done_();
 
   void zaptx_(float d4[], int* k0, int* k);