w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Don't re-define value of mode_q65; use mode_q65_tmp instead!

Browse Source
This commit is contained in:
Joe Taylor 2023-12-08 16:48:17 -05:00
parent 0cf01f1248
commit 91c0e43ef6
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
qmap/libqmap/qmapa.f90
View File

@ -61,24 +61,15 @@ subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
f0=cand(icand)%f f0=cand(icand)%f
ntrperiod=cand(icand)%ntrperiod ntrperiod=cand(icand)%ntrperiod
iseq=cand(icand)%iseq iseq=cand(icand)%iseq
!### mode_q65_tmp=mode_q65
! if(icand.gt.2) exit if(ntrperiod.eq.30) mode_q65_tmp=max(1,mode_q65-1)
! f0=-31.847 + 117.602
! ntrperiod=30
! iseq=icand-1
!###
mode_q65=3 !###
if(ntrperiod.eq.30) mode_q65=2 !###
freq=f0+nkhz_center-48.0-1.27046 freq=f0+nkhz_center-48.0-1.27046
! write(*,5001) icand,ntrperiod,iseq,mode_q65,f0,f0+nkhz_center-48.0, &
! cand(icand)%xdt,cand(icand)%snr
!5001 format('a',4i5,2f10.3,2f8.1)
ikhz=nint(freq) ikhz=nint(freq)
idec=-1 idec=-1
call timer('q65b ',0) call timer('q65b ',0)
call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, & call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
ntrperiod,iseq, & ntrperiod,iseq, &
mycall,hiscall,hisgrid,mode_q65,f0,fqso,nkhz_center,newdat, & mycall,hiscall,hisgrid,mode_q65_tmp,f0,fqso,nkhz_center,newdat, &
nagain2,max_drift,offset,ndepth,datetime,ndop00,idec) nagain2,max_drift,offset,ndepth,datetime,ndop00,idec)
call timer('q65b ',1) call timer('q65b ',1)
tsec=sec_midn() - tsec0 tsec=sec_midn() - tsec0