w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix a mangled edit and an incorrect exit condition

Browse Source
This commit is contained in:
Bill Somerville 2018-12-24 03:52:06 +00:00
parent 8f9fdd29a8
commit de9990bb60
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/77bit/packjt77.f90
View File

@ -816,14 +816,18 @@ subroutine pack77_02(nwords,w,i3,n3,c77)
if(nwords.ge.2) read(w(nwords-1),*,err=2) nx 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 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 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 ! Type 0.2: PA3XYZ/P R 590003 IO91NP 28 1 1 3 12 25 70 EU VHF contest
i3=0 i3=0
n3=21 n3=2
ip=1 i=index(w(1)//' ','/P ')
c13=w(1)(1:i-1) 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) call pack28(c13,n28a)
ir=0 ir=0
if(w(2)(1:2).eq.'R ') ir=1 if(w(2)(1:2).eq.'R ') ir=1