From d3c9d292149f609d93466db9361bb140c5d0601f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 7 Jul 2018 09:54:34 -0400
Subject: [PATCH] Fix a bug in split77.

---
 lib/77bit/packjt77.f90 | 5 +++--
 mainwindow.cpp         | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 1d847f5a3..e0b8cd310 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -668,9 +668,10 @@ subroutine split77(msg,nwords,nw,w)
   enddo
   iz=j                                          !Message length
   nwords=k                                      !Number of words in msg
+  if(nwords.le.0) go to 900
   nw(k)=len(trim(w(k)))
   msg(iz+1:)='                                     '
-  
+  if(nwords.lt.3) go to 900
   call chkcall(w(3),bcall_1,ok1)
   if(ok1 .and. w(1)(1:3).eq.'CQ ') then
      w(1)='CQ_'//w(2)(1:10)
@@ -678,7 +679,7 @@ subroutine split77(msg,nwords,nw,w)
      nwords=nwords-1
   endif
   
-  return
+900 return
 end subroutine split77
 
 
diff --git a/mainwindow.cpp b/mainwindow.cpp
index 9f72a092d..074581f08 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -3678,8 +3678,8 @@ void MainWindow::guiUpdate()
 
 //Once per second:
   if(nsec != m_sec0) {
-    qDebug() << "OneSec:" << m_config.bGenerate77() << m_config.bDecode77()
-             << m_config.FieldDayExchange() << m_config.RTTYExchange();
+//    qDebug() << "OneSec:" << m_config.bGenerate77() << m_config.bDecode77()
+//             << m_config.FieldDayExchange() << m_config.RTTYExchange();
     if(m_freqNominal!=0 and m_freqNominal<50000000 and m_config.enable_VHF_features()) {
       if(!m_bVHFwarned) vhfWarning();
     } else {