w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Increase size of callsign hash table; protect against its overflow.

This commit is contained in:
Joe Taylor 2018-08-31 09:23:37 -04:00
parent 82fe6fcff3
commit 45d48629d2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/packjt77.f90
View File

@ -1,7 +1,7 @@
module packjt77
! These variables are accessible from outside via "use packjt":
parameter (MAXHASH=20)
parameter (MAXHASH=100)
character*13 callsign(MAXHASH)
integer ihash10(MAXHASH),ihash12(MAXHASH),ihash22(MAXHASH)
integer n28a,n28b,nzhash
@ -121,7 +121,7 @@ subroutine save_hash_call(c13,n10,n12,n22)
ihash12(1)=n12
ihash22(1)=n22
callsign(1)=c13
nzhash=nzhash+1
if(nzhash.lt.MAXHASH) nzhash=nzhash+1
900 return
end subroutine save_hash_call