From b71b5c225deb56a641874d71474c26d976bd38d9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 17 May 2017 20:19:59 +0000
Subject: [PATCH] Fix a typo.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7686 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fsk4hf/wspr_fsk8d.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/fsk4hf/wspr_fsk8d.f90 b/lib/fsk4hf/wspr_fsk8d.f90
index 0dbd7f10d..923ae9289 100644
--- a/lib/fsk4hf/wspr_fsk8d.f90
+++ b/lib/fsk4hf/wspr_fsk8d.f90
@@ -121,7 +121,7 @@ program wspr_fsk8d
      pnoise=(2500.0/df1)*base                   !Noise in 2500 Hz
      xsnr=db(psig/pnoise)                       !SNR from sync tones
 
-     if(jpk.ge.0) c(0:NMAXD-1-jpk)=c(jpk:NMAX-1)
+     if(jpk.ge.0) c(0:NMAXD-1-jpk)=c(jpk:NMAXD-1)
 
      a(1)=-f0
      a(2:5)=0.