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

Temporary commit (has diagnostic prints), starting on Q65-30 capability.

Browse Source
This commit is contained in:
Joe Taylor 2023-12-01 08:46:40 -05:00
parent 330db0feb4
commit 5e9b9ff2d4
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
qmap/libqmap/q65b.f90
View File

@ -33,7 +33,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
nWTransmitting,result(50) nWTransmitting,result(50)
common/cacb/ca common/cacb/ca
save save
if(mycall0(1:1).ne.' ') mycall=mycall0 if(mycall0(1:1).ne.' ') mycall=mycall0
if(hiscall0(1:1).ne.' ') hiscall=hiscall0 if(hiscall0(1:1).ne.' ') hiscall=hiscall0
if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4) if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4)
@ -100,7 +100,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
nsnr0=-99 !Default snr for no decode nsnr0=-99 !Default snr for no decode
if(abs(f0-85.3).lt.1.0) then if(abs(f0-85.3).lt.1.0) then
print*,'a',f0 print*,'a',f0,f0+80-48
h=default_header(12000,30*12000) h=default_header(12000,30*12000)
do ifile=0,1 do ifile=0,1
write(fname,1102) ifile write(fname,1102) ifile

8
qmap/libqmap/q65c.f90
View File

@ -20,22 +20,24 @@ subroutine q65c(itimer)
!### REMEMBER that /npar/ is not updated until nparams=nparams0 is executed. ### !### REMEMBER that /npar/ is not updated until nparams=nparams0 is executed. ###
common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain, & common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain, &
ndepth,ndiskdat,neme,newdat,nfcal,nfshift, & ndepth,ndiskdat,neme,newdat,nn1,nn2,nfcal,nfshift, &
mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, & mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, &
ndop00,nsave,max_nhsym,mycall,mygrid,hiscall,hisgrid, & ndop00,nsave,nn3,nn4,max_nhsym,mycall,mygrid,hiscall,hisgrid, &
datetime,junk1,junk2 datetime,junk1,junk2
equivalence (nparams,fcenter) equivalence (nparams,fcenter)
data first/.true./ data first/.true./
save first save first
nparams=nparams0 !Copy parameters into common/npar/ nparams=nparams0 !Copy parameters into common/npar/
datetime(12:)=' '
if(itimer.ne.0) then if(itimer.ne.0) then
call timer('decode0 ',101) call timer('decode0 ',101)
call fini_timer call fini_timer
return return
endif endif
datetime(18:20)=':00' ! datetime(18:20)=':00'
npatience=1 npatience=1
newdat=1 !Always on ?? newdat=1 !Always on ??