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

Silence some compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-17 16:05:02 -04:00
parent 0603f52e75
commit 0926943326
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fano232.f90
View File

@ -126,7 +126,7 @@ subroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat, &
np=7 np=7
do j=1,nbytes-1 do j=1,nbytes-1
i4a=nstate(np) i4a=nstate(np)
dat(j)=i4a dat(j)=int(i4a,1)
np=np+8 np=np+8
enddo enddo
dat(nbytes)=0 dat(nbytes)=0

2
lib/wqdecode.f90
View File

@ -316,7 +316,7 @@ subroutine unpackpfx(ng,call1)
endif endif
n=n/37 n=n/37
enddo enddo
call1=pfx//'/'//call1 call1=pfx//'/'//call1(1:8)
if(call1(1:1).eq.' ') call1=call1(2:) if(call1(1:1).eq.' ') call1=call1(2:)
if(call1(1:1).eq.' ') call1=call1(2:) if(call1(1:1).eq.' ') call1=call1(2:)
else else