2018-09-24 15:10:57 -05:00
|
|
|
subroutine update_hasharray(nhasharray)
|
|
|
|
|
|
|
|
|
|
use packjt77
|
2018-10-05 20:56:22 -05:00
|
|
|
character*37 hashmsg
|
2018-09-24 15:10:57 -05:00
|
|
|
integer nhasharray(MAXRECENT,MAXRECENT)
|
2016-12-31 02:05:51 +00:00
|
|
|
|
|
|
|
|
nhasharray=-1
|
2018-09-24 15:10:57 -05:00
|
|
|
do i=1,MAXRECENT
|
|
|
|
|
do j=i+1,MAXRECENT
|
2017-01-04 01:16:19 +00:00
|
|
|
if( recent_calls(i)(1:1) .ne. ' ' .and. recent_calls(j)(1:1) .ne. ' ' ) then
|
2017-01-01 16:34:20 +00:00
|
|
|
hashmsg=trim(recent_calls(i))//' '//trim(recent_calls(j))
|
|
|
|
|
call fmtmsg(hashmsg,iz)
|
2018-10-05 20:56:22 -05:00
|
|
|
call hash(hashmsg,37,ihash)
|
2017-01-01 16:34:20 +00:00
|
|
|
ihash=iand(ihash,4095)
|
|
|
|
|
nhasharray(i,j)=ihash
|
|
|
|
|
hashmsg=trim(recent_calls(j))//' '//trim(recent_calls(i))
|
|
|
|
|
call fmtmsg(hashmsg,iz)
|
2018-10-05 20:56:22 -05:00
|
|
|
call hash(hashmsg,37,ihash)
|
2017-01-01 16:34:20 +00:00
|
|
|
ihash=iand(ihash,4095)
|
|
|
|
|
nhasharray(j,i)=ihash
|
|
|
|
|
endif
|
2016-12-31 02:05:51 +00:00
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
end subroutine update_hasharray
|
