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

Merge branch 'release-2.5.0' of bitbucket.org:k1jt/wsjtx into release-2.5.0

Browse Source
This commit is contained in:
Joe Taylor 2021-07-23 09:06:16 -04:00
commit 05503dd689
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/77bit/packjt77.f90
View File

@ -1118,7 +1118,7 @@ subroutine pack77_1(nwords,w,i3,n3,c77)
irpt=irpt+35
else if(c2.eq.'R+' .or. c2.eq.'R-') then
ir=1
read(w(nwords)(2:),*) irpt
read(w(nwords)(2:),*,err=900) irpt
if(irpt.ge.-50 .and. irpt.le.-31) irpt=irpt+101
irpt=irpt+35
else if(trim(w(nwords)).eq.'RRR') then
@ -1274,6 +1274,7 @@ subroutine pack77_4(nwords,w,i3,n3,c77)
if(call_1(1:1).eq.'<') call_1=w(1)(2:len(trim(w(1)))-1)
call_2=w(2)
if(call_2(1:1).eq.'<') call_2=w(2)(2:len(trim(w(2)))-1)
if(call_1(1:1).ne.'<' .and. call_2(1:1).ne.'<') goto 900
call chkcall(call_1,bcall_1,ok1)
call chkcall(call_2,bcall_2,ok2)
icq=0