w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 12:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings for packjt77.f90.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 10:16:33 -04:00
parent 4d4e6cc4c7
commit 430a413f95
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/77bit/packjt77.f90
View File

@ -470,7 +470,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
call hash12(n12,call_3) call hash12(n12,call_3)
if(iflip.eq.0) then ! 12 bit hash for TO call if(iflip.eq.0) then ! 12 bit hash for TO call
call_1=call_3 call_1=call_3
call_2=adjustl(c11)//' ' call_2=adjustl(c11)//' '
call add_call_to_recent_calls(call_2) call add_call_to_recent_calls(call_2)
if(nrx.eq.1 .and. & if(nrx.eq.1 .and. &
dxcall13_set .and. mycall13_set .and. & dxcall13_set .and. mycall13_set .and. &
@ -1199,7 +1199,6 @@ subroutine pack77_5(nwords,w,i3,n3,c77)
character*13 w(19) character*13 w(19)
character*77 c77 character*77 c77
character*6 bcall_1,bcall_2 character*6 bcall_1,bcall_2
character*3 mult
character crpt*4 character crpt*4
character c1*1,c2*2 character c1*1,c2*2
logical ok1,ok2 logical ok1,ok2