mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 05:38:46 -05:00
1a23757b26
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
11 lines
289 B
Fortran
11 lines
289 B
Fortran
subroutine hash(string,len,ihash)
|
|
use iso_c_binding, only: c_loc,c_size_t
|
|
use hashing
|
|
parameter (MASK15=32767)
|
|
! character*(*), target :: string
|
|
character*1, target :: string
|
|
i=nhash(c_loc(string),int(len,c_size_t),146)
|
|
ihash=iand(i,MASK15)
|
|
return
|
|
end subroutine hash
|