From 13b6900373f7851e77f9581f7cf8f142a40f8daa Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 12 Mar 2021 14:44:47 -0500 Subject: [PATCH] Add plog to the parameters written to q65_decodes.dat. --- lib/q65_decode.f90 | 12 ++++++------ lib/qra/q65/q65.f90 | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index 9ce05b6e6..8f891e18e 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -248,13 +248,13 @@ contains if(c6.eq.' ') c6=' ' c4=hisgrid(1:4) if(c4.eq.' ') c4=' ' - fmt='(i6.4,1x,a4,4i2,6i3,i4,f6.2,f7.1,f6.1,f6.2,'// & + fmt='(i6.4,1x,a4,4i2,6i3,i4,f6.2,f7.1,f6.1,f7.1,f6.2,'// & '1x,a6,1x,a6,1x,a4,1x,a)' if(ntrperiod.le.30) fmt(5:5)='6' if(idec.eq.3) nrc=0 write(22,fmt) nutc,cmode,nQSOprogress,idec,idfbest,idtbest,ibw, & - ndistbest,nused,icand,ncand,nrc,ndepth,xdt,f0,snr2,tdecode, & - mycall(1:6),c6,c4,trim(decoded) + ndistbest,nused,icand,ncand,nrc,ndepth,xdt,f0,snr2,plog, & + tdecode,mycall(1:6),c6,c4,trim(decoded) close(22) endif ! else @@ -332,13 +332,13 @@ contains if(c6.eq.' ') c6=' ' c4=hisgrid(1:4) if(c4.eq.' ') c4=' ' - fmt='(i6.4,1x,a4,4i2,6i3,i4,f6.2,f7.1,f6.1,f6.2,'// & + fmt='(i6.4,1x,a4,4i2,6i3,i4,f6.2,f7.1,f6.1,f7.1,f6.2,'// & '1x,a6,1x,a6,1x,a4,1x,a)' if(ntrperiod.le.30) fmt(5:5)='6' if(idec.eq.3) nrc=0 write(22,fmt) nutc,cmode,nQSOprogress,idec,idfbest,idtbest,ibw, & - ndistbest,nused,icand,ncand,nrc,ndepth,xdt,f0,snr2,tdecode, & - mycall(1:6),c6,c4,trim(decoded) + ndistbest,nused,icand,ncand,nrc,ndepth,xdt,f0,snr2,plog, & + tdecode,mycall(1:6),c6,c4,trim(decoded) close(22) endif endif diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 309646e71..d7d3c56bb 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -23,7 +23,7 @@ module q65 real, allocatable,save :: ccf2(:) !Max CCF(freq) at any lag, single seq real, allocatable,save :: ccf2_avg(:) !Like ccf2, but for accumulated average real sync(85) !sync vector - real df,dtstep,dtdec,f0dec,ftol + real df,dtstep,dtdec,f0dec,ftol,plog contains