diff --git a/WSJT-X_Users_Guide_Full.docx b/WSJT-X_Users_Guide_Full.docx index 12f6f6506..331eb3d60 100644 Binary files a/WSJT-X_Users_Guide_Full.docx and b/WSJT-X_Users_Guide_Full.docx differ diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 09ad4e3cd..db1118387 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -1,4 +1,4 @@ -subroutine decoder(ss,c0) +subroutine decoder(ss,c0,nstandalone) ! Decoder for JT9. @@ -126,7 +126,7 @@ subroutine decoder(ss,c0) call timer('decode9 ',0) call decode9(i1SoftSymbols,limit,nlim,msg) call timer('decode9 ',1) - + sync=(syncpk+1)/4.0 if(sync.lt.0.0 .or. snrdb.lt.dblim-2.0) sync=0.0 nsync=sync @@ -136,8 +136,8 @@ subroutine decoder(ss,c0) if(msg.ne.' ') then write(*,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg write(13,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg -! write(14,1014) nutc,nsync,nsnr,xdt,freq,ndrift,ccfred(i),nlim,msg -!1014 format(i4.4,i4,i5,f6.1,f8.0,i4,f9.1,i9,3x,a22) + write(14,1014) nutc,nsync,nsnr,xdt,freq,ndrift,ccfred(i),nlim,msg +1014 format(i4.4,i4,i5,f6.1,f8.0,i4,f9.1,i9,3x,a22) iaa=max(1,i-3) ibb=min(NSMAX,i+11) fgood=f @@ -157,7 +157,7 @@ subroutine decoder(ss,c0) 1010 format('',2i4) call flush(6) close(13) -! call flush(14) + call flush(14) call timer('decoder ',1) if(nstandalone.eq.0) call timer('decoder ',101) diff --git a/lib/jt9.f90 b/lib/jt9.f90 index 2ae92964c..d1331d57f 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -65,7 +65,7 @@ program jt9 2 nsps=0 if(ntrperiod.eq.1) then nsps=6912 - nzhsym=181 + nzhsym=173 else if(ntrperiod.eq.2) then nsps=15360 nzhsym=178 @@ -115,64 +115,12 @@ program jt9 enddo 10 close(10) - iz=1000.0/df3 - nutc=nutc0 - - call timer('sync9 ',0) - call sync9(ss,nzhsym,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipk) !Get sync, freq - call timer('sync9 ',1) - - fgood=0. - nsps8=nsps/8 - df8=1500.0/nsps8 - sbest=0. - do i=ia,ib - f=(i-1)*df3 - if((i.eq.ipk .or. ccfred(i).ge.3.0) .and. f.gt.fgood+10.0*df8) then - - call timer('decode9a',0) - fpk=1000.0 + df3*(i-1) - c1(1:npts8)=conjg(c0(1:npts8)) - call decode9a(c1,npts8,nsps8,fpk,syncpk,snrdb,xdt,freq, & - drift,i1SoftSymbols) - call timer('decode9a',1) - - call timer('decode9 ',0) - call decode9(i1SoftSymbols,limit,nlim,msg) - call timer('decode9 ',1) - - sync=(syncpk-1.0)/2.0 - if(sync.lt.0.0 .or. snrdb.lt.dblim-2.0) sync=0.0 - nsync=sync - if(nsync.gt.10) nsync=10 - nsnr=nint(snrdb) - - if(sync.gt.sbest .and. fgood.eq.0.0) then - sbest=sync - write(line,1010) nutc,nsync,nsnr,xdt,freq,drift - if(nsync.gt.0) nsynced=1 - endif - - if(msg.ne.' ') then - write(*,1010) nutc,nsync,nsnr,xdt,freq,drift,msg -1010 format(i4.4,i4,i5,f6.1,f8.2,f6.2,3x,a22) - fgood=f - nsynced=1 - ndecoded=1 - endif - endif - enddo - - if(fgood.eq.0.0) then - write(*,1020) line -1020 format(a33) - endif - + call fillcom(nutc0) + call decoder(ss,c0,1) enddo call timer('jt9 ',1) call timer('jt9 ',101) -! call ftnquit go to 999 998 print*,'Cannot open file:' diff --git a/lib/jt9a.F90 b/lib/jt9a.F90 index 017510769..788f2d063 100644 --- a/lib/jt9a.F90 +++ b/lib/jt9a.F90 @@ -85,7 +85,7 @@ subroutine jt9c(ss,savg,c0,id2,nparams0) npatience=1 call flush(6) - if(sum(nparams).ne.0) call decoder(ss,c0) + if(sum(nparams).ne.0) call decoder(ss,c0,0) return end subroutine jt9c diff --git a/mainwindow.cpp b/mainwindow.cpp index 09748feb5..0be0fc108 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//---------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"