WSJT-X/lib/hash.f90

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
Reintegrate the wsjtx_exp branch into the trunk 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 2015-05-27 09:08:28 -04:00			`subroutine hash(string,len,ihash)`
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-11-17 20:28:12 -05:00			`use iso_c_binding, only: c_loc,c_size_t`
			`use hashing`
Reintegrate the wsjtx_exp branch into the trunk 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 2015-05-27 09:08:28 -04:00			`parameter (MASK15=32767)`
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-11-17 20:28:12 -05:00			`! character(), target :: string`
			`character*1, target :: string`
			`i=nhash(c_loc(string),int(len,c_size_t),146)`
Reintegrate the wsjtx_exp branch into the trunk 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 2015-05-27 09:08:28 -04:00			`ihash=iand(i,MASK15)`
			`return`
			`end subroutine hash`