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 2015-05-27 13:08:28 +00:00			`subroutine hash(string,len,ihash)`
Reintegrate merge from wsjtx_exp branch. 2015-11-18 01:28:12 +00:00			`use iso_c_binding, only: c_loc,c_size_t`
			`use hashing`
Reintegrate the wsjtx_exp branch into the trunk 2015-05-27 13:08:28 +00:00			`parameter (MASK15=32767)`
Reintegrate merge from wsjtx_exp branch. 2015-11-18 01:28:12 +00: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 2015-05-27 13:08:28 +00:00			`ihash=iand(i,MASK15)`
			`return`
			`end subroutine hash`