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

Silence compiler warnings.

Browse Source
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 timer_module, only: timer
use packjt77 use packjt77
parameter (NSPM=864) parameter (NSPM=864)
@ -15,7 +15,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
real softbits(144) real softbits(144)
real llr(128) real llr(128)
logical first,unpk77_success logical first,unpk77_success
logical*1 doosd
data first/.true./ data first/.true./
data s8/0,1,1,1,0,0,1,0/ data s8/0,1,1,1,0,0,1,0/
save first,cb,fs,pi,twopi,dt,s8,pp 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) llr=2.0*llr/(sigma*sigma)
max_iterations=10 max_iterations=10
! call timer('bpdec128_90 ',0)
apmask=0 apmask=0
dmin=0.0 dmin=0.0
call bpdecode128_90(llr,apmask,max_iterations,decoded77,cw,nharderror,niterations) 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 if( nharderror .ge. 0 .and. nharderror .lt. 18 ) then
nsuccess=1 nsuccess=1
write(c77,'(77i1)') decoded77 write(c77,'(77i1)') decoded77
@ -108,7 +104,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd)
nsuccess=0 nsuccess=0
else else
call unpack77(c77,1,msgreceived,unpk77_success) call unpack77(c77,1,msgreceived,unpk77_success)
!if(unpk77_success) write(*,*) msgreceived,nharderror,dmin,nbadsync1,nbadsync2
if(.not.unpk77_success) nsuccess=0 if(.not.unpk77_success) nsuccess=0
endif endif
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 tpat(NPATTERNS)
real*8 dt, df, fs, pi, twopi real*8 dt, df, fs, pi, twopi
logical first logical first
logical*1 doosd
data first/.true./ data first/.true./
data navpatterns/ & data navpatterns/ &
0,1,0, & 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 save df,first,fs,pi,twopi,dt,tframe,rcw
doosd=.false.
if( ntol .le. 50 ) doosd = .true.
if(first) then if(first) then
nmatchedfilter=1 nmatchedfilter=1
! define half-sine pulse and raised-cosine edge window ! 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.2) ic0=max(1,ic0-1)
if( is.eq.3) ic0=min(NSPM,ic0+1) if( is.eq.3) ic0=min(NSPM,ic0+1)
ct=cshift(c,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 if( ndecodesuccess .gt. 0 ) then
tret=(nstart(icand)+NSPM/2)/fs tret=(nstart(icand)+NSPM/2)/fs
fret=fest fret=fest