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

QRA65 submodes A-E now basically OK for 15, 30, 60, 120 s sequences; 300 s is NG.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-22 19:07:21 -04:00
parent 687d60019e
commit 37e5489080
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/qra65_decode.f90
View File

@ -121,6 +121,7 @@ contains
irc=-1 irc=-1
if(snr1.ge.2.5) then if(snr1.ge.2.5) then
jpk0=(xdt+1.0)*6000 !### jpk0=(xdt+1.0)*6000 !###
if(ntrperiod.le.30) jpk0=(xdt+0.5)*6000 !###
if(jpk0.lt.0) jpk0=0 if(jpk0.lt.0) jpk0=0
fac=1.0/32767.0 fac=1.0/32767.0
dd=fac*iwave dd=fac*iwave

6
lib/spec64.f90
View File

@ -1,7 +1,8 @@
subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN) subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
parameter (MAXFFT=3840) parameter (MAXFFT=20736)
complex c0(0:360000) !Complex spectrum of dd() !### Fix this:
complex c0(0:1800000-1) !Complex spectrum of dd()
complex cs(0:MAXFFT-1) !Complex symbol spectrum complex cs(0:MAXFFT-1) !Complex symbol spectrum
real s3(LL,NN) !Synchronized symbol spectra real s3(LL,NN) !Synchronized symbol spectra
real xbase0(LL),xbase(LL) real xbase0(LL),xbase(LL)
@ -76,7 +77,6 @@ subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
! write(72,3072) j,m,m/2,m/4,m/8 ! write(72,3072) j,m,m/2,m/4,m/8
!3072 format(5i8) !3072 format(5i8)
! enddo ! enddo
! if(nfft.ne.-999) stop
return return
end subroutine spec64 end subroutine spec64