mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 23:57:10 -04:00
f9d0a1863a
This merge brings the WSPR feature development into the main line ready for release in a future v1.6 release. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
16 lines
280 B
Fortran
16 lines
280 B
Fortran
subroutine hash(string,len,ihash)
|
|
|
|
parameter (MASK15=32767)
|
|
character*(*) string
|
|
integer*1 ic(12)
|
|
|
|
do i=1,len
|
|
ic(i)=ichar(string(i:i))
|
|
enddo
|
|
i=nhash(ic,len,146)
|
|
ihash=iand(i,MASK15)
|
|
|
|
! print*,'C',ihash,len,string
|
|
return
|
|
end subroutine hash
|