w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-29 15:48:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't call Q65 decoder on the first call to map65a().

Browse Source
This commit is contained in:
Joe Taylor 2021-04-06 15:02:43 -04:00
parent 10f4f6dbd5
commit f2859b706d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libm65/map65a.f90
View File

@ -47,8 +47,6 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
! open(23,file='release/CALL3.TXT',status='unknown') ! open(23,file='release/CALL3.TXT',status='unknown')
open(23,file='CALL3.TXT',status='unknown') open(23,file='CALL3.TXT',status='unknown')
if(nutc.ne.nutc0) nfile=nfile+1
nutc0=nutc
df=96000.0/NFFT !df = 96000/NFFT = 2.930 Hz df=96000.0/NFFT !df = 96000/NFFT = 2.930 Hz
if(nfsample.eq.95238) df=95238.1/NFFT if(nfsample.eq.95238) df=95238.1/NFFT
ftol=0.010 !Frequency tolerance (kHz) ftol=0.010 !Frequency tolerance (kHz)
@ -60,7 +58,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
2 if(ndphi.eq.1) dphi=30*iloop/57.2957795 2 if(ndphi.eq.1) dphi=30*iloop/57.2957795
nqdz=1 nqdz=1
if(bq65) nqdz=2 if(bq65 .and. nutc0.ge.0) nqdz=2
if(nutc.ne.nutc0) nfile=nfile+1
nutc0=nutc
do nqd=nqdz,0,-1 do nqd=nqdz,0,-1
if(nqd.eq.2) then if(nqd.eq.2) then
fa=1000.0*fqso fa=1000.0*fqso