WSJT-X/lib/77bit/hash22.f90

36 lines
712 B
Fortran
Raw Normal View History

2018-06-28 11:48:42 -04:00
subroutine hash22(n22,c13,isave)
2018-06-28 11:48:42 -04:00
parameter (NMAX=22)
character*13 c13,callsign(NMAX)
integer ihash(NMAX)
logical first
data first/.true./
save first,ihash,callsign
if(first) then
ihash=-1
callsign=' '
first=.false.
endif
if(isave.ge.0) then
do i=1,NMAX
2018-06-28 11:48:42 -04:00
if(ihash(i).eq.n22) go to 900 !This one is already in the list
enddo
ihash(NMAX:2:-1)=ihash(NMAX-1:1:-1)
callsign(NMAX:2:-1)=callsign(NMAX-1:1:-1)
2018-06-28 11:48:42 -04:00
ihash(1)=n22
callsign(1)=c13
else
2018-06-28 11:48:42 -04:00
c13='<...>'
do i=1,NMAX
2018-06-28 11:48:42 -04:00
if(ihash(i).eq.n22) then
c13=callsign(i)
go to 900
endif
enddo
endif
900 return
2018-06-28 11:48:42 -04:00
end subroutine hash22