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

Mostly(?) temporary diagnostic tests.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-06 10:24:08 -05:00
parent 47c8286db8
commit fb6fcdf35e
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/q65_decode.f90
View File

@ -89,10 +89,10 @@ contains
df1=12000.0/nfft1 df1=12000.0/nfft1
this%callback => callback this%callback => callback
nFadingModel=1 nFadingModel=1
! Set up the codewords for full-AP list decoding
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
dgen=0 dgen=0
call q65_enc(dgen,codewords) !Initialize the Q65 codec call q65_enc(dgen,codewords) !Initialize the Q65 codec
! Set up the codewords for full-AP list decoding
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
call timer('sync_q65',0) call timer('sync_q65',0)
call q65_sync(nutc,iwave,ntrperiod,mode65,codewords,ncw,nsps, & call q65_sync(nutc,iwave,ntrperiod,mode65,codewords,ncw,nsps, &
nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4, & nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4, &

1
lib/qra/q65/q65_set_list.f90
View File

@ -10,6 +10,7 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/ data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
ncw=0 ncw=0
codewords=0
if(hiscall(1:1).eq. ' ') return if(hiscall(1:1).eq. ' ') return
ncw=MAX_NCW ncw=MAX_NCW

12
lib/qra/q65/q65_sync.f90
View File

@ -53,6 +53,11 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
nsmo=int(0.7*mode_q65*mode_q65) nsmo=int(0.7*mode_q65*mode_q65)
if(nsmo.lt.1) nsmo=1 if(nsmo.lt.1) nsmo=1
!### TEMPORARY
f0=-99
xdt=-99
!###
allocate(s1(iz,jz)) allocate(s1(iz,jz))
allocate(s3(-64:LL-65,63)) allocate(s3(-64:LL-65,63))
allocate(c0(0:nfft-1)) allocate(c0(0:nfft-1))
@ -158,6 +163,13 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
endif endif
enddo ! imsg enddo ! imsg
!### TEMPORARY
if(f0.le.0.0 .or. xdt.lt.-90.) then
write(71) iz,jz,ia2,ccf_best,ipk,jpk,nfqso,mode_q65,df,xdt,f0, &
imsg_best,ccf,ccf1
endif
!###
i1=i0+ipk-64 i1=i0+ipk-64
i2=i1+LL-1 i2=i1+LL-1
j=j0+jpk-7 j=j0+jpk-7