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

Open/close LU 24 in q65_hist2.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-17 10:43:37 -05:00
parent b61e8aeb24
commit 96c7d6bf36
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/qra/q65/q65.f90
View File

@ -869,6 +869,7 @@ end subroutine q65_hist
subroutine q65_hist2(nfreq,msg0,callers,nhist2) subroutine q65_hist2(nfreq,msg0,callers,nhist2)
use types use types
use prog_args
parameter (MAX_CALLERS=40) !For multiple q3 decodes in NA VHf Contest mode parameter (MAX_CALLERS=40) !For multiple q3 decodes in NA VHf Contest mode
character*37 msg0,msg character*37 msg0,msg
type(q3list) callers(MAX_CALLERS) type(q3list) callers(MAX_CALLERS)
@ -913,9 +914,13 @@ subroutine q65_hist2(nfreq,msg0,callers,nhist2)
callers(nhist2)%grid=g4 callers(nhist2)%grid=g4
callers(nhist2)%nsec=time() callers(nhist2)%nsec=time()
callers(nhist2)%nfreq=nfreq callers(nhist2)%nfreq=nfreq
write(24) nhist2,callers(1:nhist2)
endif endif
open(24,file=trim(data_dir)//'/tsil.3q',status='unknown', &
form='unformatted')
write(24) nhist2,callers(1:nhist2)
close(24)
900 return 900 return
end subroutine q65_hist2 end subroutine q65_hist2