diff --git a/lib/genmsk144.f90 b/lib/genmsk144.f90 index 62fc00a14..5f9ce9354 100644 --- a/lib/genmsk144.f90 +++ b/lib/genmsk144.f90 @@ -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=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 do i=1, 10 diff --git a/lib/ldpcsim144.f90 b/lib/ldpcsim144.f90 index 62c4838fd..66dbfbf0b 100644 --- a/lib/ldpcsim144.f90 +++ b/lib/ldpcsim144.f90 @@ -77,7 +77,7 @@ msg="K9AN K1JT EN50" ihash=nhash(c_loc(i1Msg8BitBytes),int(9,c_size_t),146) 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 do i=1, 10 i1=i1Msg8BitBytes(i) diff --git a/lib/msk144decodeframe.f90 b/lib/msk144decodeframe.f90 index 37b9f8026..5d5e15550 100644 --- a/lib/msk144decodeframe.f90 +++ b/lib/msk144decodeframe.f90 @@ -98,7 +98,7 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,recent_calls,nrecen ! call timer('bpdec144 ',1) if( niterations .ge. 0.0 ) then 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 endif endif