From 26efb825d36912c9e38f79f4a4b76bf01e0c8bf5 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 7 Jul 2016 14:53:40 +0000 Subject: [PATCH] Minor corection to "red" curve, QRA64 mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6887 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/qra64a.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/qra64a.f90 b/lib/qra64a.f90 index ad1a4392d..6812deaf8 100644 --- a/lib/qra64a.f90 +++ b/lib/qra64a.f90 @@ -85,7 +85,7 @@ subroutine qra64a(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, & do i=ia+3,ib-3 r1=red0(i) red0(i)=0. - r0=maxval(red0(i-3:i+3)) + r0=max(red0(i-3),red0(i-2),red0(i+2),red0(i+3)) red0(i)=r1 red(i)=max(0.0,r1-r0) write(73,3001) i*df,red(i),red0(i),r0