From 24f4792b23069ce68d6da5d613fbbc48b882e90e Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 3 Jul 2018 15:59:24 -0500 Subject: [PATCH] Fix incorrect reference to extract77 - should have been unpack77 --- lib/ft8/ft8b_2.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90 index b6c04bb96..b81eb1ce5 100644 --- a/lib/ft8/ft8b_2.f90 +++ b/lib/ft8/ft8b_2.f90 @@ -310,16 +310,14 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, & call osd174_91(llrd,apmask,ndeep,message77,cw,nharderrors,dmin) call timer('osd174_91 ',1) endif - message=' ' + msg37=' ' xsnr=-99.0 if(nharderrors.lt.0) cycle if(count(cw.eq.0).eq.174) cycle !Reject the all-zero codeword nbadcrc=0 ! If we get this far, must be a valid codeword. i3=4*message77(72) + 2*message77(73) + message77(74) n3=4*message77(75) + 2*message77(76) + message77(77) - iFreeText=message77(57) - if(i5bit.eq.1) message77(57:)=0 - call extract77(message77,msg37) + call unpack77(message77,msg37) ! This needs fixing for messages with i5bit=1 call genft8_174_91(msg37,mygrid6,bcontest,i3,n3,msgsent37,msgbits,itone) if(lsubtract) call subtractft8(dd0,itone,f1,xdt)