w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 06:35:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor changes to simplify hash10,hash12,hash22 routines.

Browse Source
This commit is contained in:
Steve Franke 2018-10-09 15:29:12 -05:00
parent 343cef2e03
commit 14af74ddeb
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/77bit/packjt77.f90
View File

@ -17,10 +17,7 @@ subroutine hash10(n10,c13)
do i=1,nzhash do i=1,nzhash
if(ihash10(i).eq.n10) then if(ihash10(i).eq.n10) then
c13=callsign(i) c13=callsign(i)
if(c13(1:1).ne.'<') then c13='<'//trim(c13)//'>'//' '
n=len(trim(c13))
c13='<'//trim(c13)//'>'//' '
endif
go to 900 go to 900
endif endif
enddo enddo
@ -36,10 +33,7 @@ subroutine hash12(n12,c13)
do i=1,nzhash do i=1,nzhash
if(ihash12(i).eq.n12) then if(ihash12(i).eq.n12) then
c13=callsign(i) c13=callsign(i)
if(c13(1:1).ne.'<') then c13='<'//trim(c13)//'>'//' '
n=len(trim(c13))
c13='<'//trim(c13)//'>'//' '
endif
go to 900 go to 900
endif endif
enddo enddo
@ -56,10 +50,7 @@ subroutine hash22(n22,c13)
do i=1,nzhash do i=1,nzhash
if(ihash22(i).eq.n22) then if(ihash22(i).eq.n22) then
c13=callsign(i) c13=callsign(i)
if(c13(1:1).ne.'<') then c13='<'//trim(c13)//'>'//' '
n=len(trim(c13))
c13='<'//trim(c13)//'>'//' '
endif
go to 900 go to 900
endif endif
enddo enddo