From 83d87e96545cdf565f6c510d4894226bb7d325c4 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 6 Mar 2020 19:02:41 -0600
Subject: [PATCH] Fix an apparent typo in ft8_decode.

---
 lib/ft8_decode.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 012794958..5fecc9bb6 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -93,7 +93,7 @@ contains
     if(nzhsym.eq.50 .and. ndec_early.ge.1) then
        n=47*3456
        dd(1:n)=dd1(1:n)
-       dd(n+1:)=iwave(n+1)
+       dd(n+1:)=iwave(n+1:)
        call timer('sub_ft8c',0)
        do i=1,ndec_early
           if(lsubtracted(i)) cycle