w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-28 08:06:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

split calculation requires r be real, not int

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3250 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
John T Nogatch 2013-05-01 16:53:43 +00:00
parent 8ea1f5f2a5
commit bac7ce6874
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ssort.f
View File

@ -22,7 +22,8 @@ c = -2 means sort x in decreasing order and carry y along.
! real x(n), y(n) ! real x(n), y(n)
! real r, t, tt, tty, ty ! real r, t, tt, tty, ty
integer x(n), y(n) 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 i, ij, j, k, kk, l, m, nn
integer il(21), iu(21) integer il(21), iu(21)