From 682145f8e854a6900ba1bc6fa935a5b438a1d90c Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 30 Dec 2005 01:40:23 +0000
Subject: [PATCH] Fixed sort of zero-length array in wsjt1.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@39 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 ssort.f |  3 +--
 wsjt.py |  2 +-
 wsjt1.f | 34 ++++++++++++++++++----------------
 3 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/ssort.f b/ssort.f
index 11da51f7a..e8cfa462b 100644
--- a/ssort.f
+++ b/ssort.f
@@ -26,8 +26,7 @@ c            = -2  means sort x in decreasing order and carry y along.
 
       nn = n
       if (nn .lt. 1) then
-         print *,
-     +      'the number of values to be sorted is not positive.'
+         print *,'n = ',nn,'   kflag = ',kflag,' in ssort.'
          return
       endif
 c
diff --git a/wsjt.py b/wsjt.py
index 70612a489..e95a49d17 100644
--- a/wsjt.py
+++ b/wsjt.py
@@ -1,4 +1,4 @@
-# ---------------------------------------------------------- WSJT
+#---------------------------------------------------------- WSJT
 from Tkinter import *
 from tkFileDialog import *
 import Pmw
diff --git a/wsjt1.f b/wsjt1.f
index 783e4c765..2eb9f8750 100644
--- a/wsjt1.f
+++ b/wsjt1.f
@@ -264,24 +264,26 @@ C  Now the multi-tone decoding
      +    cfile6,ps0)
 
 	npkept=nline             !Number of pings that were kept
-	call indexx(npkept,tping,indx)  !Merge the ST and MT decodes
 	smax=0.
 	stbest=.false.
-	do i=1,npkept
-	   j=indx(i)
-	   if(pick .and. STFound .and.
-     +        line(j)(29:31).eq.'   ') goto 10
-	   write(lumsg,1050) line(j)       !Write to decoded.txt
- 1050	   format(a79)
-	   if(lcum) write(21,1050) line(j) !Write to decoded.cum
-	   read(line(j),1060) sig,msg3
- 1060	   format(16x,f3.0,9x,a3)
-	   if(sig.gt.smax) then
-	      smax=sig
-	      tbest=tping(j)
-	      stbest = (msg3.ne.'   ')
-	   endif
- 10	enddo
+	if(npkept.gt.0) then
+	   call indexx(npkept,tping,indx) !Merge the ST and MT decodes
+	   do i=1,npkept
+	      j=indx(i)
+	      if(pick .and. STFound .and.
+     +          line(j)(29:31).eq.'   ') goto 10
+	      write(lumsg,1050) line(j)	!Write to decoded.txt
+ 1050	      format(a79)
+	      if(lcum) write(21,1050) line(j) !Write to decoded.cum
+	      read(line(j),1060) sig,msg3
+ 1060	      format(16x,f3.0,9x,a3)
+	      if(sig.gt.smax) then
+		 smax=sig
+		 tbest=tping(j)
+		 stbest = (msg3.ne.'   ')
+	      endif
+ 10	   enddo
+	endif
 
 	dt=1.0/11025.0                !Compute spectrum for pink curve
 	if(stbest) then