On 24/12/2018 02:34, Bill Somerville wrote:
The change is attached as a diff for your review.
Hi Igor,
that patch has a defect, the attached needs to be applied as well to fix
that.
73
Bill
G4WJS.
commit de9990bb60f3cefcefa5a994ade9fa60d3a1d2a4
Author: Bill Somerville <b...@classdesign.com>
Date: Mon Dec 24 03:52:06 2018 +0000
Fix a mangled edit and an incorrect exit condition
diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 818ad6366..1ee37f5c1 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -816,14 +816,18 @@ subroutine pack77_02(nwords,w,i3,n3,c77)
if(nwords.ge.2) read(w(nwords-1),*,err=2) nx
2 if(nx.lt.520001 .or. nx.gt.594095) return !Exchange between 520001 -
594095
if(.not.is_grid6(w(nwords)(1:6))) return !Last word must be a valid
grid6
- i=index(w(1)//' ','/P ')
- if(i.lt.4) return !Only exactly a trailing /P allowed
! Type 0.2: PA3XYZ/P R 590003 IO91NP 28 1 1 3 12 25 70 EU VHF
contest
i3=0
- n3=21
- ip=1
- c13=w(1)(1:i-1)
+ n3=2
+ i=index(w(1)//' ','/P ')
+ if(i.ge.4) then
+ ip=1
+ c13=w(1)(1:i-1)
+ else
+ ip=0
+ c13=w(1)
+ end if
call pack28(c13,n28a)
ir=0
if(w(2)(1:2).eq.'R ') ir=1
_______________________________________________
wsjt-devel mailing list
wsjt-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
