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

2021-05-18 16:33:11 -04:00 · 2021-05-18 16:33:11 -04:00 · bf1d1dace6
parent 919c4e0d22
commit bf1d1dace6
1 changed files with 2 additions and 1 deletions
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@ -731,7 +731,8 @@ subroutine q65_hist(if0,msg0,dxcall,dxgrid)
  msg(nhist)=msg0
  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='      '
 ! Look for a decode close to if0, starting with most recent ones
  do i=nhist,1,-1