w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-04 07:02:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Don't inadvertently erase hiscall and hisgrid in a call to q65_hist().

Browse Source
This commit is contained in:
Joe Taylor 2021-05-18 16:33:11 -04:00
parent 919c4e0d22
commit bf1d1dace6
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/qra/q65/q65.f90
View File

@ -731,7 +731,8 @@ subroutine q65_hist(if0,msg0,dxcall,dxgrid)
msg(nhist)=msg0 msg(nhist)=msg0
go to 900 go to 900
100 dxcall=' ' !This is a lookup request 100 if(dxcall(1:3).ne.' ') go to 900
dxcall=' ' !This is a lookup request
dxgrid=' ' dxgrid=' '
! Look for a decode close to if0, starting with most recent ones ! Look for a decode close to if0, starting with most recent ones
do i=nhist,1,-1 do i=nhist,1,-1