mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-18 19:26:34 -04:00
19 lines
379 B
Fortran
19 lines
379 B
Fortran
subroutine hash22(n22,c13)
|
|
|
|
parameter (MAXHASH=20)
|
|
character*13 c13,callsign(MAXHASH)
|
|
integer ihash10(MAXHASH),ihash12(MAXHASH),ihash22(MAXHASH)
|
|
common/hashcom/ihash10,ihash12,ihash22,callsign
|
|
save /hashcom/
|
|
|
|
c13='<...>'
|
|
do i=1,MAXHASH
|
|
if(ihash22(i).eq.n22) then
|
|
c13=callsign(i)
|
|
go to 900
|
|
endif
|
|
enddo
|
|
|
|
900 return
|
|
end subroutine hash22
|