1
0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 20:48:33 -04:00

Fix an apparent typo in ft8_decode.

This commit is contained in:
Steven Franke 2020-03-06 19:02:41 -06:00
parent fa071324e5
commit 83d87e9654

View File

@ -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