w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 20:48:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'hotfix-2.0.0-rc3' of bitbucket.org:k1jt/wsjtx into hotfix-2.0.0-rc3

Browse Source
This commit is contained in:
Joe Taylor 2018-10-09 16:34:30 -04:00
commit 1d2665a978
2 changed files with 4 additions and 13 deletions

2
Configuration.ui
View File

@ -2935,7 +2935,7 @@ Right click for insert and delete options.</string>
</sizepolicy>
</property>
<property name="toolTip">
<string>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;North American VHF/UHF/Mucrowave contests and others in which a 4-character grid locator is the required exchange.&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</string>
<string>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;North American VHF/UHF/Microwave contests and others in which a 4-character grid locator is the required exchange.&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</string>
</property>
<property name="text">
<string>NA VHF Contest</string>

15
lib/77bit/packjt77.f90
View File

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