w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity
32a9f0bc31
WSJT-X/lib/update_msk40_hasharray.f90

26 lines
731 B
Fortran
Raw Normal View History

Use separate hash tables for 10, 12, and 22 bit hashes. Make unpacking i3=4 messages depend on whether unpack is being done on a received message, or a to-be-transmitted message. Give mycall13 priority over hash table entries in certain contexts.
2018-12-20 16:08:29 -05:00
subroutine update_msk40_hasharray(nhasharray)
Make MSK144 SWL mode work. Needs testing\!
2018-09-24 16:10:57 -04:00
use packjt77
Fix bug that prevented generation of MSK144 Sh messages with extended callsign. Change all MSK144 Sh code to use 12-char mycall and hiscall and 37-char messages. Hash full extended callsigns (not just base call) and print full callsigns, e.g. <KP4/K1JT K9AN> RRR
2018-10-05 21:56:22 -04:00
character*37 hashmsg
Make MSK144 SWL mode work. Needs testing\!
2018-09-24 16:10:57 -04:00
integer nhasharray(MAXRECENT,MAXRECENT)
Progress toward SWL capability. Not finished and not tested. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7434 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-30 21:05:51 -05:00
nhasharray=-1
Make MSK144 SWL mode work. Needs testing\!
2018-09-24 16:10:57 -04:00
do i=1,MAXRECENT
do j=i+1,MAXRECENT
Tweaks to reject certain types of spurious decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7447 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-01-03 20:16:19 -05:00
if( recent_calls(i)(1:1) .ne. ' ' .and. recent_calls(j)(1:1) .ne. ' ' ) then
More progress on SWL mode. Needs testing. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7437 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-01-01 11:34:20 -05:00
hashmsg=trim(recent_calls(i))//' '//trim(recent_calls(j))
call fmtmsg(hashmsg,iz)
Fix bug that prevented generation of MSK144 Sh messages with extended callsign. Change all MSK144 Sh code to use 12-char mycall and hiscall and 37-char messages. Hash full extended callsigns (not just base call) and print full callsigns, e.g. <KP4/K1JT K9AN> RRR
2018-10-05 21:56:22 -04:00
call hash(hashmsg,37,ihash)
More progress on SWL mode. Needs testing. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7437 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-01-01 11:34:20 -05:00
ihash=iand(ihash,4095)
nhasharray(i,j)=ihash
hashmsg=trim(recent_calls(j))//' '//trim(recent_calls(i))
call fmtmsg(hashmsg,iz)
Fix bug that prevented generation of MSK144 Sh messages with extended callsign. Change all MSK144 Sh code to use 12-char mycall and hiscall and 37-char messages. Hash full extended callsigns (not just base call) and print full callsigns, e.g. <KP4/K1JT K9AN> RRR
2018-10-05 21:56:22 -04:00
call hash(hashmsg,37,ihash)
More progress on SWL mode. Needs testing. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7437 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-01-01 11:34:20 -05:00
ihash=iand(ihash,4095)
nhasharray(j,i)=ihash
endif
Progress toward SWL capability. Not finished and not tested. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7434 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-30 21:05:51 -05:00
enddo
enddo
Use separate hash tables for 10, 12, and 22 bit hashes. Make unpacking i3=4 messages depend on whether unpack is being done on a received message, or a to-be-transmitted message. Give mycall13 priority over hash table entries in certain contexts.
2018-12-20 16:08:29 -05:00
end subroutine update_msk40_hasharray
Reference in New Issue Copy Permalink