w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

More into q65 module.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-13 11:29:33 -05:00
parent 18100fd259
commit a5a1eed681
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/qra/q65/q65.f90
View File

@ -9,7 +9,7 @@ module q65
integer,dimension(22) :: isync = (/1,9,12,13,15,22,23,26,27,33,35, & integer,dimension(22) :: isync = (/1,9,12,13,15,22,23,26,27,33,35, &
38,46,50,55,60,62,66,69,74,76,85/) 38,46,50,55,60,62,66,69,74,76,85/)
integer codewords(63,206) integer codewords(63,206)
integer navg,ibwa,ibwb,ncw,nsps,mode_q65 integer navg,ibwa,ibwb,ncw,nsps,mode_q65,istep,nsmo
real,allocatable,save :: s1a(:,:) !Cumulative symbol spectra real,allocatable,save :: s1a(:,:) !Cumulative symbol spectra
real sync(85) !sync vector real sync(85) !sync vector

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

@ -1,5 +1,5 @@
subroutine q65_sync(nutc,iwave,ntrperiod, & subroutine q65_sync(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4,snr2,idec) emedelay,xdt,f0,snr1,width,dat4,snr2,idec)
! Detect and align with the Q65 sync vector, returning time and frequency ! Detect and align with the Q65 sync vector, returning time and frequency
! offsets and SNR estimate. ! offsets and SNR estimate.
@ -73,7 +73,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod, &
call timer('s1 ',0) call timer('s1 ',0)
nmax=ntrperiod*12000 nmax=ntrperiod*12000
call q65_symspec(iwave,nmax,iz,jz,istep,nsmo,s1) call q65_symspec(iwave,nmax,iz,jz,s1)
call timer('s1 ',1) call timer('s1 ',1)
i0=nint(nfqso/df) !Target QSO frequency i0=nint(nfqso/df) !Target QSO frequency
@ -178,7 +178,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod, &
900 return 900 return
end subroutine q65_sync end subroutine q65_sync
subroutine q65_symspec(iwave,nmax,iz,jz,istep,nsmo,s1) subroutine q65_symspec(iwave,nmax,iz,jz,s1)
use q65 use q65
integer*2 iwave(0:nmax-1) !Raw data integer*2 iwave(0:nmax-1) !Raw data