From 9a6c82d09bad66de7008948a51d8d312da0dd3d5 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 14 Feb 2019 14:56:02 -0500 Subject: [PATCH] Tweaks to make valgrind somewhat happier. --- lib/ft4/ft4_decode.f90 | 2 ++ lib/ft4/ft4_downsample.f90 | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index a65b96417..d49ff8906 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -141,6 +141,8 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, & nohiscall=.true. endif message=trim(mycall)//' '//trim(hiscall0)//' RR73' + i3=-1 + n3=-1 call pack77(message,i3,n3,c77) call unpack77(c77,1,msgsent,unpk77_success) if(i3.ne.1 .or. (message.ne.msgsent) .or. .not.unpk77_success) go to 10 diff --git a/lib/ft4/ft4_downsample.f90 b/lib/ft4/ft4_downsample.f90 index 48368ab9b..37b4fbc29 100644 --- a/lib/ft4/ft4_downsample.f90 +++ b/lib/ft4/ft4_downsample.f90 @@ -25,7 +25,8 @@ subroutine ft4_downsample(iwave,f0,c) pi=4.0*atan(1.0) 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+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 iws = baud / df window=cshift(window,iws)