w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Somewhat pedantic, but better not to call "hash code" a CRC.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8437 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2018-01-26 19:12:10 +00:00
parent 2746af1581
commit 1022a55665
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/genmsk144.f90
View File

@ -100,7 +100,7 @@ subroutine genmsk144(msg0,mygrid,ichk,bcontest,msgsent,i4tone,itype)
ihash=nhash(c_loc(i1Msg8BitBytes),int(9,c_size_t),146) ihash=nhash(c_loc(i1Msg8BitBytes),int(9,c_size_t),146)
ihash=2*iand(ihash,32767) !Generate the 8-bit hash ihash=2*iand(ihash,32767) !Generate the 8-bit hash
i1Msg8BitBytes(10)=i1hash(1) !CRC to byte 10 i1Msg8BitBytes(10)=i1hash(1) !Hash code to byte 10
mbit=0 mbit=0
do i=1, 10 do i=1, 10

2
lib/ldpcsim144.f90
View File

@ -77,7 +77,7 @@ msg="K9AN K1JT EN50"
ihash=nhash(c_loc(i1Msg8BitBytes),int(9,c_size_t),146) ihash=nhash(c_loc(i1Msg8BitBytes),int(9,c_size_t),146)
ihash=2*iand(ihash,32767) !Generate the 8-bit hash ihash=2*iand(ihash,32767) !Generate the 8-bit hash
i1Msg8BitBytes(10)=i1hash(1) !CRC to byte 10 i1Msg8BitBytes(10)=i1hash(1) !Hash code to byte 10
mbit=0 mbit=0
do i=1, 10 do i=1, 10
i1=i1Msg8BitBytes(i) i1=i1Msg8BitBytes(i)

2
lib/msk144decodeframe.f90
View File

@ -98,7 +98,7 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,recent_calls,nrecen
! call timer('bpdec144 ',1) ! call timer('bpdec144 ',1)
if( niterations .ge. 0.0 ) then if( niterations .ge. 0.0 ) then
call extractmessage144(decoded,msgreceived,nhashflag,recent_calls,nrecent) call extractmessage144(decoded,msgreceived,nhashflag,recent_calls,nrecent)
if( nhashflag .gt. 0 ) then ! CRCs match, so print it if( nhashflag .gt. 0 ) then !Hash codes match, so print it
nsuccess=1 nsuccess=1
endif endif
endif endif