mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 01:56:10 -05:00
20 lines
380 B
Fortran
20 lines
380 B
Fortran
subroutine hash12(n12,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(ihash12(i).eq.n12) then
|
|
c13=callsign(i)
|
|
go to 900
|
|
endif
|
|
enddo
|
|
|
|
|
|
900 return
|
|
end subroutine hash12
|