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

All QRA65 submodes and sequence lengths 15 - 300 s are now basically functional.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-22 19:20:56 -04:00
parent 37e5489080
commit 90fb84e43e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/qra_loops.f90
View File

@ -5,8 +5,8 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
use timer_module, only: timer use timer_module, only: timer
parameter (LN=1152*63) parameter (LN=1152*63)
character*37 decoded character*37 decoded
complex c00(0:720000) !Analytic representation of dd(), 6000 Hz complex c00(0:npts2-1) !Analytic representation of dd(), 6000 Hz
complex c0(0:720000) !Ditto, with freq shift complex ,allocatable :: c0(:) !Ditto, with freq shift
real a(3) !twkfreq params f,f1,f2 real a(3) !twkfreq params f,f1,f2
real s3(LN) !Symbol spectra real s3(LN) !Symbol spectra
real s3avg(LN) !Averaged symbol spectra real s3avg(LN) !Averaged symbol spectra
@ -15,6 +15,7 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
data nap/0,2,3,2,3,4,2,3,6,4,6,6/,nsave/0/ data nap/0,2,3,2,3,4,2,3,6,4,6,6/,nsave/0/
save nsave,s3avg save nsave,s3avg
allocate(c0(0:npts2-1))
irc=-99 irc=-99
s3lim=20. s3lim=20.
ibwmax=11 ibwmax=11