w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-02 14:04:55 -04:00
Code Issues Packages Projects Releases Wiki Activity

Send real, not int, to indexx(). Should prevent floating exception message on exit.

Browse Source
This commit is contained in:
Joe Taylor
2021-04-11 09:32:21 -04:00
parent f65b7925a7
commit 7664a63465
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
map65/libm65/display.f90
+3 -3
View File
@@ -81,7 +81,7 @@ subroutine display(nkeep,ftol)
endif
kz=k
if(nstart.eq.1) then
call indexx(utc2,kz,indx2)
call indexx(float(utc2(1:kz)),kz,indx2)
k3=0
do k=1,kz
k3=min(k3+1,400)
@@ -89,7 +89,7 @@ subroutine display(nkeep,ftol)
enddo
nstart=0
else
call indexx(utc2,kz,indx2)
call indexx(float(utc2(1:kz)),kz,indx2)
do k=1,kz
k3=min(k3+1,400)
line3(k3)=line2(indx2(k))
@@ -108,7 +108,7 @@ subroutine display(nkeep,ftol)
j0=j
enddo
kz=k
call indexx(utc2,kz,indx2)
call indexx(float(utc2(1:kz)),kz,indx2)
do k=1,kz
k3=min(k3+1,400)
line3(k3)=line2(indx2(k))