From 14af74ddebf9cda5b71acde124aa44530527f07c Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 9 Oct 2018 15:29:12 -0500 Subject: [PATCH 1/2] Minor changes to simplify hash10,hash12,hash22 routines. --- lib/77bit/packjt77.f90 | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index aa06abf6d..44a273944 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -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 From fe4e1ead267ebc1ac0bc2d6cae92914582bae9f7 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 9 Oct 2018 15:31:37 -0500 Subject: [PATCH 2/2] Fix a typo. --- Configuration.ui | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Configuration.ui b/Configuration.ui index f12f4aaa3..5ceb36e7b 100644 --- a/Configuration.ui +++ b/Configuration.ui @@ -2935,7 +2935,7 @@ Right click for insert and delete options. - <html><head/><body><p>North American VHF/UHF/Mucrowave contests and others in which a 4-character grid locator is the required exchange.</p></body></html> + <html><head/><body><p>North American VHF/UHF/Microwave contests and others in which a 4-character grid locator is the required exchange.</p></body></html> NA VHF Contest