w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05: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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
map65/libm65/display.f90
View File

@ -81,7 +81,7 @@ subroutine display(nkeep,ftol)
endif endif
kz=k kz=k
if(nstart.eq.1) then if(nstart.eq.1) then
call indexx(utc2,kz,indx2) call indexx(float(utc2(1:kz)),kz,indx2)
k3=0 k3=0
do k=1,kz do k=1,kz
k3=min(k3+1,400) k3=min(k3+1,400)
@ -89,7 +89,7 @@ subroutine display(nkeep,ftol)
enddo enddo
nstart=0 nstart=0
else else
call indexx(utc2,kz,indx2) call indexx(float(utc2(1:kz)),kz,indx2)
do k=1,kz do k=1,kz
k3=min(k3+1,400) k3=min(k3+1,400)
line3(k3)=line2(indx2(k)) line3(k3)=line2(indx2(k))
@ -108,7 +108,7 @@ subroutine display(nkeep,ftol)
j0=j j0=j
enddo enddo
kz=k kz=k
call indexx(utc2,kz,indx2) call indexx(float(utc2(1:kz)),kz,indx2)
do k=1,kz do k=1,kz
k3=min(k3+1,400) k3=min(k3+1,400)
line3(k3)=line2(indx2(k)) line3(k3)=line2(indx2(k))