mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-17 18:56:34 -04:00
36 lines
712 B
Fortran
36 lines
712 B
Fortran
subroutine hash22(n22,c13,isave)
|
|
|
|
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
|
|
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)
|
|
ihash(1)=n22
|
|
callsign(1)=c13
|
|
else
|
|
c13='<...>'
|
|
do i=1,NMAX
|
|
if(ihash(i).eq.n22) then
|
|
c13=callsign(i)
|
|
go to 900
|
|
endif
|
|
enddo
|
|
endif
|
|
|
|
900 return
|
|
end subroutine hash22
|