From bac7ce687414d8db94777b228846a16d7fd2df14 Mon Sep 17 00:00:00 2001
From: John T Nogatch <jnogatch@gmail.com>
Date: Wed, 1 May 2013 16:53:43 +0000
Subject: [PATCH] split calculation requires r be real, not int

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3250 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ssort.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/ssort.f b/lib/ssort.f
index fa508ace6..b77376732 100644
--- a/lib/ssort.f
+++ b/lib/ssort.f
@@ -22,7 +22,8 @@ c            = -2  means sort x in decreasing order and carry y along.
 !      real x(n), y(n)
 !      real r, t, tt, tty, ty
       integer x(n), y(n)
-      integer r, t, tt, tty, ty
+      real r
+      integer t, tt, tty, ty
       integer i, ij, j, k, kk, l, m, nn
       integer il(21), iu(21)