w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

This commit is contained in:
Joe Taylor 2020-03-19 11:58:36 -04:00
parent 7564301209
commit 80b926d6fd
2 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/msk144decodeframe.f90
View File

@ -1,4 +1,4 @@
subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess)
! use timer_module, only: timer
use packjt77
parameter (NSPM=864)
@ -15,7 +15,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
real softbits(144)
real llr(128)
logical first,unpk77_success
logical*1 doosd
data first/.true./
data s8/0,1,1,1,0,0,1,0/
save first,cb,fs,pi,twopi,dt,s8,pp
@ -94,12 +93,9 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
llr=2.0*llr/(sigma*sigma)
max_iterations=10
! call timer('bpdec128_90 ',0)
apmask=0
dmin=0.0
call bpdecode128_90(llr,apmask,max_iterations,decoded77,cw,nharderror,niterations)
! if(doosd .and. nharderror .lt. 0) call osd128_90(llr,apmask,3,decoded77,cw,nharderror,dmin)
! call timer('bpdec128_90 ',1)
if( nharderror .ge. 0 .and. nharderror .lt. 18 ) then
nsuccess=1
write(c77,'(77i1)') decoded77
@ -108,7 +104,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
nsuccess=0
else
call unpack77(c77,1,msgreceived,unpk77_success)
!if(unpk77_success) write(*,*) msgreceived,nharderror,dmin,nbadsync1,nbadsync2
if(.not.unpk77_success) nsuccess=0
endif
endif

6
lib/msk144spd.f90
View File

@ -31,7 +31,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
real tpat(NPATTERNS)
real*8 dt, df, fs, pi, twopi
logical first
logical*1 doosd
data first/.true./
data navpatterns/ &
0,1,0, &
@ -44,9 +43,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
save df,first,fs,pi,twopi,dt,tframe,rcw
doosd=.false.
if( ntol .le. 50 ) doosd = .true.
if(first) then
nmatchedfilter=1
! define half-sine pulse and raised-cosine edge window
@ -183,7 +179,7 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
if( is.eq.2) ic0=max(1,ic0-1)
if( is.eq.3) ic0=min(NSPM,ic0+1)
ct=cshift(c,ic0-1)
call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess,doosd)
call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess)
if( ndecodesuccess .gt. 0 ) then
tret=(nstart(icand)+NSPM/2)/fs
fret=fest