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

Tweaks to make valgrind somewhat happier.

Browse Source
This commit is contained in:
Joe Taylor 2019-02-14 14:56:02 -05:00
parent 073a22125a
commit 9a6c82d09b
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft4/ft4_decode.f90
View File

@ -141,6 +141,8 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, &
nohiscall=.true. nohiscall=.true.
endif endif
message=trim(mycall)//' '//trim(hiscall0)//' RR73' message=trim(mycall)//' '//trim(hiscall0)//' RR73'
i3=-1
n3=-1
call pack77(message,i3,n3,c77) call pack77(message,i3,n3,c77)
call unpack77(c77,1,msgsent,unpk77_success) call unpack77(c77,1,msgsent,unpk77_success)
if(i3.ne.1 .or. (message.ne.msgsent) .or. .not.unpk77_success) go to 10 if(i3.ne.1 .or. (message.ne.msgsent) .or. .not.unpk77_success) go to 10

3
lib/ft4/ft4_downsample.f90
View File

@ -25,7 +25,8 @@ subroutine ft4_downsample(iwave,f0,c)
pi=4.0*atan(1.0) pi=4.0*atan(1.0)
window(0:iwt-1) = 0.5*(1+cos(pi*(/(i,i=iwt-1,0,-1)/)/iwt)) window(0:iwt-1) = 0.5*(1+cos(pi*(/(i,i=iwt-1,0,-1)/)/iwt))
window(iwt:iwt+iwf-1)=1.0 window(iwt:iwt+iwf-1)=1.0
window(iwt+iwf:2*iwt+iwf-1) = 0.5*(1+cos(pi*(/(i,i=0,iwt)/)/iwt)) ! window(iwt+iwf:2*iwt+iwf-1) = 0.5*(1+cos(pi*(/(i,i=0,iwt)/)/iwt))
window(iwt+iwf:2*iwt+iwf-1) = 0.5*(1+cos(pi*(/(i,i=0,iwt-1)/)/iwt))
window(2*iwt+iwf:)=0.0 window(2*iwt+iwf:)=0.0
iws = baud / df iws = baud / df
window=cshift(window,iws) window=cshift(window,iws)