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
2013-05-01 16:53:43 +00:00 · 2013-05-01 16:53:43 +00:00 · bac7ce6874
parent 8ea1f5f2a5
commit bac7ce6874
1 changed files with 2 additions and 1 deletions
--- 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)