From e57df307ddd68e80bd05d92dcd6b7cdd772280ba Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 29 Jan 2019 15:42:30 -0600 Subject: [PATCH] Fix a comment. --- lib/ft4/ft4_decode.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index 0c2630438..95f725829 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -76,7 +76,7 @@ subroutine ft4_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line) f0=candidate(1,icand) xsnr=10*log10(candidate(3,icand))-18.0 if( f0.le.375.0 .or. f0.ge.(5000.0-375.0) ) cycle - call ft4_downsample(iwave,f0,cd2) ! downsample from 320 Sa/Symbol to 20 Sa/Symbol + call ft4_downsample(iwave,f0,cd2) ! downsample from 512 Sa/Symbol to 32 Sa/Symbol sum2=sum(cd2*conjg(cd2))/(20.0*76) if(sum2.gt.0.0) cd2=cd2/sqrt(sum2)