diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 0f77cea66..c9c4331b8 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -161,12 +161,12 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & better,ccf1) call timer('ccf_85 ',1) - if(better.ge.1.10) then + if(better.ge.1.10 .or. mode_q65.ge.8) then call timer('list_dec',0) call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded) call timer('list_dec',1) -! if(idec.ge.0) write(70,3070) idec,better,trim(decoded) -!3070 format(i3,f8.2,2x,a) +! if(idec.ge.0) write(70,3070) idec,mode_q65,better,trim(decoded) +!3070 format(i3,i5,f8.2,2x,a) endif ! If idec=3 we have a q3 decode. Continue to compute sync curve for plotting. endif