w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 06:35:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

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